IF and ELSE IF

[Topham]

Hello im new to VBA and im trying to get one button to do 2 things depending on a value in a certain field of a form. Please see code below.

If (Forms![Main Booking Form]!CustomerID) = (Forms![Client Data Form]!txtCustomerID) Then

DoCmd.OpenQuery ("ClientNameFill")

Forms![Main Booking Form]!FName = DLookup("FName", "[ClientNameFill]")

DoCmd.Close acQuery, "ClientNameFill", acSaveNo

ElseIf ([Forms]![Main Booking Form]![CustomerID]) = Null Then

DoCmd.OpenQuery "Contacts Query"

Forms![Main Booking Form]!CustomerID = DLookup("CustomerID", "[Contacts Query]")

Forms![Main Booking Form]!FName = DLookup("FName", "[Contacts Query]")

Forms![Main Booking Form]!SName = DLookup("SName", "[Contacts Query]")

End If

Regards,

 

[boblarson]

Why are you opening QUERIES for this. There is no need to open them. You can get the information without opening them up using the DLookup.

 

[MarkK]

Do you have a question or a description of a problem?
One observation is that nothing ever equals null. To determine if a variable is null, use the IsNull() function.