formda tablodaki değeri bir arttırarak vermesi

[yenginoglu]

Merhaba arkadaşlar bir çek yazma programı yapmaya çalışıyorum ama formda tablodakin değeri bir arttırarak gelmesini yapamadım yardımcı olursanız sevinirim.

 

[BKCAN]

forumun geçerli oldugunda koduna aşağıdakini eklerseniz olur

Private Sub Form_Current()
If Me.NewRecord Then
On Error Resume Next
Me!çekno.DefaultValue = Nz(DMax("[çekno]", "çek"), 0) + 1
End If
End Sub