PDA

Vollständige Version anzeigen : Löschen von Datensätzen


Christian-1981
05.05.2011, 16:24
Hallo Leute,
ist es möglich, per Button automatisch alle Datensätze die in der tabelle tbl_Wareneingang sind , und älter als 25 Tage Datumsspalte "Datum" automatisch zu löschen? Mit einer MSG Box zur Sicherheitsabfrage. Löscht es dann auch die in Beziehung stehenden Datensätze der anderen Tabellen raus?
Löschweitergabe ist aktiviert.

Danke

CptChaos
05.05.2011, 16:28
Ja, ist möglich über eine entsprechende Löschabfrage.

Diese kann als gespeicherte Abfrage angelegt und dann ausgeführt werden.
In dieser Abfrage ist das entsprechende Kriterium zu setzen.
In etwa: DELETE * FROM TableX WHERE DeinDatumsFeld < Date() - 25

Das ganze per VBA ausführen und eine entsprechende MsgBox davor schalten.
Für die Parameter der MsgBox bitte die OnlineHilfe befragen.

hcscherzer
05.05.2011, 16:31
Zur ersten Frage: ja.sub loesch_knopf_click()
if msgbox("wirklich löschen", vbyesno) = vbyes then
currentdb.execute "delete from tbl_wareneingang where datediff('d', eingangsdatum, date()) > 25"
end if
end sub
Das Feld mit dem Datum solltest Du nicht 'datum' nennen, das ist ein reserviertes Wort und macht nur Stress.

Zur zweiten Frage: wenn in der Beziehung die Löschweitergabe angehakt ist: ja.