Change the combobox LimitToList property to Yes.
Code:
Private Sub CboCustomerName_NotInList(NewData As String, Response As Integer)
Answer = MsgBox("Do you want to add " & NewData & _
" to Customer List?", vbYesNo, "Customer not found!")
Response = acDataErrContinue
Me.CboCustomerName = Null
If Answer = vbYes Then
CurrentDb.Execute "INSERT INTO CustomerT(CustomerName) Values('" & NewData & "')"
Me.CboCustomerName.Requery
Me.CboCustomerName = NewData
End If
End Sub
Delete the code behind OrderRegister. It will error during Debug>Compile
You are saving the company name not company ID. Is this what you want?
Need to set subform Rep textbox Locked Yes, TabStop No or delete it.