Hallo,
Als VBA-Neuling bräuchte ich mal ein wenig Hilfe Kann mir jemand sagen, wie ich den Löschenbutton in meinem Formular so umbaue (VBA), damit eine Abfrage kommt „wollen sie den Datensatz wirklich löschen“ ok/abbr. Nach ok soll er auf den ersten Datensatz zurückspringen…
hatte schon viel versucht, leider erfolglos…
Kann jemand helfen?
MFG
Hallo Jasper!
Schreibe den folgenden Code hinter deinen Löschen-Button:
Private Sub löschen_Click()
Dim merker
On Error GoTo Err_löschen_Click
merker = MsgBox(„Wollen sie den Kunden wirklich löschen?“, vbYesNo)
If merker = vbNo Then Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.GoToRecord , , acFirst
Exit Sub
Err_löschen_Click:
MsgBox („Kunde wurde nicht gelöscht!“)
End Sub
gruß
ralf
sory, can’t help.
good luck
Mein Fehler!
natürlich soll vor dem zurückspringen der Datensatz auch wirklich gelöscht werden?
welchen Do.Cmd muss ich dafür noch einbauen?
MFG
Hab eine Lösung gefunden:
CODE:
Private Sub loeschen_Click()
Dim merker
On Error GoTo Err_loeschen_Click
merker = MsgBox(„Wollen sie den Kunden wirklich löschen?“, vbYesNo)
If merker = vbNo Then Exit Sub
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acFirst
Exit Sub
Err_loeschen_Click:
MsgBox („Der Kunde gelöscht!“)
DoCmd.GoToRecord , , acFirst
End Sub
Danke erstmal!