<\/p>\n
Das Löschen von Datensätzen in einem Formular ist eigentlich kein großes Problem: Man markiert den Datensatz über den Datensatzmarkierer und klickt auf die Entfernen-Taste. Manch ein Benutzer verzweifelt vielleicht daran, den Datensatz über den Datensatzmarkierer zu selektieren, weshalb er ihn dann nicht löschen kann – dann baut man ihm halt eine Schaltfläche, die auch den Datensatz löscht, der aktuell den Fokus hat. Was aber, wenn wir noch Aktionen durchführen wollen, bevor der Datensatz gelöscht wird – beispielsweise das Archivieren des Datensatzes oder das Ausführen weiterer Aktionen nach dem Löschen Wie das funktioniert und was Sie beachten müssen, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Als Beispiel greifen wir die Datenbank aus dem Beitrag Reihenfolge einfach festlegen <\/b>auf (www.access-im-unternehmen.de\/1129<\/b>). Hier verwenden wir ein Formular mit einem Unterformular, um die Daten der Tabelle tblArtikel <\/b>in der Datenblattansicht anzuzeigen.<\/p>\nEreignisse beim Löschen<\/h2>\n
Beim Löschen eines Datensatzes in einem Formular werden verschiedene Ereignisse ausgelöst. Wenn wir im Eigenschaftsfenster des Unterformulars zum Bereich Ereignis wechseln, finden wir einige Ereignisse, die möglicherweise in Zusammenhang mit dem Löschen eines Datensatzes ausgelöst werden. Genau das wollen wir untersuchen, also legen wir für die in Bild 1 mit dem Wert [Ereignisprozedur] <\/b>versehenen Eigenschaften entsprechende Ereignisprozeduren an.<\/p>\n
![\"Ereignisse,](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_001.png\")
<\/p>\n
Bild 1: Ereignisse, die möglicherweise beim Löschen ausgelöst werden<\/span><\/b><\/p>\n Die dadurch automatisch im Klassenmodul des entsprechenden Formulars angelegten Ereignisprozeduren statten wir mit jeweils einer Debug.Print<\/b>-Anweisung aus, welche lediglich den Namen der Ereignisprozedur im Direktfenster ausgibt.<\/p>\n Die Prozeduren sehen dann wie folgt aus:<\/p>\n Wenn Sie nun einen Datensatz im Unterformular markieren und diesen mit der Entf<\/b>-Taste oder dem entsprechenden Ribbon-Eintrag löschen, erscheint die Meldung aus Bild 2.<\/p>\n Bild 2: Meldung beim Löschen eines Datensatzes<\/span><\/b><\/p>\n Diese Meldung besagt, dass das Löschen dieses Datensatzes das Löschen verknüpfter Datensätze (in diesem Fall aus der Tabelle tblBestelldetails<\/b>) nach sich ziehen würde.<\/p>\n Wenn Sie einen neuen Datensatz in diesem Formular anlegen, der noch keine verknüpften Datensätze in der Tabelle tblBestelldetails<\/b> aufweist und diesen löschen, erscheint eine andere Meldung – nämlich die aus Bild 3.<\/p>\n Bild 3: Meldung beim Löschen eines nicht mit anderen Datensätzen in Beziehung stehenden Datensatzes<\/span><\/b><\/p>\n Zu diesem Zeitpunkt werfen wir auch einen Blick in den Direktbereich des VBA-Editors. Dieser sieht nun wie in Bild 4 aus. Wir merken uns den aktuellen Zustand und bestätigen die Löschmeldung mit einem Klick auf die Schaltfläche Ja<\/b>.<\/p>\n Bild 4: Der Direktbereich mitten in einem Löschvorgang<\/span><\/b><\/p>\n Im Direktbereich sieht es dann wie folgt aus, wobei wir den Zeitpunkt der Anzeige der Löschmeldung hier durch einen entsprechenden Kommentar eingefügt haben:<\/p>\n Beim Löschen werden also vier Ereignisse ausgelöst:<\/p>\n Wenn wir beim Erscheinen des Meldungsfensters nicht auf Ja<\/b>, sondern auf Nein <\/b>klicken, löst dies noch ein Ereignis mehr aus:<\/p>\n Das Current<\/b>-Ereignis (Beim Anzeigen<\/b>) wird hier ausgelöst, weil der Datensatzzeiger wieder auf den zu löschenden Datensatz eingestellt wird.<\/p>\n Aber gab es da nicht die Möglichkeit, die Löschbestätigung zu deaktivieren und Datensätze direkt zu löschen, wenn man auf die Entf<\/b>-Taste klickt Ja, die gibt es.<\/p>\n Dazu öffnen Sie den Optionen-Dialog von Access und wechseln dort zum Bereich Clienteinstellungen<\/b>. Hier finden Sie unter Bestätigen <\/b>drei Optionen: Datensatzänderungen<\/b>, Löschen von Dokumenten <\/b>und Aktionsabfragen<\/b> (siehe Bild 5). In unserem Fall benötigen wir die Option Datensatzänderungen<\/b>, die wir deaktivieren.<\/p>\n Bild 5: Einstellungen für verschiedene änderungen<\/span><\/b><\/p>\n Was geschieht nun im Direktbereich, wenn wir einen Datensatz löschen Es werden nur noch die folgenden beiden Ereignisse ausgelöst:<\/p>\n Wann immer wir die Ereignisse mit Prozeduren versehen möchten, müssen wir also bei Vor Löschbestätigung <\/b>und Nach Löschbestätigung <\/b>berücksichtigen, dass diese bei deaktivierter Option Datensatzänderungen auf dem Client-Rechner <\/b>nicht ausgeführt werden.<\/p>\n Wenn Sie die Warnmeldungen unabhängig von den Einstellungen auf dem Clientrechner abschalten wollen, etwa um keine Meldung anzuzeigen, können Sie die Meldungen auch per VBA deaktivieren.<\/p>\n Dazu rufen Sie einfach die Methode SetWarnings <\/b>des DoCmd<\/b>-Objekts mit dem Parameter False <\/b>auf:<\/p>\n Danach können Sie beispielsweise per VBA den Datensatz löschen und anschließend die Warnmeldungen wieder aktivieren:<\/p>\n Diese Einstellung hat keinen direkten Einfluss auf die Option Datensatzänderung<\/b>; das heißt, sie ändert nicht den Wert dieser Option. Sie sorgt vielmehr dafür, dass Access zum Beispiel beim Durchführen von änderungen wie auch beim Löschen von Daten so tut, als ob der Benutzer für alle angezeigten Warnmeldungen einfach die Eingabetaste betätigt. Es wird also jeweils die standardmäßige Aktion für die Warnmeldung ausgeführt. Beim Löschen eines Datensatzes handelt es sich also beispielsweise die als Standard markierte Schaltfläche Ja <\/b>betätigt.<\/p>\n Dies wirkt sich übrigens auf alle Aktionen aus, die mit einer Meldung reagieren, die lediglich Schaltflächen als Reaktionsmöglichkeit anbieten. Wenn Sie also etwa eine Parameterabfrage nutzen wollen, werden ihre Inputboxen auch bei abgeschalteten Meldungen angezeigt.<\/p>\n Sie können die Option Datensatzänderungen <\/b>auch per VBA ändern. Und noch besser: Sie können diese sogar abfragen! Dies schauen wir uns zuerst an. Die Methode zum Abfragen vieler der Einstellungen aus dem Optionen-Dialog lautet GetOption<\/b>. Sie erwartet den Namen der englischen Option als Parameter. Für die Option Datensatzänderungen <\/b>heißt der Parameter beispielsweise Confirm Record Changes<\/b>. Sie können den Wert mit der Debug.Print<\/b>-Methode im Direktbereich des VBA-Editors ausgeben:<\/p>\n Dies liefert bei aktivierter Option beispielsweise den Wert -1<\/b>, also True<\/b>. Nun wollen wir die Option deaktivieren, zunächst über die Benutzeroberfläche. Dazu entfernen Sie den Haken von der Option Datensatzänderungen <\/b>und schließen den Optionen-Dialog wieder. Anschließend fragen wir den Wert der Option erneut über den Direktbereich ab:<\/p>\n Es gelingt – wir konnten die änderung erfolgreich per VBA abfragen. Nun wollen wir die Option per VBA wieder aktivieren. Dazu nutzen wir die Anweisung SetOption<\/b>, wieder mit dem Namen der Option als ersten Parameter. Als zweiten Parameter geben wir den festzulegenden Wert an, in diesem Fall True<\/b>:<\/p>\n Wenn wir nun erneut den Optionen-Dialog öffnen, erhalten wir das Ergebnis aus Bild 6 – die Option wurde erfolgreich eingestellt. Zum Deaktivieren der Option nutzen wir wieder die folgende Anweisung:<\/p>\n Bild 6: Erfolgreich per VBA geänderte Option<\/span><\/b><\/p>\n Wenn der Benutzer nun für seine eigenen Anwendungen die Option Datensatzänderungen<\/b> auf True <\/b>eingestellt haben, Sie aber möchten, dass diese Option für einen besseren ergonomischen Ablauf bei der Benutzung Ihrer eigenen Anwendung deaktiviert wird, können Sie wie folgt vorgehen:<\/p>\n Legen Sie für die Ereignisprozedur Beim Laden <\/b>eine Prozedur an, welche die Option Confirm Record Changes<\/b> prüft, den Wert in einer Variablen speichert und die Option dann gegebenenfalls auf den Wert False <\/b>einstellt.<\/p>\n Der Benutzer kann dann Datensatzänderungen durchführen, ohne dass die lästigen Meldungen angezeigt werden. Beim Schließen des Formulars wird das Ereignis Beim Entladen <\/b>ausgelöst.<\/p>\n Für dieses legen Sie eine weitere Prozedur an, welche den Wert der Option Confirm Record Changes <\/b>wieder auf den beim öffnen vorgefundenen Wert einstellt.<\/p>\n Als Erstes benötigen wir dazu eine Boolean<\/b>-Variable, in der wir den Zustand der Option Datensatzänderungen <\/b>beim öffnen des Formulars speichern. Diese deklarieren wir oben im allgemeinen Teil des Klassenmoduls:<\/p>\n Die Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird, sieht wie folgt aus:<\/p>\n Sie speichert zunächst den Wert der Option Confirm Record Changes <\/b>in der Variablen bolConfirmRecordChanges<\/b>. Hat diese dann den Wert True<\/b>, stellt sie die Option mit der SetOption<\/b>-Anweisung auf den Wert False <\/b>ein.<\/p>\n <\/p>\n In der Prozedur, die durch das Ereignis Beim Entladen <\/b>ausgelöst wird, stellen wir die Option dann einfach wieder auf den Wert der Variablen bolConfirmRecordChanges <\/b>ein, den wir beim öffnen ermittelt haben, und stellen so den Ausgangszustand wieder her:<\/p>\n Wenn Sie die Anzeige einer Warnmeldung vor dem Löschen von Datensätzen beibehalten wollen, aber die standardmäßig angezeigte Meldung ersetzen möchten, können Sie dies auch tun.<\/p>\n Dazu hinterlegen wir eine Prozedur für das Ereignis Vor Löschbestätigung<\/b>, die wie in Listing 1 aussieht. Die Prozedur fragt den Benutzer mit einer eigenen Meldung, ob dieser den Datensatz wirklich löschen will.<\/p>\n Listing 1: Anzeigen einer alternativen Meldung beim Löschen eines Datensatzes<\/span><\/b><\/p>\n Lautet das Ergebnis nein (vbNo<\/b>), stellt die Prozedur den Wert des Parameters Cancel <\/b>auf den Wert True <\/b>ein. Dadurch wird der Lösch-Vorgang abgebrochen. Damit die eingebaute Standardmeldung unterdrückt wird, legen wir außerdem für den Parameter Response <\/b>den Wert acDataErrContinue <\/b>fest. Das Ergebnis sieht nun wie in Bild 7 aus.<\/p>\n Bild 7: Eigene Meldung beim Löschen eines Datensatzes<\/span><\/b><\/p>\n Leider hat Access den Datensatz zu diesem Zeitpunkt bereits aus dem Formular entfernt und der Benutzer kann nicht prüfen, ob er wirklich den richtigen Datensatz gelöscht hat. Wie können wir dieses Problem lösen<\/p>\n Wir könnten beispielsweise versuchen, den Wert des Feldes Artikelname <\/b>zu ermitteln und diesen in die Meldung einzuarbeiten, damit der Benutzer sieht, welchen Artikel er gerade löscht.<\/p>\n Dummerweise können wir beim Auslösen der Ereignisprozedur Vor Löschbestätigung <\/b>nicht mehr über den Bezug Me!Artikelname <\/b>auf den Artikelnamen zugreifen, da der Datensatz zu diesem Zeitpunkt schon nicht mehr im Formular angezeigt wird. Der Datensatzzeiger zeigt hier auf den leeren, neuen Datensatz und Me!Artikelname <\/b>liefert den Wert Null<\/b>.<\/p>\n Aber es gibt ja noch die Ereignisprozedur Beim Löschen<\/b>. Wird diese ausgelöst, ist der Datensatz noch sichtbar. Wir können also hier beispielsweise den Namen des Artikels in eine Variable schreiben und ihren Inhalt dann in der Ereignisprozedur für Vor Löschbestätigung <\/b>auslesen und nutzen.<\/p>\n Die Variable deklarieren wir wie folgt im allgemeinen Teil des Klassenmoduls zum Unterformular:<\/p>\n Die Ereignisprozedur für das Ereignis Beim Löschen <\/b>passen wir wie folgt an:<\/p>\n Die MsgBox<\/b>-Anweisung in der Prozedur Form_BeforeDelConfirm <\/b>erweitern wir dann wie folgt um den Namen des zu löschenden Artikels:<\/p>\n Das Ergebnis ist die Meldung aus Bild 8, der die Bezeichnung des Artikels in einer eigenen Zeile hervorhebt.<\/p>\n Bild 8: Um die Bezeichnung des zu löschenden Artikels erweiterte Löschbestätigung<\/span><\/b><\/p>\n Wie so oft gibt es aber in Access verschiedene Methoden, um eine Aufgabe zu lösen. Wie wäre es beispielsweise, wenn der Datensatz beim Auftauchen der Meldung zur Löschbestätigung noch vorhanden und markiert ist<\/p>\n Dann könnte der Benutzer noch einmal genau auf den Datensatz schauen und sich dann überlegen, ob er diesen löschen möchte. Auch das können wir realisieren, denn es gibt ja auch noch die Ereignisprozedur Beim Löschen<\/b>.<\/p>\n Diese gestalten wir in der Kombination aus dem Hauptformular frmArtikelLoeschen<\/b> und dem Unterformular sfmArtikelLoeschen <\/b>wie in Listing 2. Da das Ereignis Beim Löschen <\/b>direkt nach dem Betätigen der Entf<\/b>-Taste beziehungsweise des entsprechenden Ribbon-Befehls, aber vor dem Entfernen des Datensatzes ausgeführt wird, ist der zu löschende Datensatz zu diesem Zeitpunkt noch sichtbar.<\/p>\n Listing 2: Anzeigen einer alternativen Meldung beim Löschen eines Datensatzes in Form_Delete<\/span><\/b><\/p>\n Außerdem ist der zu löschende Datensatz auch noch markiert, was den Bedienkomfort maximiert – siehe auch Bild 9.<\/p>\n Bild 9: Löschbestätigung bei noch sichtbarem Datensatz<\/span><\/b><\/p>\n Um das Beispiel abzurunden, müssen wir nur noch dafür sorgen, dass die Meldung, die Access standardmäßig anzeigt, unterbunden wird. Dazu nutzen wir wiederum die Prozedur, die durch das Ereignis Vor Löschbestätigung <\/b>ausgeführt wird. Hier stellen wir einfach nur den Parameter Response <\/b>auf den Wert acDataErrContinue <\/b>ein:<\/p>\n Daraus können wir dann auch noch eine Methode zum Unterbinden der Standard-Löschbestätigungen ableiten, ohne dass wir die Option Datensatzänderungen <\/b>beziehungsweise Confirm Record Changes <\/b>anpassen müssen. Dazu brauchen Sie einfach nur den Parameter Response <\/b>in der Ereignisprozedur Form_BeforeDelConfirm <\/b>auf den Wert acDataErrContinue <\/b>einstellen:<\/p>\n Dieses Beispiel finden Sie in den beiden Formularen frmArtikelLoeschen_II <\/b>und sfmArtikelLoeschen_II<\/b>.<\/p>\n Die Vorgehensweise mit dem Verbleib der Anzeige der zu löschenden Datensätze gelingt sogar beim Löschen mehrerer Datensätze (siehe Bild 10).<\/p>\n Bild 10: Löschbestätigung beim Löschen mehrerer Datensätze<\/span><\/b><\/p>\n Allerdings stimmt genau genommen hier der Text der Meldung nicht mehr, denn diese bezieht sich ja nur auf einen einzigen Datensatz. Bekommen wir es der Ordnung halber hier noch hin, den Text auch für mehrere Datensätze passend zu machen Klar: Man könnte einfach einen Text wie Möchten Sie den\/die markierten Datensätze löschen <\/b>einsetzen.<\/p>\n Aber das ist uns etwas zu einfach. Außerdem zeigt sich bei näherer Betrachtung, dass die Meldungsbox für jeden zu löschenden Datensatz angezeigt wird. Die Ereignisprozedur Form_Delete <\/b>wird also für jeden zu löschenden Datensatz einmal aufgerufen.<\/p>\n Also suchen wir einen Weg, wie Sie vor dem Löschen ermitteln können, wie viele Datensätze der Benutzer im Datenblatt markiert hat und wie Sie dafür sorgen, dass die Meldung nur einmal angezeigt wird.<\/p>\n Das Hauptproblem dabei ist nicht, die Meldung abhängig von der Anzahl im Singular oder Plural zu definieren, sondern die Begrenzung der Anzeige der Meldung auf ein einziges Mal. Dazu haben wir das Klassenmodul des Unterformulars frmArtikelLoeschen_II <\/b>mit dem Code aus Listing 3 gefüllt.<\/p>\n Listing 3: Löschen eines oder mehrerer Datensätze<\/span><\/b><\/p>\n Wir benötigen drei Variablen:<\/p>\nPrivate Sub <\/span>Form_AfterDelConfirm(Status As Integer<\/span>)\r\n Debug.Print<\/span> \"AfterDelConfirm\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_AfterUpdate()\r\n Debug.Print<\/span> \"AfterUpdate\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, _\r\n Response As Integer<\/span>)\r\n Debug.Print<\/span> \"BeforeDelConfirm\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"BeforeUpdate\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Current()\r\n Debug.Print<\/span> \"Current\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Delete(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"Delete\"\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_002.png\")
<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_005.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_003.png\")
<\/p>\nDelete\r\nCurrent\r\nBeforeDelConfirm\r\n''''Meldung\r\nAfterDelConfirm<\/pre>\n
\n
Delete\r\nCurrent\r\nBeforeDelConfirm\r\nCurrent\r\nAfterDelConfirm<\/pre>\n
Löschbestätigung deaktivieren<\/h2>\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_004.png\")
<\/p>\nDelete\r\nCurrent<\/pre>\n
Warnungen per VBA ausschalten<\/h2>\n
DoCmd.SetWarnings False<\/span><\/pre>\nDoCmd.SetWarnings True<\/span><\/pre>\nOption per VBA ändern<\/h2>\n
Debug.Print<\/span> GetOption (\"Confirm Record Changes\")\r\n-1 <\/pre>\nDebug.Print<\/span> GetOption (\"Confirm Record Changes\")\r\n 0 <\/pre>\nSetOption \"Confirm Record Changes\", True<\/span><\/pre>\n![\"Erfolgreich](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_006.png\")
<\/p>\nSetOption \"Confirm Record Changes\", False<\/span><\/pre>\nDim <\/span>bolConfirmRecordChanges As Boolean<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n bolConfirmRecordChanges = _\r\n GetOption(\"Confirm Record Changes\")\r\n If <\/span>bolConfirmRecordChanges = True<\/span> Then<\/span>\r\n SetOption \"Confirm Record Changes\", False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Unload(Cancel As Integer<\/span>)\r\n SetOption \"Confirm Record Changes\", _\r\n bolConfirmRecordChanges\r\nEnd Sub<\/span><\/pre>\nStandardmeldung durch eigene Meldung ersetzen<\/h2>\n
Private Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n intResult = MsgBox<\/span>(\"Möchten Sie den Datensatz wirklich löschen\", vbCr<\/span>itical + vbYesNo, \"Datensatz löschen\")\r\n If <\/span>intResult = vbNo Then<\/span>\r\n Cancel = True<\/span>\r\n End If<\/span>\r\n Response = acDataErrContinue\r\nEnd Sub<\/span><\/pre>\n![\"Eigene](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_007.png\")
<\/p>\nDim <\/span>strDeleted As String<\/span><\/pre>\nPrivate Sub <\/span>Form_Delete(Cancel As Integer<\/span>)\r\n strDeleted = Me!Artikelname\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, _\r\n Response As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n intResult = MsgBox<\/span>(\"Möchten Sie den Datensatz \" & vbCrLf<\/span> & vbCrLf<\/span> & \"''''\" & strDeleted & \"''''\" & vbCrLf<\/span> & vbCrLf<\/span> & \"wirklich löschen\", vbCr<\/span>itical + vbYesNo, \"Datensatz löschen\")\r\n ...\r\nEnd Sub<\/span><\/pre>\n![\"Um](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_008.png\")
<\/p>\nLöschbestätigung bei angezeigtem Datensatz<\/h2>\n
Private Sub <\/span>Form_Delete(Cancel As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n intResult = MsgBox<\/span>(\"Möchten Sie den markierten Datensatz wirklich löschen\", vbCr<\/span>itical + vbYesNo, _\r\n \"Datensatz löschen\")\r\n If <\/span>intResult = vbNo Then<\/span>\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Löschbestätigung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_009.png\")
<\/p>\nPrivate Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, _\r\n Response As Integer<\/span>)\r\n Response = acDataErrContinue\r\nEnd Sub<\/span><\/pre>\nStandard-Löschbestätigung unterbinden, kurze Version<\/h2>\n
Private Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, _\r\n Response As Integer<\/span>)\r\n Response = acDataErrContinue\r\nEnd Sub<\/span><\/pre>\nLöschen mehrerer Datensätze gleichzeitig<\/h2>\n
![\"Löschbestätigung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1128_010.png\")
<\/p>\nDim <\/span>intLoeschenGesamt As Integer<\/span>\r\nDim <\/span>intLoeschenAktuell As Integer<\/span>\r\nDim <\/span>bolNichtLoeschen As Boolean<\/span>\r\nPrivate Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, Response As Integer<\/span>)\r\n Response = acDataErrContinue\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Delete(Cancel As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n Dim <\/span>strMessage As String<\/span>\r\n If <\/span>intLoeschenAktuell = 0 Then<\/span>\r\n intLoeschenGesamt = Me.SelHeight\r\n If <\/span>intLoeschenGesamt > Me.Recordset.RecordCount Then<\/span>\r\n intLoeschenGesamt = Me.Recordset.RecordCount\r\n End If<\/span>\r\n intLoeschenAktuell = intLoeschenGesamt\r\n If <\/span>intLoeschenGesamt = 1 Then<\/span>\r\n strMessage = \"Möchten Sie den markierten Datensatz wirklich löschen\"\r\n Else<\/span>\r\n strMessage = \"Möchten Sie die \" & intLoeschenGesamt & \" markierten Datensätze wirklich löschen\"\r\n End If<\/span>\r\n intResult = MsgBox<\/span>(strMessage, vbCr<\/span>itical + vbYesNo, \"Datensatz löschen\")\r\n If <\/span>intResult = vbNo Then<\/span>\r\n bolNichtLoeschen = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>intLoeschenAktuell > 0 Then<\/span>\r\n If <\/span>bolNichtLoeschen = True<\/span> Then<\/span>\r\n Cancel = True<\/span>\r\n End If<\/span>\r\n intLoeschenAktuell = intLoeschenAktuell - 1\r\n If <\/span>intLoeschenAktuell = 0 Then<\/span>\r\n bolNichtLoeschen = False<\/span>\r\n intLoeschenGesamt = 0\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n\n