Combo box add new customer

[toolman]

I have on a form a combo box that lists all my customers from a customers table.
How do I add a new customer from this combo box? bearing in mind the form only displays the customers.

[JamesDC]

I have on a form a combo box that lists all my customers from a customers table.
How do I add a new customer from this combo box? bearing in mind the form only displays the customers.

Add a text field somewhere on the form that add new records to the costumer table. That way the combobox will be updated with the new costumer's when they're put into the new field.

I'm not sure if there is a way to do this directly in the combobox...

[Rabbit]

In the After Update event of the Combo box:

Private Combo_Box_Name_AfterUpdate()
If DCount("*", "[Customer Table Name]", "[Customer Field Name] = '" & Me.[Combo_Box_Name] & "'") = 0 Then
   If MsgBox("Do You Wish To Add '" & Me.[Combo Box Name] & "' As A New Customer?", vkOKCancel) = vbOK Then
      DoCmd.SetWarnings False
      DoCmd.RunSQL "Insert Into [Customer Table Name] Values ('" & Me.[Combo Box Name] & "')"
      DoCmd.SetWarnings True
   End If
End If
End Sub

[NeoPa]

Nice solution.
The ComboBox would need the LimitToList property set to False for this to work.

[Rabbit]

You'll also need to requery the combo box.