Help with Dlookup, to find record or add record?

[AccessDevJunior]

hya,

i have a main form called 'frm_ID', its record source is a table (tbl_ID) with only one field 'ID Number'.
The main form has a subform called 'frm_IDSub', its record source is a table (tbl_IDSub) with a field 'ID Number' and several other fields.
the two tables have a one to many relationship.

I would like to place and unbound text box and a command button on the main form. I want the user to be able to enter the Id number in the unbound text box then click the command button.
On clicking the command button i would like the code to lookup in 'tbl_Id' to see if the ID Number exists, then if it does find that record, if not add a new record.

if anyone could help me put this code together it would be a great help

 

[PHV]

Why not using a combobox with a NotInList event procedure ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[AccessDevJunior]

ive never used this procedure before, ive changed my text box to a combo box could you help me with the code please

 

[PHV]

While in VBE press the F2 key to launch the Object browser, do a search for notinlist and then press the F1 key to get get a good code example.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[AccessDevJunior]

im getting an error msg saying "the text you have entered isnt an item in the list"???
ive had a little play with but im still not sure what to do

 

[randy700]

Try....

Private Sub cboControlName_OnNotInList(Response as Integer)
code to add new record
Response = DataErrAdded
End Sub


Randy