Private Sub Form_Load()
If Me.NewRecord Then
Me!RecordIDTextbox = Nz(DMax("RecordID", "TableName"),0) + 1
End If
End Sub
Thanks for that code but I get an error message when entering this code. My table is called property and the field is property ID. I take it that RecordIDTextbox should...