[AccessD] Odd Error - Embarrassing Workaround

[Heenan, Lambert]

Sounds like it's time to decompile the application. :-)

Lambert 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Tuesday, November 28, 2017 11:24 AM
To: 'Access Developers discussion and problem solving'; 'Off Topic'
Subject: [AccessD] Odd Error - Embarrassing Workaround

Dear Lists:

 

In the code below which is in the after update event of a combo box, I want to position the form to the selected vendor in the combo box list.  Cookie cutter.  Done it a hundred times:

 

Private Sub cboVendors_AfterUpdate()

 

    If IsNull(cboVendors) Then Exit Sub

    

    lngID = Val(Me.cboVendors.Column(0))

    Set rsMe = Me.RecordsetClone

    

    rsMe.FindFirst "fldVendorID= " & lngID

    If rsMe.NoMatch = True Then

        MsgBox "Record Not Found", vbExclamation

    Else

        Me.Bookmark = rsMe.Bookmark

    End If

    

    Me.cmdExit.SetFocus

    Me.cboVendors.Visible = False

 

End sub

 

The code's a little more wordy than it needs to be because I've been trying various fixes which, while they shouldn't work, often do in Access. J

 

It blows up on Me.Bookmark = rsMe.Bookmark with an error 2001: You canceled the previous operation.

 

So here's the odd thing: if I click Debug and see that line highlighted, then click F5, the code carries on and displays the selected record.

 

I've got a workaround that's so esthetically and professionally offensive that I hesitate to show it here, but we're all friends, right?

 

Private Sub cboVendors_AfterUpdate()

 

    If IsNull(cboVendors) Then Exit Sub

    

    lngID = Val(Me.cboVendors.Column(0))

    Set rsMe = Me.RecordsetClone

    

    rsMe.FindFirst "fldVendorID= " & lngID

    If rsMe.NoMatch = True Then

        MsgBox "Record Not Found", vbExclamation

    Else

        On Error Resume Next

        Me.Bookmark = rsMe.Bookmark

        Me.Bookmark = rsMe.Bookmark

        On Error GoTo 0

    End If

    

    Me.cmdExit.SetFocus

   Me.cboVendors.Visible = False

 

End Sub

 

All I did was add the On Error line and issue the Bookmark a second time.
The second line apparently works. 

 

Can anyone help me avoid the embarrassment of having to explain to the next programmer on this app why that code is there? Does anyone know what the problem is and perhaps a fix?

 

I already tried recompile.  And also ran it through the decorrupter.

 

MTIA

 

 

Rocky Smolin (semi-ret.)

Beach Access Software

760-683-5777

 <https://urldefense.proofpoint.com/v2/url?u=http-3A__www.bchacc.com&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=TqJRBZo_vdhB6OnSJC5dM7FmCkxTzcDfsfL35PHzJPI&e= > https://urldefense.proofpoint.com/v2/url?u=http-3A__www.bchacc.com&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=TqJRBZo_vdhB6OnSJC5dM7FmCkxTzcDfsfL35PHzJPI&e= 

 <https://urldefense.proofpoint.com/v2/url?u=http-3A__www.e-2Dz-2Dmrp.com&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=doZLD3I7PyoL2vEM1kJb7xOiCvSA-CoLUxeRJWXH2Dc&e= > https://urldefense.proofpoint.com/v2/url?u=http-3A__www.e-2Dz-2Dmrp.com&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=doZLD3I7PyoL2vEM1kJb7xOiCvSA-CoLUxeRJWXH2Dc&e= 

Skype: rocky.smolin

 

 

--
AccessD mailing list
AccessD at databaseadvisors.com
https://urldefense.proofpoint.com/v2/url?u=http-3A__databaseadvisors.com_mailman_listinfo_accessd&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=Mt1RALyfKo5SltLzOxb_dANFfpI_kPfOTZLwDViN9UA&e=
Website: https://urldefense.proofpoint.com/v2/url?u=http-3A__www.databaseadvisors.com&d=DwICAg&c=kn4_INW_mBCDHV_xJEVJkg&r=pQuzU2JPOWFA8d1LR0ScRkf41KAmO3vze52XDXdA5D1EN8y5q3NCFsL309SJtnkO&m=r-hbS5KE6sbCpDw2bc8J-wJT_SsfrCq9ZBd-Ifmb9JY&s=RzMKFIG1D5hO-51ELlt4BhenYr9lw9k33E5Qg9vvA0M&e=