Kod:
Private Sub Komut18_Click()
Dim eskikimlik As Integer
DoCmd.GoToRecord , , acLast
eskikimlik = Me.Kimlik
DoCmd.GoToRecord , , acNewRec
Me.Kimlik = eskikimlik + 1
End Sub
Private Sub Komut18_Click()
Dim eskikimlik As Integer
DoCmd.GoToRecord , , acLast
eskikimlik = Me.Kimlik
DoCmd.GoToRecord , , acNewRec
Me.Kimlik = eskikimlik + 1
End Sub
Bu Konudaki Yorumlar |
Yeni Kayıt Açma - Yazar: notrino - 10/10/2018, 14:32
Cvp: Yeni Kayıt Açma - Yazar: ozanakkaya - 10/10/2018, 14:41
|