takie cuda to tylko w Visual Basic.
Z odczytem i dolozeniem kolejnego numeru nie bylo by problemu,
podaje ci kod w VB.
Niestety jak jestes poczatkujacy z accessa, bedzie ci trudno zrobic cokolwiek
Kod
Private Sub
If Me.DataEntry = True Then
number = DLookup("[Max]", "qry_MaxNumber", "[nazwa]=" & Me.nazwa.Value)
If number > 0 Then
Me.NR.Value = number + 1
Else
Me.NR.Value = 1
End If
End If
End Sub