Access 303.4 TI 16:25, Using Access 2007 - format Access 2000

When I execute the code, I get:

Run-time error '3075':

Syntax error(missing operator) in query expression 'CustomerID='.

When I debug, I see that CustomerID is Null just as the subroutine is called. It appears as though customerID doesn't yet exist because this is a new record, the data may not yet be present.

In Fact, one difference I saw between your working example and mine is that my OrderF opens up and has "(New Record)" in the OrderID field when the error is thrown.

I tried to pass the customerID through the WhereCondition:

Private Sub AddNewOrderBtn_Click()

   DoCmd.OpenForm "OrderF", , , "CustomerID=" & CustomerID, acFormAdd
  
   Forms!OrderF.GetCustomerAddress

End Sub

But got the same resulting error - in this case because CustomerID for a new record doesn't exist until it is entered.


The fix (Two):

1. Add a catch for when GetCustomerAddress is not called within its form:

Public Sub GetCustomerAddress(Optional Customer As Integer = 0)

   If (Customer <> 0) Then CustomerID = Customer


As well, on the CustomerF code, behind the button:

Private Sub AddNewOrderBtn_Click()

   DoCmd.OpenForm "OrderF", , , , acFormAdd
  
   Forms!OrderF.GetCustomerAddress (CustomerID)
  
2. A better fix is to add CustomerID to the newly opened form:

Private Sub AddNewOrderBtn_Click()

   DoCmd.OpenForm "OrderF", , , , acFormAdd
   Forms!OrderF!CustomerID = CustomerID
   Forms!OrderF.GetCustomerAddress

End Sub


Regards,

Chris