Office: (Office 2003) Alle Datensätze einer Tabelle löschen

paulWo · 14. März 2014

Hallo Access-Freunde,

über ein Formular löse ich eine Aktion aus, die aus einer Abfrage nach bestimmten Kriterien Datensätze in eine Tabelle schreibt. Diese Aktion läuft Super.
Das große Problem ist, ich muss die Datensätze in der Tabelle zuvor manuell löschen! (Strg+A & Entf)
Wie kann ich dieses Problem im Code lösen? Trotz zahlreicher Versuche konnte ich diese Schwierigkeit nicht lösen. Bin von dieser Materie schon zu weit weg.

Vielen Dank für Ihre Hilfe

Code:

Private Sub Exportieren_DblClick(Cancel As Integer)

On Error GoTo Err_Exportieren_DblClick

Dim obj_DB1 As Database
Dim obj_DB2 As Database
Dim obj_RE As DAO.Recordset
Dim obj_rs As DAO.Recordset

Dim var_Art As Variant ' Art, wie die Felder verteilt werden (0 - 8)

Dim var_Adr_ID As Variant
Dim var_Name1 As Variant
Dim var_Name2 As Variant
Dim var_Name3 As Variant
Dim var_Sex As Variant
Dim var_Titel As Variant
Dim var_Vorn As Variant
Dim var_Nachname As Variant
Dim var_Strasse As Variant
Dim var_Plz As Variant
Dim var_Ort As Variant

Dim lng_BtbAdr_ID As Long
Dim str_BtbAdr_Feld1 As String
Dim str_BtbAdr_Feld2 As String
Dim str_BtbAdr_Feld3 As String
Dim str_BtbBelegZeile As String
Dim str_BtbStrasse As String
Dim str_BtbPlz As String
Dim str_BtbOrt As String
Dim str_BtbAnrede As String

Dim str_ZK As String

Set obj_DB1 = CurrentDb
Set obj_RE = obj_DB1.OpenRecordset("Q_ztg_versand", dbOpenDynaset) 'BTB-Versand komplett

Do While Not obj_RE.EOF
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

usw....

Code:

Set obj_DB2 = CurrentDb
Set obj_rs = obj_DB2.OpenRecordset("tbl_BTB_Versand_Exel-Format")

With obj_rs

If var_Art = "0" Then
.AddNew
!ADR_ID = var_Adr_ID
!Belegzeile = str_BtbBelegZeile
!Adr_Feld1 = str_BtbAdr_Feld1
!Adr_Feld2 = str_BtbAdr_Feld2
' !Adr_Feld3 = "//"
!Strasse = var_Strasse
!Plz = var_Plz
!Ort = var_Ort
.Update
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

usw.

:)

maikek · 16. März 2014

Moin,
alle Datensätze löschen:
Code:

Dim strSQL as String
strSQL = "DELETE * FROM tblName"
CurrentDB.Execute strSQL, dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bestimmte Datensätze löschen:
Code:

strSQL = "DELETE * FROM tblName WHERE DeinKriterium"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

paulWo · 16. März 2014

Hallo Maike,

vielen dank für die schnelle Antwort. Ich habe Ihren ersten Code-Vorschlag kopiert und es kommt eine Fehlermeldung: "Syntaxfehler in FROM-Klausel".

Grundsätzliche Frage, wo muss ich diesen Code einfügen?

Grüße Paul

maikek · 16. März 2014

Einfügen musst du den Code, bevor die Tabelle wieder gefüllt wird. Vermutlich - anhand der gezeigten Ausschnitte kann ich das nur erahnen - hier:
Code:

'Code zum Löschen der Datensätze in tbl_BTB_Versand_Exel-Format:

Set obj_DB2 = CurrentDb
Set obj_rs = obj_DB2.OpenRecordset("tbl_BTB_Versand_Exel-Format")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Tabellenname im Beispielcode muss angepasst werden, "tblName" ist nur ein Platzhalter.
maike

paulWo · 16. März 2014

Hallo Maike,

nochmals vielen Dank, es klappt hervorragend!! Der Code muste gleich am Anfang der Aktion eingestellt werden. Den Tabellenname muste ich noch mit einer Klammern einfassen.

Viele Grüße Paul
Code:

Dim strSQL As String
strSQL = "DELETE * FROM [tbl_BTB_Versand_Exel-Format]"
CurrentDb.Execute strSQL, dbFailOnError

Set obj_DB1 = CurrentDb
Set obj_RE = obj_DB1.OpenRecordset("Q_ztg_versand", dbOpenDynaset)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek · 16. März 2014

Tja, wer Tabellennamen mit Bindestrichen drin hat, der muss halt eckige Klammern tippen *grins
maike

CSekulla · 16. März 2014

und gegen die Zahnschmerzen
das heißt:
exCel
wie "excellent"

cu CS

Office: (Office 2003) Alle Datensätze einer Tabelle löschen

Alle Datensätze einer Tabelle löschen

Alle Datensätze einer Tabelle löschen

Alle Datensätze einer Tabelle löschen

Alle Datensätze einer Tabelle löschen - Similar Threads - Datensätze Tabelle löschen

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Konvertierung von Tabellen

Abfrage von Datensetzen unter Ausschluss von Datensätzen anhand anderer Tabelle

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

Datensatz in Tabelle per VBA löschen

access tabelle datensätze doppelte löschen anfänger

Datensätze mit bestimmten Kriterien löschen und auf andere Tabelle übertragen