Hello all,

I have asked questions in this forum previously and have received helpful information. Thank you.:) I am still an infant programmer and I appreciate all the help I receive. So here is my next question.

I am using a command button, “Edit Contact Information”, to close the form “frmInventoryTracking” and opening the form “frmCustomerContactEdit”. The command button is intended to close "frmInventoryTracking", open "frmCustomerContactEdit" and go directly to the selected “CustomerID” (the CustomerID was entered in the "CustomerID" Combobox in "frmInventoryTracking" before clicking "Edit Contact Information"). Form "frmCustomerContactEdit" is bound to the table "tblCustomers". The information that is being edited is "ContactName" and "FaxNumber".

The command button works correctly if there is data in the CustomerID ComboBox. However, if there is not any data in the CustomerID ComboBox, I receive the following syntax error “Syntax Error (missing operator) in query expression ‘[CustomerID]=’. When I click OK, form “frmInventoryTracking” still closes and the entire database disappears.

I would like to press OK and put another error message box “Must select Customer” on the screen, click OK and then return to “frmInventoryTracking”.

Here is the code I have written.

Private Sub Edit_Contact_Information_Click()
On Error GoTo Err_CustomerContactEdit_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmCustomerContactEdit"

    stLinkCriteria = "[CustomerID]=" & Me![CustomerID]
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CustomerContactEdit_Click:
    Exit Sub

Err_CustomerContactEdit_Click:
    MsgBox Err.Description
    Resume Exit_CustomerContactEdit_Click:

End Sub

Any help will again be appreciated.

D. Bartelt

__________________
D. Bartelt

Hi
You must test null value before assigning a value to stLinkCriteria variable

If IsNull(Me![CustomerID]) Then
    MsgBox "You Must select a Customer"
    Exit Sub
Else
    'Code here to continue
End If

-vemaju

Thank you.

It works. I appreciate your help.

D. Bartelt