Access97

[rta]

I have five linked tables, I want to be able to enter data on a form that updates all the tables automatically that have the same fields. What need I do?

Thanks in advance.

 

[Danielle17]

I have a db that I have several linked tables also. All you need to do is create a form and then when you create the text boxes on that form you set their control source to the table it will be affecting. Here's a bit of the code that I used:

Dim lstName As String
Dim rsOnsite As Recordset
Dim rsEquipUsed As Recordset
Dim rsTechInUse As Recordset
Dim rsTechTable As Recordset
Dim db As Database
Dim ctl As Control
Dim varItem1 As Variant
Dim varItem2 As Variant

Set db = CurrentDb
Set rsOnsite = db.OpenRecordset("zJobTable&quot
Set rsEquipUsed = db.OpenRecordset("EquipmentUsed&quot
Set rsTechInUse = db.OpenRecordset("TechniciansInUse&quot
Set rsTechTable = db.OpenRecordset("Technicians&quot

rsOnsite("Customer&quot = Me.cbCustomer
rsOnsite("Start Date&quot = CDate(Me.txtStartDate)
rsOnsite("End Date&quot = CDate(Me.txtEndDate)
rsOnsite("Phone #&quot = Me.txtCustomerPhone
rsOnsite("Contact&quot = Me.txtContact
rsOnsite("PO#&quot = Me.txtPO
rsOnsite("Description&quot = Me.txtDescription
rsOnsite("Notes&quot = Me.txtNotes
rsOnsite("CustomerID&quot = Val(Mid(Me.cbCustomer, InStr(1, Me.cbCustomer, "-- ", vbTextCompare) + 2))

rsOnsite.Update

Mind you that rsOniste is just one table. You would have to dim for all of the tables and then set the text box control sources to the soecific table. I hope this is what you're looking for...if not just disregard