Sayın POWER merhaba
Konu başka bir siteden aldığım yardımla çözüldü. İlginize teşekkür ediyorum. Kodunu da burada yayımlıyorum.
Private Sub tutarı_AfterUpdate()
On Error GoTo Erc
Me.hakno = CLng(DMax("[hakno]", "girşalt", "[Kimlik]=" & Me.Kimlik & " And Not IsNull([hakno])")) + 1
DoCmd.RunCommand acCmdSaveRecord
Exit Sub
Erc:
Me.hakno = 1
Resume Next
End Sub
#6
