ok, I put the code into my form, and nothing happens, either to the numberical ClientID field, or the RefNo field
Private Sub Form_Current()
If Me.NewRecord Then
On Error Resume Next
Me!ClientID.DefaultValue = Nz(DMax("[ClientID]", "Clients"), 0) + 1
Me!RefNo.DefaultValue = ("BB/"...