Access 2002 unexpectedly quits and Catastrophic Failure messages

[Frav]

The Reps team have been experiencing that Access 2002 unexpectedly
quits
while working and also lots of Corruption Failures and "Record lock
can not
update" messages since the upgrade from Windows 2000 and Access 200 to
Windows XP and Access 2002 (XP) was done.
Now, they are working and at anytime in anywhere of the application
access
unexpectedly quits with no error messages and the info that was being
entered
is lost.

all computers have a standard configuration with the latest services
packs,
Microsoft Windows XP SP2 and Microsoft Office 2002 (XP) SP3, Microsft
Jet
4.0.8618.0, y have also check all the references and they are good.

Here are the references:
-Visual Basic for applications
-Microsoft Access 10.0 Object Library
-Microsoft Office 10.0 Object Library
-Microsoft Office XP Web Components
-Micrfosoft ActiveX Data Objects 2.8 Library
-OLE Automation

I heard something about Opportunistic locking if you disable it
(Oplocks) on
the server may reduce the risk of data corruption.

This problems occurred in an .mde file, but i also have experienced the
same
problem and i am working with the .mdb file

I've been dealing with this problem since 7/12/06 (more than 2 weeks)
doing
lots of different things like changing references, disabling and
enabling the
"open databases using record locking", compact and repair, migrate
database
to access 2002, contacting Microsoft co (The suggestions they gave did
not work)., etc.

Sometimes I have the opportunity to debug and the error usually comes
in
the next part (testing with a total of 3 users saving a new contact
record each user and saving all simultaneously at once), after the
other users are done saving when i got the error message then click on
cotinue process and it saves with no problem.

Code:

Sub WriteAuditlog(t xtOperation, txtTableName, txtFieldName, frefnum,
OrgValue, CurValue)
Dim rstAudit As ADODB.Recordset
Dim fsql As String
On Error GoTo Err_WriteAuditl og

Set rstAudit = New ADODB.Recordset
Set rstAudit.Active Connection = CurrentProject. Connection
rstAudit.Cursor Type = adOpenKeyset
rstAudit.LockTy pe = adLockPessimist ic
fsql = "Select * from AuditTable"

rstAudit.Open fsql =============== =======IT WILL BREAK HERE

rstAudit.AddNew

When i continue the execution after the message catastrophic failure it
saves the contact record with no problem.
Does anybody know what could be happening? if you need any more
information please let me know. Thanks for your replies, any help is
appreciated!

[Allen Browne]

Not sure exactly what's happening, but some generic suggestions:

1. Uncheck the boxes under:
Tools | Options | General | Name AutoCorrect
Explanation of why:
http://allenbrowne.com/bug-03.html

2. Compact the database to get rid of this junk:
Tools | Database Utilities | Compact/Repair

3. Close Access. Make a backup copy of the file. Decompile the database by
entering something like this at the command prompt while Access is not
running. It is all one line, and include the quotes:
"c:\Program Files\Microsoft office\office\m saccess.exe" /decompile
"c:\MyPath\MyDa tabase.mdb"

4. Open Access (holding down the Shift key if you have any startup code),
and compact again.

5. Open a code window.

Now, some more specific ones.

If the form that triggers the crash has a subform that has a multi-table
query as its RecordSource, this could be an Access bug:
1. Open the main form in design view.
2. Clear the Link Master Fields and Link Child Fields properties.
3. Save. Close.
4. Open the subform in design view, and add a text box for the foreign key
fields (the ones previously named in Link Child Fields.)
5. Save. Close.
6. Open the main form, again, and restore the Link Master Fields and Link
Child Fields properties.
Typically the foreign key fields are not shown on the form, so their data
type is AccessField, and the bug seems to be with this type. By adding a
text box, you avoid the bug.)

Other alternatives would be to use an append-only recordset for the target,
or a DAO recordset, or execute an Append query instead of opening the
recordset.

You may be able to remove the OLE and Web Components libraries. Access gives
you those by default; remove them if you are not using them.

HTH

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Frav" <fr**********@h otmail.comwrote in message
news:11******** **************@ s13g2000cwa.goo glegroups.com.. .

The Reps team have been experiencing that Access 2002 unexpectedly
quits
while working and also lots of Corruption Failures and "Record lock
can not
update" messages since the upgrade from Windows 2000 and Access 200 to
Windows XP and Access 2002 (XP) was done.
Now, they are working and at anytime in anywhere of the application
access
unexpectedly quits with no error messages and the info that was being
entered
is lost.

all computers have a standard configuration with the latest services
packs,
Microsoft Windows XP SP2 and Microsoft Office 2002 (XP) SP3, Microsft
Jet
4.0.8618.0, y have also check all the references and they are good.

Here are the references:
-Visual Basic for applications
-Microsoft Access 10.0 Object Library
-Microsoft Office 10.0 Object Library
-Microsoft Office XP Web Components
-Micrfosoft ActiveX Data Objects 2.8 Library
-OLE Automation

