Aha, ok
But yr code is clean and should run.

Where's the error trapping mechanism to the afterupdate, btw?
What is the error number?

Is there some other code in the afterupdate or perhaps some other setting
you forgot to mention?
Again, the code is clean, good defensive programming from what I see.
(apart from error handling, that is).

Krgrds,
Perry

Perry,
A while back I looked at the "NotinList" to add back to the underlying table
and subtable that populates the combo box.

' Allows user to add a new contact name by typing the contacts name
   ' in the Contact combo box and opening the Customer edit Form.

   Dim intNewContact As Integer, strtitle As String
   Dim intMsgDialog As Integer, strmsg As String
   Dim strFilter As String
   
   ' Evaluate filter before it is passed.
   strFilter = "[CustomerName:] = " & (Me![CustomerName:].Value)
     
   ' Check if user has already selected a contact.
   If IsNull(Me![Combo295]) Then
             
       ' Display message box asking if the user wants to add a new customer.
       strtitle = "Contact Not in List"
       strmsg = "Do you want to add a new contact?"
       intMsgDialog = vbYesNo + vbExclamation
       intNewContact = MsgBox(strmsg, intMsgDialog, strtitle)

       If intNewContact = vbYes Then

       DoCmd.OpenForm "CUST Edit Form", , , , , , strFilter ' openargs form
       
       Response = acDataErrAdded
       Me![Combo295].Undo 'the unbound combo box that selects contact
       Me![Combo295].Requery ' sets combo so that new contact will be seen
for selection
       Else
           ' Display the default error message.
           Response = acDataErrDisplay
       End If
   
 End If

However I can't get the filter to open the form at the right customer - any
ideas.