![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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
Private Sub Form_Dirty(Cancel As Integer)
if not isnull(me.adsoyad) then
If vbNo = MsgBox("Düzenlensin mi", vbYesNo + vbDefaultButton2, "Düzenle") Then
SendKeys "{ESC}", True
SendKeys "{ESC}", True
End If
end if
End Sub