automatisches Löschen aller Datensätze mit Wert = 1

[tismo]

Hallo,

ich suche nach einer Lösung. Ich möchte, dass automatisch alle Datensätze gelöscht werden deren Wert in im Feld Zahl1 den Wert 1 haben.

Code [Auswählen] Erweitern

Private Sub Organisation_löschen_Click()

    Me![Organisation Beerdigung].SetFocus    'zum Unterformular springen
    If Me.[Organisation Beerdigung]![Zahl1] = "1" Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
   
    End If
   
End Sub

hierbei wird nur der aktive Datensatz, sofern das Steuerelement Zahl1 = 1 ist, gelöscht.

[MzKlMu]

Hallo,
das macht eine ganz einfache Löschabfrage.

Code [Auswählen] Erweitern

CurrentDb.Execute "Delete From Tabellenname Where Zahl1 = 1", dbFailOnError