Hint: only use a query as a last resort.. use VB or SQL as much as possible this will limit the no. of problems in the future. I am not saying that it prevents all probs but will save on a lot.
For example if you are pulling information via a query to use on your form and you have linked two tables together to do so and you plan on sending the info gained to one of the two tables you may find it will not add new records.
here is a better way to do it. on the main link field in your form. this is the one that you use to link queries. lets say for this example the field on the form is called customer_no. and the link is custno.
in the before update add the following
Private Sub customer_no_BeforeUpdate(Cancel As Integer)
Dim strFilter As String
strFilter = "custno = " & Me!customer_no
me!Fsurname=DLookup("[Tsurname]","customers", strFilter)
me!Ffirstname=DLookup("[Tfirstname]","customers", strFilter)
me!Fphoneno=DLookup("[Tphoneno]","customers", strFilter)
End Sub
Customer_no = field name in the form
custno = Link in the table
customers = name of the table
F in front of name = Form field name
T in front of name = Table field name
Explanation: one you select the customers no in the customer_no field the form will then look at the table customers and pull all information on the customerno line into the form.
Ok as for the date just add a field to your form and in the default value add:
=Date()
this will automaticly put the date at the time of creation in the field.
Hope this helps.
Zero
programming evolves from Imagination.