ACCESS FEED: [MS_AccessPros] Re: Run-Time error '2501'

Kamis, 01 Desember 2011

[MS_AccessPros] Re: Run-Time error '2501'

Hey John,

You are right on. It was working OK at some point in time and I don't remember changing any of the setting.

So the 'Break on all errors' will overwrite the 'Resume Next' or presumably for all 'On errors' statement.

Thanks again and appreciate your insight .

Thomas

--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Thomas-
>
> That code looks fine, but I bet you set "Break on all Errors" in the VB Editor
> Tools / Options.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Thomas
> Sent: Thursday, December 01, 2011 1:48 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Run-Time error '2501'
>
> Screen displays the following 2 messages. This is happening in MS Office 2007.
>
> Run-time error '2501'
> The OpenForm Action was cancelled.
>
> Where the following code is triggered.
>
> Private Sub ROUTINGID_DblClick(Cancel As Integer)
> Dim stDocName As String
>
>
> stDocName = " Control_All_Form "
>
> On Error Resume Next
>
> DoCmd.OpenForm stDocName, acNormal, , , , , "1" & "|" & Me.ROUTINGID & "|"
>
>
> Error_exit:
>
> Exit Sub
> End Sub
>
>
> Private Sub Form_Open(Cancel As Integer)
> Dim rs As Object
> Dim OpenArg_Txt, varArray As Variant
> Dim intI As Integer
> ...
> .
> .
> If Ltotal = "0" Then
> NRF = "No record found "
> If MsgBox(NRF, vbOKOnly) = vbOK Then
> Cancel = True
> End If
>
>
> GoTo Exit_Form_Open
>
> End If
> ....
> .
> .
> Exit_Form_Open:
> Exit Sub
> End Sub
>
>
> Can't figure out why the 'Resume Next' was not triggered at all. It always
> stopped at the DoCmd.
>
> Debug shows cancel is = 0 when the code failed at the DoCmd.
>
> Any help is appreciated.
>
> Regards,
> Thomas
>
>
>
>
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>