I heard something about Opportunistic locking if you disable it
(Oplocks) on
the server may reduce the risk of data corruption.

This problems occurred in an .mde file, but i also have experienced the
same
problem and i am working with the .mdb file

I've been dealing with this problem since 7/12/06 (more than 2 weeks)
doing
lots of different things like changing references, disabling and
enabling the
"open databases using record locking", compact and repair, migrate
database
to access 2002, contacting Microsoft co (The suggestions they gave did
not work)., etc.

Sometimes I have the opportunity to debug and the error usually comes
in
the next part (testing with a total of 3 users saving a new contact
record each user and saving all simultaneously at once), after the
other users are done saving when i got the error message then click on
cotinue process and it saves with no problem.

Code:

Sub WriteAuditlog(t xtOperation, txtTableName, txtFieldName, frefnum,
OrgValue, CurValue)
Dim rstAudit As ADODB.Recordset
Dim fsql As String
On Error GoTo Err_WriteAuditl og

Set rstAudit = New ADODB.Recordset
Set rstAudit.Active Connection = CurrentProject. Connection
rstAudit.Cursor Type = adOpenKeyset
rstAudit.LockTy pe = adLockPessimist ic
fsql = "Select * from AuditTable"

rstAudit.Open fsql =============== =======IT WILL BREAK HERE

rstAudit.AddNew

When i continue the execution after the message catastrophic failure it
saves the contact record with no problem.
Does anybody know what could be happening? if you need any more
information please let me know. Thanks for your replies, any help is
appreciated!

[Terry Smith]

I believe I am having a similar problem with an Access MDB. I have a
process that uses a DAO recordset to get data from ODBC-attached
sources. Occasionally it terminates without warning. I don't have the
corruption failure or lock errors, but I'm only querying the data in
this procedure. It fails whether the client is Win XP SP2 or Win
Server 2003 SP1. I haven't tested on other platforms.

I've rewritten the procedure to use ADO instead, and now get the
trappable error -2147418113 with description 'Catastrophic failure'.
If I put in error handling to resume on that error, it continues
without problems.

In my case, I get this issue primarily at one of the two sites I
support. They should be parallel environments (both Win Server 2003
SP1 with XP SP2 clients running Oracle 10g R2, using Oracle's ODBC
driver, Access 2003, same MDB, etc.), so I'm trying to find what is
different at the site that doesn't have the issue.

For a work-around, you might try this article:
http://support.microsoft.com/default.aspx/kb/187942

Have you found anything out on this issue? If so, please share it.

Terry
Frav wrote:

The Reps team have been experiencing that Access 2002 unexpectedly
quits
while working and also lots of Corruption Failures and "Record lock
can not
update" messages since the upgrade from Windows 2000 and Access 200 to
Windows XP and Access 2002 (XP) was done.
Now, they are working and at anytime in anywhere of the application
access
unexpectedly quits with no error messages and the info that was being
entered
is lost.

all computers have a standard configuration with the latest services
packs,
Microsoft Windows XP SP2 and Microsoft Office 2002 (XP) SP3, Microsft
Jet
4.0.8618.0, y have also check all the references and they are good.

Here are the references:
-Visual Basic for applications
-Microsoft Access 10.0 Object Library
-Microsoft Office 10.0 Object Library
-Microsoft Office XP Web Components
-Micrfosoft ActiveX Data Objects 2.8 Library
-OLE Automation

I heard something about Opportunistic locking if you disable it
(Oplocks) on
the server may reduce the risk of data corruption.

This problems occurred in an .mde file, but i also have experienced the
same
problem and i am working with the .mdb file

I've been dealing with this problem since 7/12/06 (more than 2 weeks)
doing
lots of different things like changing references, disabling and
enabling the
"open databases using record locking", compact and repair, migrate
database
to access 2002, contacting Microsoft co (The suggestions they gave did
not work)., etc.

Sometimes I have the opportunity to debug and the error usually comes
in
the next part (testing with a total of 3 users saving a new contact
record each user and saving all simultaneously at once), after the
other users are done saving when i got the error message then click on
cotinue process and it saves with no problem.

Code:

Sub WriteAuditlog(t xtOperation, txtTableName, txtFieldName, frefnum,
OrgValue, CurValue)
Dim rstAudit As ADODB.Recordset
Dim fsql As String
On Error GoTo Err_WriteAuditl og

Set rstAudit = New ADODB.Recordset
Set rstAudit.Active Connection = CurrentProject. Connection
rstAudit.Cursor Type = adOpenKeyset
rstAudit.LockTy pe = adLockPessimist ic
fsql = "Select * from AuditTable"

rstAudit.Open fsql =============== =======IT WILL BREAK HERE

rstAudit.AddNew

When i continue the execution after the message catastrophic failure it
saves the contact record with no problem.
Does anybody know what could be happening? if you need any more
information please let me know. Thanks for your replies, any help is
appreciated!