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.
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.
Hallo,
das macht eine ganz einfache Löschabfrage.
CurrentDb.Execute "Delete From Tabellenname Where Zahl1 = 1", dbFailOnError