Hocam,

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