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

Antwort

Ja, das ist möglich. Du kannst VBA-Code verwenden, um auf das Ereignis zu reagieren, wenn eine Checkbox deaktiviert wird, und dann den entsprechenden Datensatz aus einer Access-Tabelle löschen. 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 rs As DAO.Recordset Dim sql As String ' Überprüfen, ob die Checkbox deaktiviert wurde If Me.DeineCheckbox.Value = False Then ' Verbindung zur Datenbank herstellen Set db = CurrentDb ' SQL-Befehl zum Löschen des Datensatzes sql = "DELETE FROM DeineTabelle WHERE DeinFeld = " & Me.DeinFeldWert ' SQL-Befehl ausführen db.Execute sql, dbFailOnError ' Aktualisieren des Formulars oder anderer Aktionen Me.Requery End If End Sub ``` Ersetze `DeineCheckbox` durch den Namen deiner Checkbox, `DeineTabelle` durch den Namen deiner Tabelle und `DeinFeld` durch das Feld, das den Datensatz eindeutig identifiziert. `DeinFeldWert` sollte durch den Wert ersetzt werden, der den zu löschenden Datensatz identifiziert. Dieser Code überprüft, ob die Checkbox deaktiviert wurde, und führt dann einen SQL-Befehl aus, um den entsprechenden Datensatz aus der Tabelle zu löschen. Danach wird das Formular aktualisiert, um die Änderungen widerzuspiegeln.

KI fragen

Verwandte Fragen

Was bedeutet ErrNum 75 in Access VBA?

Der Fehlercode **ErrNum = 75** in Microsoft Access VBA steht für **"Pfad/Datei-Zugrifffehler"** (englisch: "Path/File access error"). Dieser Fehler tritt auf, wenn ein Zugriff... [mehr]

Wie erstelle ich in Access VBA eine SQL-Abfrage?

Um in Microsoft Access per VBA eine Abfrage (Query) mit SQL zu erstellen, kannst du das DAO-Objektmodell verwenden. Hier ein Beispiel, wie du per VBA eine neue Abfrage mit einer SQL-Anweisung erstells... [mehr]

Was ist falsch an folgendem Access VBA SQL-Statement: strSQL = "INSERT INTO tbl_Bestände_HZV (Datum, RLEx) IN " & strPfadExtern & "." & ZielTabelle & ...?

In deinem SQL-Statement gibt es mehrere Probleme: 1. **Syntaxfehler bei `IN`**: Das `IN`-Schlüsselwort wird in Access-SQL für das Einfügen in eine externe Tabelle verwendet, aber... [mehr]

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]

Was bedeutet 'On Error GoTo 0'?

Die Anweisung `On Error GoTo 0` stammt aus der Programmiersprache Visual Basic (z. B. VBA, VB6). Sie wird verwendet, um die aktuelle Fehlerbehandlung zu deaktivieren. Das bedeutet: - Nach `On Error G... [mehr]

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Der Ausdruck `Shapes("Rechteck 1").Visible = True` ist in Excel-VBA **nicht korrekt**, da das `Visible`-Eigenschaftsmerkmal für Shapes in Excel-VBA **nicht existiert**. In Excel-VBA s... [mehr]

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Der gezeigte Code ist in Excel-VBA **nicht korrekt** und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der `Rows`-Funktion. Hier die Analyse: **Dein Code:** ```vba HeightPt =... [mehr]

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle **A1** steht der RGB-... [mehr]