By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,066 Members | 1,826 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,066 IT Pros & Developers. It's quick & easy.

Resume Next returning to original line of error (#2486)

P: n/a
How is it possible that VBA could ERR out on the same line 3 times in 5 seconds?
Below are the logs for two errors that happened one right after the other and you can
see that the same line is logged thrice for each function, each in a 5 second range.

Error is always #2486: You can't carry out this action at the present time.

ErrDateTime Line Function
7/31/2006 9:01:32 275 cmdOpen
7/31/2006 9:01:31 275 cmdOpen
7/31/2006 9:01:28 275 cmdOpen

7/31/2006 9:01:22 3145 SSN_DblClick
7/31/2006 9:01:19 3145 SSN_DblClick
7/31/2006 9:01:17 3145 SSN_DblClick

Here's the code for the error on line 3145. All it's trying to do is open a form with the
DoCmd.OpenForm method. I omitted some of the code, but I don't think the code is
causing the error.

Regardless of what the code does, Why does the Resume Next in the error trap return
the processing to line 3145? Has anyone ever seen anything like this before?

3096 On Error GoTo Err_Handler
3103 If Not IsNull(Me![SSN]) Then
3110 If Me.Dirty = True Then Me.Dirty = False
....
3138 strCriteria = "[SSN] = '" & Me![SSN] & "'"
3145 DoCmd.OpenForm "frmEmployees", , , strCriteria
3152 End If
Exit_Here:
3159 Exit Sub
Err_Handler:
3166 UpdateWebErrorLog Err.Number, Err.Description, Erl
3173 Resume Next
This pattern repeats itself for seven different completely functions with nothing obvious
in common. The user has reported that when she gets this error (#2486) the system
completely freezes and she must terminate MSAccess.exe to get back to work.

I've searched Google for posts about Error #2486 and have implemented everything I found.
She sees the errors less frequently now that I found and removed references to the boolean
value of checkboxes: If Me!chkValid = True Then instead of If Me!chkValid = Then

The crash/freeze doesn't happen so often anymore (once a day instead of once an hour)
but these errors are still being logged. Any ideas?
--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast


Aug 3 '06 #1
Share this Question
Share on Google+
6 Replies


P: n/a
DFS
Danny J. Lesandrini wrote:
How is it possible that VBA could ERR out on the same line 3 times in
5 seconds? Below are the logs for two errors that happened one right after
the
other and you can see that the same line is logged thrice for each
function, each in a
5 second range.
Error is always #2486: You can't carry out this action at the
present time.
ErrDateTime Line Function
7/31/2006 9:01:32 275 cmdOpen
7/31/2006 9:01:31 275 cmdOpen
7/31/2006 9:01:28 275 cmdOpen

7/31/2006 9:01:22 3145 SSN_DblClick
7/31/2006 9:01:19 3145 SSN_DblClick
7/31/2006 9:01:17 3145 SSN_DblClick

Here's the code for the error on line 3145. All it's trying to do is
open a form with the DoCmd.OpenForm method. I omitted some of the
code, but I don't think the code is causing the error.

Regardless of what the code does, Why does the Resume Next in the
error trap return the processing to line 3145? Has anyone ever seen
anything like this
before?
3096 On Error GoTo Err_Handler
3103 If Not IsNull(Me![SSN]) Then
3110 If Me.Dirty = True Then Me.Dirty = False
...
3138 strCriteria = "[SSN] = '" & Me![SSN] & "'"
3145 DoCmd.OpenForm "frmEmployees", , , strCriteria
3152 End If
Exit_Here:
3159 Exit Sub
Err_Handler:
3166 UpdateWebErrorLog Err.Number, Err.Description, Erl
3173 Resume Next
This pattern repeats itself for seven different completely functions
with nothing obvious in common. The user has reported that when she
gets this error (#2486) the system completely freezes and she must
terminate MSAccess.exe to get back to work.
I've searched Google for posts about Error #2486 and have implemented
everything I found. She sees the errors less frequently now that I
found and removed references to the boolean value of checkboxes: If
Me!chkValid = True Then instead of If Me!chkValid = Then
The crash/freeze doesn't happen so often anymore (once a day instead
of once an hour) but these errors are still being logged. Any ideas?
Danny,

Why don't you check for the existence of a record for that SSN before trying
to open the form.

Aug 4 '06 #2

P: n/a
Danny J. Lesandrini wrote:
How is it possible that VBA could ERR out on the same line 3 times in 5 seconds?
Below are the logs for two errors that happened one right after the other and you can
see that the same line is logged thrice for each function, each in a 5 second range.

Error is always #2486: You can't carry out this action at the present time.

ErrDateTime Line Function
7/31/2006 9:01:32 275 cmdOpen
7/31/2006 9:01:31 275 cmdOpen
7/31/2006 9:01:28 275 cmdOpen

7/31/2006 9:01:22 3145 SSN_DblClick
7/31/2006 9:01:19 3145 SSN_DblClick
7/31/2006 9:01:17 3145 SSN_DblClick

Here's the code for the error on line 3145. All it's trying to do is open a form with the
DoCmd.OpenForm method. I omitted some of the code, but I don't think the code is
causing the error.

Regardless of what the code does, Why does the Resume Next in the error trap return
the processing to line 3145? Has anyone ever seen anything like this before?

3096 On Error GoTo Err_Handler
3103 If Not IsNull(Me![SSN]) Then
3110 If Me.Dirty = True Then Me.Dirty = False
...
3138 strCriteria = "[SSN] = '" & Me![SSN] & "'"
3145 DoCmd.OpenForm "frmEmployees", , , strCriteria
3152 End If
Exit_Here:
3159 Exit Sub
Err_Handler:
3166 UpdateWebErrorLog Err.Number, Err.Description, Erl
3173 Resume Next
This pattern repeats itself for seven different completely functions with nothing obvious
in common. The user has reported that when she gets this error (#2486) the system
completely freezes and she must terminate MSAccess.exe to get back to work.

I've searched Google for posts about Error #2486 and have implemented everything I found.
She sees the errors less frequently now that I found and removed references to the boolean
value of checkboxes: If Me!chkValid = True Then instead of If Me!chkValid = Then

The crash/freeze doesn't happen so often anymore (once a day instead of once an hour)
but these errors are still being logged. Any ideas?
Could there be an error in the frmEmployees OnLoad or OnOpen events (or other events that
might occur during the OpenForm call) that isn't handled and propogating back to the proc
that opens the form?

What do you see when you step through the code?

Any timers in the application?

--
'---------------
'John Mishefske
'---------------
Aug 4 '06 #3

P: n/a
I think it does have something to do with the form opening and ... what ... not opening. It's as if the form doesn't
actually exist. As if the Me object cannot resolve itself. I've never seen that either, but at times, that's how this
issue behaves.

No, there are no timers in this application at all.

Good question about stepping throug the code, but I forgot to mention that I can't reproduce the error. It's being
caused by one solitary user among dozens and she's off-site in another state, so I can't even look over her shoulder. I
may be getting on a plane and heading for Detroit if I can't fix it from here in sunny Denver, but this issue has
baffled me.

Thanks for your thoughts.

--
Danny J. Lesandrini
dl*********@hotmail.com
www.amazecreations.com/datafast/
>
Could there be an error in the frmEmployees OnLoad or OnOpen events (or other events that might occur during the
OpenForm call) that isn't handled and propogating back to the proc that opens the form?

What do you see when you step through the code?

Any timers in the application?

--
'---------------
'John Mishefske
'---------------

Aug 4 '06 #4

P: n/a
I'll give that a try. The way this app works, they deal only with SSNs in the system. They cannot ever enter a new ssn
or even add an employee. That's done with a nightly process. If the SSN isn't null, then it's in the system, cause it
came from the system.

--
Danny J. Lesandrini
dl*********@hotmail.com
www.amazecreations.com/datafast/
>
Danny,

Why don't you check for the existence of a record for that SSN before trying to open the form.

Aug 4 '06 #5

P: n/a
Danny J. Lesandrini wrote:
I think it does have something to do with the form opening and ... what ... not opening. It's as if the form doesn't
actually exist. As if the Me object cannot resolve itself. I've never seen that either, but at times, that's how this
issue behaves.

No, there are no timers in this application at all.

Good question about stepping throug the code, but I forgot to mention that I can't reproduce the error. It's being
caused by one solitary user among dozens and she's off-site in another state, so I can't even look over her shoulder. I
may be getting on a plane and heading for Detroit if I can't fix it from here in sunny Denver, but this issue has
baffled me.
Shame you have to travel out there for this. Since it is one user experiencing this I'd
consider looking at what updates have been installed - service packs, etc. for the
operating system, Office, Jet, etc.

Perhaps you already have a list of version numbers for all these items from a working
installation to take with you.

I always take a bunch of diagnostic stuff on a USB key and perhaps you already know of all
these but another reader may benefit or someone may add another indispensable tool:

ProcExp (SysInternals) - can display threads, call stacks, versioning
DependencyWalker (MS) - can display missing OS or app components
MDAC Component Checker (MS) - check the MDAC installion versions

A Goggle search on any of those will expose the download site.

--
'---------------
'John Mishefske
'---------------
Aug 5 '06 #6

P: n/a
Danny

Have you considered that 3145 is a false lead as it would be if a
subsequent unnumbered line caused the error?

Example:

Sub Blah()
10 Dim rst As DAO.Recordset
20 On Error GoTo BlahErr
30 GoTo BlahExit
40 MsgBox "Yes"
BlahExit:
rst.Close
Exit Sub
BlahErr:
MsgBox "ERL returns: " & Erl _
& vbNewLine _
& vbNewLine _
& "But the Error didn't occur at :" & Erl & "!" _
& vbNewLine _
& "In fact Line " & Erl & " is Never Run!" _
& vbNewLine _
& vbNewLine _
& "Use <Ctrl><Breakto exit.", vbInformation, "FFDBA"
Resume BlahExit
End Sub

Aug 6 '06 #7

This discussion thread is closed

Replies have been disabled for this discussion.