Private Sub Komut39_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
kodu ile, "Ekle" butonunun tıklandığında olayına yazılı kodu Private Sub Komut41_Click()
DoCmd.GoToRecord , , acNewRec
Me.EvrakSayısı = DMax("[EvrakSayısı]", "VERIGIRIS") + 1
End Sub
kodu ile değiştir.