
Private Sub Form_Dirty(Cancel As Integer)
If vbNo = MsgBox("Düzenlensin mi", vbYesNo + vbDefaultButton2, "Düzenle") Then
SendKeys "{ESC}", True
SendKeys "{ESC}", True
End If
End Sub

Private Sub Form_Dirty(Cancel As Integer)
If vbNo = MsgBox("Düzenlensin mi", vbYesNo + vbDefaultButton2, "Düzenle") Then
SendKeys "{ESC}", True
SendKeys "{ESC}", True
End If
End Sub
Yollar biter Access bitmez.