20/11/2009, 16:26
kayıtta değişiklik olup olmadığını kontrol için
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim response As Integer
response = MsgBox("Değişiklikleri kaydetmek istermisiniz?", vbYesNo + vbCritical, "Kaydetme")
If response = vbNo Then
Me.Undo
Cancel = True
End If
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim response As Integer
response = MsgBox("Değişiklikleri kaydetmek istermisiniz?", vbYesNo + vbCritical, "Kaydetme")
If response = vbNo Then
Me.Undo
Cancel = True
End If