Trying to create a Sequence...

[Frank]

This is my second chance at it;

With the help of an User named Michel, We made this mini
program:

Private Sub Form_Current()
If Me.NewRecord Then
' we do not want modify EXISTING record, isn't it
Me.PO_Number = Nz((DMax(PO_Number, "PO Log Table",
[PO Number])), "0") + 1
End If
End Sub

This program makes a number to auto count, but I have a
problem With the function NZ i have something wrong with
the null part of the function.
Any suggestion will bw appreciated
TIA Frank

 

[Kelvin]

You are using "0" which is text. You can't add 1 to the strong "0". Remove
the quote marks.

Kelvin