frm_masabilgileri isimli forma "mtn_giristarihi" adında denetim kaynağı "Giristarihi" olan metin kutusu ekle,

kaydet butonunun tıklandığında olayına yazılı kodları aşağıdakilerle değiştir.

Private Sub Kaydet_Click()

If Me.masano = 0 Then

MsgBox ("Masano sıfır olamaz")

Exit Sub

End If

If MsgBox("Yeni masano kaydını onaylıyormusunuz ?", vbQuestion + vbYesNo, "Kayıt Onayı") = vbNo Then

DoCmd.RunCommand acCmdUndo

Else

Me.mtn_giristarihi = Date

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

End If

Call MASARENK

Me.Requery

End Sub