Add Customer Name into Customer Table each time a Unique Customer added to SaleTable

[crimedog]

I have a Table Sales - that lists customer and order information
Most of the customers are new - is there a way to populate Customer Name Table with a new entry each time a new customer is input into the Sales Tale
(Without having to add the custome to Customer Name Table - then going to Sales Order)
OR
Failing that - is there a way to use a list box that points to Customer Name Table (and if it doesn't find the one you want, will allow you toadd a new record) In the SAME form as you use to add to Sales Table.
so:
Date (textbox linking to form.Sales) Customer Name (List Box linking to form.CustomerName + adding the info to form.Sale)

Thanks

[pbaldy]

Search here on "notinlist", which is a commonly used method to add new items to a table underlying a combo row source.

[June7]

Here is one http://www.blueclaw-db.com/access_no...ed_example.htm

[crimedog]

Ok I found those tutorials helpful - And thought I was understanding it.
I have my 1 to many relationship, the Combobox set to the CustomerName on CustomerT... The Event NotINList set to go off. I thought I had pretty good code. But when I test it, nothing happens when I enter NewItem into Combo Box, until I go to next record, where it tells me I can't enter it because of the One to Many relationship.

If you could Check out the CboCustomerName on OrderRegisterF. (which is actually on a subform) See if the VBA code is wrong.

I don't even get the initial msgBox

[June7]

Change the combobox LimitToList property to Yes.

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.

[crimedog]

Works great - Why set the tabstop?

Thanks for the help

[June7]

That's what I do for controls that don't need to get focus, one less keystroke for the users to get past.

Really don't need that field in the subform at all.