{"id":55000727,"date":"2026-10-01T00:00:00","date_gmt":"2026-10-01T00:00:00","guid":{"rendered":"http:\/\/access-basics.de\/727"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Rechnungsverwaltung_Kunden_und_Artikel_sicher_loeschen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Rechnungsverwaltung_Kunden_und_Artikel_sicher_loeschen.html","title":{"rendered":"Rechnungsverwaltung: Kunden und Artikel sicher -löschen"},"content":{"rendered":"

In den Übersichtsformularen für Kunden und Artikel gibt es seit den ersten Artikeln der Reihe eine Schaltfläche zum Löschen. Solange ein Kunde noch keine Rechnung hat, löscht sie den Kunden. Hat er Rechnungen, bleibt der Kunde stehen, ohne dass die Schaltfläche erklärt, warum. Dass das Löschen scheitert, ist gewollt, die fehlende Rückmeldung nicht. Wie wir vor dem Löschen prüfen, ob zu einem Kunden oder Artikel noch Daten gehören, und wie wir Fehler beim Löschen mit einer Fehlerbehandlung abfangen, liest Du in diesem Artikel.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels findest Du in der Datenbank Rechnungsverwaltung_KundenUndArtikelLoeschen.accdb<\/b>. Sie baut auf der Datenbank aus dem Artikel Rechnungsverwaltung: Ansprechpartner zu Kunden verwalten<\/b> (www.access-basics.de\/726<\/b>) auf.<\/p>\n

Das Problem<\/h2>\n

Sehen wir uns zuerst an, was bisher passiert. Öffne das Formular frmKundenuebersicht<\/b>, markiere die Kolbe Elektrotechnik GmbH und klicke auf Kunde löschen<\/b>. Nach unserer eigenen Rückfrage meldet Access gar nichts und ignoriert das Löschen einfach.<\/p>\n

Markieren wir den Datensatz dagegen über den Datensatzmarkierer und löschen ihn mit der Entf<\/b>-Taste, erscheint die Meldung, dass der Datensatz nicht gelöscht werden kann, weil die Tabelle tblRechnungen<\/b> in Beziehung stehende Datensätze enthält (siehe Bild 1).<\/p>\n

\"Die<\/a><\/p>\n

Bild 1: Die Meldung von Access beim Löschen eines Kunden mit Rechnungen<\/p>\n

Die Meldung ist inhaltlich richtig. Im Datenmodell haben wir die Beziehung zwischen tblKunden<\/b> und tblRechnungen<\/b> mit referentieller Integrität, aber ohne Löschweitergabe angelegt. Ein Kunde, zu dem Rechnungen gehören, lässt sich deshalb nicht löschen, denn Rechnungen, die wir gestellt haben, müssen wir aufbewahren. Die Beziehung schützt zusätzlich alle weiteren Rechnungen eines Kunden.<\/p>\n

Hätten wir eine Löschweitergabe eingerichtet, würde Access mit dem Kunden alle seine Rechnungen löschen.<\/p>\n

Verbessern wollen wir also die Art, wie das Löschen scheitert. Die Schaltfläche meldet nichts, und die Meldung von Access beim manuellen Löschen nennt Tabellen und Beziehungen, die ein Benutzer nicht kennt.<\/p>\n

Außerdem fragen wir zuerst, ob der Kunde wirklich gelöscht werden soll, obwohl das Löschen gar nicht möglich ist. Deshalb prüfen wir vorher und fragen nur, wenn das Löschen möglich ist. <\/p>\n

Bei den Artikeln der Rechnungsverwaltung gilt dasselbe: Die Beziehung zwischen tblArtikel<\/b> und tblRechnungspositionen<\/b> hat ebenfalls keine Löschweitergabe, und ein Artikel, der in einer Rechnungsposition verwendet wird, lässt sich nicht löschen.<\/p>\n

Vorher prüfen statt Fehler abwarten<\/h2>\n

Ob zu einem Kunden Rechnungen gehören, ermitteln wir mit einer einzigen Zeile. Die Funktion DCount<\/b> zählt die Datensätze in tblRechnungen<\/b>, deren KundeID<\/b> mit der des Kunden übereinstimmt.<\/p>\n

Das erste Argument ist das Sternchen (*)<\/b>, mit dem wir alle Datensätze zählen. Das zweite nennt die Tabelle, das dritte das Kriterium. Öffne mit Strg+G<\/b> den Direktbereich und gib die folgende Zeile ein. Die Kolbe Elektrotechnik GmbH hat in der Beispieldatenbank die KundeID<\/b> 5<\/b>:<\/p>\n

Debug.Print<\/span><\/span> DCount(\"*\", \"tblRechnungen\", \"KundeID = 5\")\r\n2<\/pre>\n
Ist das Ergebnis größer als 0<\/b>, brechen wir mit einer verständlichen Meldung ab. Andernfalls fragen wir nach und löschen den Kunden nach Bestätigung.<\/p>\n
Die neue Prozedur zum Löschen eines Kunden<\/h2>\n
Öffne frmKundenuebersicht<\/b> in der Entwurfsansicht, markiere die Schaltfläche cmdKundeLoeschen<\/b> und öffne das Eigenschaftenblatt.<\/p>\n
Klicke auf der Registerkarte Ereignis<\/b> bei Beim Klicken<\/b> auf die Schaltfläche mit den drei Punkten. Ersetze im VBA-Editor die gesamte Prozedur cmdKundeLoeschen_Click<\/b> durch die Prozedur aus Listing 1.<\/p>\n
Private Sub <\/span>cmdKundeLoeschen_Click()\r\n     Dim <\/span>lngKundeID As Long<\/span>\r\n     Dim <\/span>lngAnzahl As Long<\/span>\r\n     On Error GoTo<\/span> Fehler\r\n     If <\/span>IsNull(Me!sfmKundenuebersicht.Form!KundeID) Then<\/span> Exit Sub<\/span>\r\n     lngKundeID = Me!sfmKundenuebersicht.Form!KundeID\r\n     lngAnzahl = DCount(\"*\", \"tblRechnungen\", \"KundeID = \" & lngKundeID)\r\n     If <\/span>lngAnzahl > 0 Then<\/span>\r\n         MsgBox<\/span> \"Dieser Kunde hat \" & lngAnzahl & \" Rechnung(en) und kann deshalb nicht gelöscht werden.\", vbExclamation\r\n         Exit Sub<\/span>\r\n     End If<\/span>\r\n     If MsgBox<\/span>(\"Diesen Kunden wirklich löschen? Seine Ansprechpartner \" _\r\n             & \"werden dabei ebenfalls gelöscht.\", vbQuestion + vbYesNo) = vbNo Then\r\n         Exit Sub<\/span>\r\n     End If<\/span>\r\n     CurrentDb.Execute \"DELETE FROM tblKunden WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n     Me!sfmKundenuebersicht.Form.Requery\r\nEnde:\r\n     Exit Sub<\/span>\r\nFehler:\r\n     If <\/span>Err.Number = 3200 Then<\/span>\r\n         MsgBox<\/span> \"Der Kunde kann nicht gelöscht werden, weil noch andere Daten zu ihm gespeichert sind.\", vbExclamation\r\n     Else<\/span>\r\n         MsgBox<\/span> \"Fehler \" & Err.Number & \": \" & Err.Description, vbCr<\/span>itical\r\n     End If<\/span>\r\n     Resume Ende\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Die neue Prozedur cmdKundeLoeschen_Click in frmKundenuebersicht<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t