You can use this code to insert new record to a table
Dim MyDB As Dao.DataBase , MyRec As Dao.RecordSet
Set MyDB = CurrntDb
Set MyRec = MyDb.OpenRecordSet("Select * From TableName")
MyRec.AddNew
MyRec!FieldNameInTable = Me.[FieldNameInForm]
MyRec!Field2NameInTable = Me.[Field2NameInForm]
MyRec!Field3NameInTable = Me.[Field3NameInForm]
MyRec!Field4NameInTable = Me.[Field4NameInForm]
MyRec.Update
You can do the same to the rest of the tables
--
Good Luck
BS"D
mchicke said:
I should be more clear. I want to insert new records. The date field will
be used in all tables, and there is a 'shift' field that will also be used in
all tables. So there will be three records with the same date. Is this
possible, or is it too complex?