Uden breakpoints kører koden ikke
Koden her bliver kun afviklet, hvis jeg følger den med breakpoints.Private Sub bookedArrangementID_DblClick(Cancel As Integer)
If Not Me.bookedArrangementID = "" Then
Call Me.Parent.aabnBookingNummer(Me.bookedArrangementID)
End If
End Sub
Der kaldes videre :
Sub aabnBookingNummer(bookNr As Long)
If Not (bookFormOpen) Then
aabn_frm_BookArrangement
End If
Call Forms.frmBookArrangement.aabnBookingNummer(bookNr)
Forms.frmBookArrangement.SetFocus
End Sub
Og endnu engang :
Public Sub aabnBookingNummer(bookNr As Long)
DoCmd.GoToControl "bookedArrangementID"
DoCmd.FindRecord bookNr, , True, , True, , True
End Sub
Hvis jeg har breakpoint på en af de sidste 2 DoCmd
kører koden og der vises den rigtige booking som reaktion på brugerens dobbelsklik - selv ved gentagne gange med forskellige bookingnumre (sådan skal det virke).
Men hvis jeg fjerner det breakpointet virker koden kun rigtigt første gang.... Anden gang der dobbeltklikkes kommer forrige bookingnummer frem igen - ja egentlig er det vist bare formularen der får focus igen.
