Balik yemegi degilde, tutturmayi ögrettigin icin tesekkür ederim.
Yol gösterdikten sonra yapmaya calistim ve oldu. Cok tesekkür ederim.
Private Sub cmdDegistir_Click()
On Error GoTo ErrorHandler
If MsgBox("Degisiklik kaydedilsin mi?", vbYesNo, "DEGISIKLIK?") = vbNo Then
Me.Undo 'rückgängig
'Cancel = True 'Ereignisse verhindern (Ruft Bug hervor)
MsgBox ("Kayit degistirilmedi."), vbOKOnly, "DEGISTIRILMEDI"
Else:
MsgBox "Kayit degistirildi.", vbOKOnly, "DEGISTIRILDI"
End If
Forms![frmKfz].Refresh
Forms![frmKfz].Requery
Exit Sub
ErrorHandler:
MsgBox "Fehler in Sub! Form_FormMain >> Form_BeforeUpdate" & vbCrLf & "Aktion wird abgebrochen"
End Sub
Saygilarimla
kaleci