Hi all,
in the frmA has text box "AutRow" that add autonumber for every row.
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim tmp As Variant
tmp = DMax("AutRow", "table1", "")
If IsNull(tmp) Then
tmp = 1
Else
tmp = tmp + 1
End If
Me!AutRow = tmp
End Sub
My problem is below:
If...