Automatically Adding Data to a Form

[TheTomCat]

I have designed a database in which the user enters all kinds of data into the forms then prints out Report forms.
Anyway, I have it set up now so that if you enter a person's data (one time) in a Master Index Form, then their inormation shows up in combo boxes in the Form. In other words, as long as the Data is input into the Master Index once, you never have to retype it again. All the user does is select the name from a Combo Box and click on the name. It then automatically enters all pertinent data in the fields for you. (i.e., Victim's name, address, phone ,etc.).

I deally, what I would like to happen is for a person to NOT have to add data to the Master Index first. I would like for them to open (i.e., Incident Report), type in the person's data in the appropriate fields, (i.e., Victim), then click on a Button to then Add that person to the Master Index.

I hope this made some sense.

Thomas Bailey
a/k/a TomCat

 

[bubba100]

Take a look at the Not In List event of the combo box.

 

[SeeThru]

To do it with a button, you just need to capture all the data currently in the fields and copy it to a new record

MyButton_Onclick
dim dbs as database, rst as recordset
set dbs=currentdb
set rst=dbs.openrecordset("SELECT * FROM MasterTable")
rst.addnew
rst!name=me!name
rst!address1=me!address1
etc
...
rst.update
exit sub

As mentioned above, you can use NotInList to do this automatically, although you may want to confirm it. In that case, you would only copy 1 field at a time.

The other option is base the dropdown on the same table the form is based on. Effectively, use the records themselves as the source. You will need to ensure they return the correct unique record.

SeeThru
Synergy Connections Ltd - Telemarketing Services

http://www.synergyconnections.co.uk