3 Fragen zu Delete

Der "delete-button" heißt auf Deutsch "Löschen-Taste".

In Microsoft Access VBA kannst du eine `DELETE`-Anweisung verwenden, um Datensätze aus einer Tabelle zu löschen, die mehreren Bedingungen entsprechen. Hier ist ein Beispiel, wie du dies tun kannst: Angenommen, du hast eine Tabelle namens `Mitarbeiter` mit den Feldern `MitarbeiterID`, `Vorname`, `Nachname` und `Abteilung`, und du möchtest alle Datensätze löschen, bei denen `Abteilung` gleich "Vertrieb" und `Nachname` gleich "Müller" ist. Hier ist der VBA-Code, um dies zu erreichen: ```vba Sub DeleteRecords() Dim db As DAO.Database Dim strSQL As String ' Setze die Datenbank-Variable auf die aktuelle Datenbank Set db = CurrentDb ' Erstelle die SQL-DELETE-Anweisung strSQL = "DELETE FROM Mitarbeiter WHERE Abteilung = 'Vertrieb' AND Nachname = 'Müller'" ' Führe die SQL-Anweisung aus db.Execute strSQL, dbFailOnError ' Gib die Datenbank-Variable frei Set db = Nothing End Sub ``` In diesem Beispiel wird die `DELETE FROM`-Anweisung verwendet, um alle Datensätze zu löschen, die den angegebenen Bedingungen entsprechen. Die `db.Execute`-Methode führt die SQL-Anweisung aus und löscht die entsprechenden Datensätze. Stelle sicher, dass du die richtigen Feldnamen und Werte verwendest, die zu deiner spezifischen Datenbank passen.

Die Fehlermeldung „Fehler bei der Namensbenennung“ in VBA bei `ThisWorkbook.Names(Verweisname).Delete` tritt meist auf, wenn einer der folgenden Punkte zutrifft: 1. **Der Name existiert nicht:** Wenn `ThisWorkbook.Names(Verweisname)` nicht existiert, wirft VBA einen Fehler. → Prüfe vor dem Löschen, ob der Name existiert. 2. **Ungültiger Name:** Der Wert von `Verweisname` enthält ungültige Zeichen oder ist leer. 3. **Der Name ist ein Arbeitsblatt-spezifischer Name:** `ThisWorkbook.Names` greift nur auf arbeitsmappenweite Namen zu, nicht auf blattspezifische. **Lösungsvorschlag:** Vor dem Löschen solltest du prüfen, ob der Name existiert: ```vba Dim Verweisname As String Dim n As Name Dim gefunden As Boolean Verweisname = "elem" gefunden = False For Each n In ThisWorkbook.Names If n.Name = Verweisname Or n.Name = ThisWorkbook.Name & "!" & Verweisname Then n.Delete gefunden = True Exit For End If Next If Not gefunden Then MsgBox "Name '" & Verweisname & "' nicht gefunden." End If ``` **Hinweise:** - Achte auf die genaue Schreibweise des Namens (Groß-/Kleinschreibung, evtl. Präfix mit Arbeitsmappenname). - Für blattspezifische Namen musst du über das entsprechende Arbeitsblatt gehen: `Worksheets("Blattname").Names(Verweisname).Delete` **Weitere Infos:** [Microsoft Dokumentation zu Names.Delete](https://learn.microsoft.com/de-de/office/vba/api/excel.names.delete) Falls du den Namen dynamisch erzeugst, prüfe auch, ob `Verweisname` gültig ist (keine Leerzeichen, keine Sonderzeichen).