Where am I going wrong

[constantG]

I'm confused. This code works from a button on a form

Private Sub Command0_Click()
    Dim intBoatNumber As Integer
    
    intBoatNumber = Nz(DLookup("intGlobalOptionsId", "tblBoat", "accStatus = 'On'"))
    DoCmd.OpenForm "Global", acNormal, , "Forms![Global].[intGlobalId]=" & intBoatNumber, acFormEdit, acDialog
    Exit Sub
    
End Sub

So why can't I use this in a separate module that is called from the switchboard?

The form opens but always goes to a blank record.

 

[RuralGuy]

Your code is not testing for a reasonable value in the intBoatNumber variable after the DLookup().

 

[constantG]

Why? Like I said, I'm confused.

 

[RuralGuy]

Change the code to:

Private Sub Command0_Click()
   Dim intBoatNumber As Integer

   intBoatNumber = Nz(DLookup("intGlobalOptionsId", "tblBoat", "accStatus = 'On'"))
   [COLOR="Red"]MsgBox "IntBoatNumber is = [" & intBoatNumber & "]"[/COLOR]
   DoCmd.OpenForm "Global", [COLOR="Red"], , "[intGlobalId]=" & intBoatNumber[/COLOR], acFormEdit, acDialog
   Exit Sub

End Sub

 

[constantG]

That is the weirdest.

I did the above, it worked but then I took out the msgbox (the only difference between mine and yours) and it worked.

I do not understand. But thanks

 

[constantG]

BTW it now works in the module :X:

 

[RuralGuy]

Your original code which was opening the Global form required that the Global form already be open. I assume you had the button on the Global form.