Auto Populate a field

[swan717]

Hi:

I'm trying to create a database that will automatic populate a field when I enter something in the prior field. For example, the table has the following four columns: vendor, address, town, and date of service. The vendor's contact address and town will always be the same, so I want to have a combo box to list all of the vendors and then automatically populate the address and town fields. Is this possible?

Thanks in advance for your help!!!

 

[Darrylles]

Try the following code in the 'On_Change' event of the combo.....
[tt]
Dim db As Database
Dim rsVendor As Recordset

Set db = CurrentDb()
Set rsVendor = db.OpenRecordset("SELECT * FROM tblVendor WHERE vendorname = comboVendor.value;", dbopendynaset)

'(Replace: 'tblVendor' with your Vendor table name, 'vendorname' with your 'vendor fieldname, 'comboVendor' with your combo name).

txtAddress = rsVendor.address
txtTown = rsVendor.town

'(Replace: 'txtAddress' & 'txtTown' with the form textbox names)

rsVendor.Close
[/tt]

Kind regards,

Darrylle


"Never argue with an idiot, he'll bring you down to his level - then beat you with experience." darrylles@totalise.co.uk