Wie lösche ich einen Datensatz aus einer Access-Tabelle, wenn die Checkbox mit VBA-Code deaktiviert wird?

Antwort

Um einen Datensatz aus einer Access-Tabelle zu löschen, wenn eine Checkbox deaktiviert wird, kann VBA-Code verwendet werden. Hier ist ein Beispiel, wie das gemacht werden kann: 1. Öffne das Formular in der Entwurfsansicht. 2. Wähle die Checkbox aus, die das Ereignis auslösen soll. 3. Gehe zu den Eigenschaften der Checkbox und wähle das Ereignis "Nach Aktualisierung" (After Update). 4. Klicke auf die Schaltfläche "..." neben dem Ereignis, um den VBA-Editor zu öffnen. 5. Füge den folgenden Code ein: ```vba Private Sub DeineCheckbox_AfterUpdate() Dim db As DAO.Database Dim strSQL As String ' Überprüfen, ob die Checkbox deaktiviert wurde If Me.DeineCheckbox.Value = False Then ' Setze die Datenbankvariable auf die aktuelle Datenbank Set db = CurrentDb ' Erstelle die SQL-Löschabfrage strSQL = "DELETE FROM DeineTabelle WHERE DeinFeld = " & Me.DeinPrimärschlüsselFeld ' Führe die SQL-Abfrage aus db.Execute strSQL, dbFailOnError ' Aktualisiere das Formular, um die Änderungen anzuzeigen Me.Requery End If End Sub ``` Ersetze `DeineCheckbox` durch den Namen deiner Checkbox, `DeineTabelle` durch den Namen deiner Tabelle, `DeinFeld` durch das Feld, das den Datensatz eindeutig identifiziert, und `DeinPrimärschlüsselFeld` durch das entsprechende Feld im Formular. Dieser Code überprüft, ob die Checkbox deaktiviert wurde, und führt dann eine SQL-Löschabfrage aus, um den entsprechenden Datensatz aus der Tabelle zu löschen. Anschließend wird das Formular aktualisiert, um die Änderungen anzuzeigen.

KI fragen

Verwandte Fragen

Warum tritt in Access VBA bei der Abfrage 'If AnlageNeu = "Schleifmaschine" And Nachklassifizierung Is Null Then' die Fehlermeldung 'Objekt erforderlich' auf?

Die Fehlermeldung **"Objekt erforderlich"** in VBA tritt meist auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert oder falsch deklariert wurde. In deinem Fall liegt das... [mehr]

Wie kann man in Access VBA eine Pause von 10 Sekunden einlegen?

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32&qu... [mehr]

Wie kann man eine per Access-VBA automatisch geöffnete Excel-Datei direkt wieder schließen?

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das g... [mehr]

Wie kann man in Access VBA die Bildschirmaktualisierung verhindern bzw. den Bildschirm einfrieren?

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". D... [mehr]

Wie öffne ich per VBA aus einer Access-Anwendung eine andere Access-Anwendung?

Um aus einer Access-Anwendung per VBA eine andere Access-Anwendung zu öffnen, kannst du das **CreateObject**-Kommando verwenden und die gewünschte Datenbank mit der **OpenCurrentDatabase**-M... [mehr]

Wie kann ich mit VBA einen Zellenbereich kopieren und in die nächste freie Zeile einfügen?

Um mit VBA einen bestimmten Zellenbereich (z.B. `A1:C3`) zu kopieren und in die nächst freie Zeile einer anderen Spalte oder Tabelle einzufügen, kannst du folgenden Beispielcode verwenden:... [mehr]

Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?

Um Zahlen wie 6,9999999999 in Excel-VBA beim Schreiben in eine .txt-Datei **nicht** im wissenschaftlichen Format (z. B. 6,9999999999E+00), sondern exakt so wie sie sind (mit allen Nachkommastellen), z... [mehr]

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"`... [mehr]

Wie kann ich mit VBA Daten zeilenweise aus mehreren Tabellen in eine Gesamttabelle kopieren?

Um mit VBA Daten zeilenweise aus mehreren Tabellenblättern in eine Gesamttabelle zu kopieren, kannst du folgenden Ansatz verwenden: 1. **Alle relevanten Tabellenblätter durchlaufen** 2. **D... [mehr]

Was bedeutet der Befehl "QuellBlatt1.Rows(2).Copy" in VBA?

Der Befehl `QuellBlatt1.Rows(2).Copy` in VBA (Visual Basic for Applications) bedeutet, dass die **zweite Zeile** (Row 2) des Arbeitsblatts mit dem Namen oder Objektverweis `QuellBlatt1` **kopiert** wi... [mehr]