Hallo,
ich habe ein Formular mit 50 Datensätzen und möchte einige löschen (Formularansicht). Der Löschvorgang soll vom User bestätigt werden, etwa so: Möchten Sie den Datensatz Maier, Berliner Allee x wirklich löschen? Wichtig ist das einige Optionen wie Name etc. des aktuellen DS in der Nachfrage enthalten sind.
Wer kann helfen?
Hallo,
hier ein Ausschnitt aus meinem VBA-Code:
Set db = CurrentDb
Set rst1 = db.OpenRecordset(„Tabelle_Zeit“, dbOpenDynaset)
stKriterien = "Kennummer = " & Me![Kennummer]
rst1.FindFirst stKriterien
intBestätigung = MsgBox(„Wollen Sie den Eintrag wirklich löschen? Diese Aktion kann nicht rückgängig gemacht werden!“, vbOKCancel, „Eintrag löschen“)
If intBestätigung = vbOK Then
rst1.Delete
Else
'Nichts tun
End If
Ich habe im Formular einen Button „Löschen“ hinter dem der Code liegt. Du kannst über rst1![Feldname] auf die Inhalte der Felder des Datensatzes zugreifen und den String der MsgBox entsprechend Deinen Wünschen zusammensetzen.
HTH,
Ulrich