Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Daten aus allen Tabellen löschen {Nachgefragt}
zurück: Laufzeitfehler '16386' weiter: Variablenwerte zwischen Formularen austauschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mcschipp
Newbie


Verfasst am:
01. Jul 2009, 12:06
Rufname:
Wohnort: BS

Alle Daten aus allen Tabellen löschen {Nachgefragt} - Alle Daten aus allen Tabellen löschen {Nachgefragt}

Nach oben
       

Nachfragen zum Thema Alle Daten aus allen Tabellen löschen (Willi Wipp)

Also ich bekomme es nicht hin.
Ich habe einen Button erzeugt:
Code:
Private Sub löschen_Click()...
' ErrorHandler...
End Sub
Wie und wo rufe ich nun die Funktion genau auf ?

Danke vorab
Willi Wipp
Moderator


Verfasst am:
01. Jul 2009, 13:49
Rufname:
Wohnort: Raum Wiesbaden


Re: Alle Daten aus allen Tabellen löschen {Nachgefragt} - Re: Alle Daten aus allen Tabellen löschen {Nachgefragt}

Nach oben
       

Hi mcschipp,

wenn Du die Funktion DelEverythingInAllTables in einem allgemeinen Modul (z.B. mldDelEverythingInAllTables)
gespeichert hast, dann einfach so
Code:
Private Sub löschen_Click()...
    DelEverythingInAllTables False
' bzw.
'   DelEverythingInAllTables True
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
mcschipp
Newbie


Verfasst am:
02. Jul 2009, 08:58
Rufname:
Wohnort: BS

AW: Alle Daten aus allen Tabellen löschen {Nachgefragt} - AW: Alle Daten aus allen Tabellen löschen {Nachgefragt}

Nach oben
       

Das ist mir dann auch eingefallen! Danke.
Ich mußte die Funktion auch zweimal ausführen bis alle Daten gelöscht waren.
Meine Vermutung:
Meine Daten waren z.T. "hierarchischer Ordnung" aufgebaut und die Funktion weigerte sich - verständlicher Weise - die Wurzel zu löschen. Macht man ja auch nicht.
Ansonsten sonnigen Tag!
mcschipp
Willi Wipp
Moderator


Verfasst am:
04. Jul 2009, 05:35
Rufname:
Wohnort: Raum Wiesbaden

Re: Alle Daten aus allen Tabellen löschen {Nachgefragt} - Re: Alle Daten aus allen Tabellen löschen {Nachgefragt}

Nach oben
       

Hi mcschipp,

entweder Du aktivierst in den definierten Beziehungen die Loeschweitergabe
oder Du stellst die Funktion so um (z.B. mit einem Array) das die richtige Reihenfolge verwendet wird.
Das ist dann allerdings nicht mehr so flexibel.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
ergy1983
Gast


Verfasst am:
04. Mai 2012, 15:16
Rufname:

AW: Alle Daten aus allen Tabellen löschen - AW: Alle Daten aus allen Tabellen löschen

Nach oben
       

Hmmm,

ich gebe zu, dass ich noch nicht so viel in VBA in Access gemacht habe, aber bei mir kommt immer der Fehler:
Zitat:
Fehler Nr. 3131 in Function: DelEverythingInAllTables Syntaxfehler in FROM-Klausel
Ich hab die Funktion direkt eingebaut?
Code:
Private Sub Datensatz_löschen_Click()
On Error GoTo HandleErr_Click
    Dim tabelle As AccessObject
    Dim wks As DAO.Workspace
    Dim dbs As DAO.Database

    Set wks = DBEngine.Workspaces(0)
    Set dbs = CurrentDb
    wks.BeginTrans
    For Each tabelle In Application.CurrentData.AllTables
        If Left(tabelle.Name, 4) <> "MSys" And _
           tabelle.Name <> "Switchboard Items" Then
            dbs.Execute " DELETE * FROM " & tabelle.Name
        End If
    Next
    wks.CommitTrans
ExitHere_Click:
    On Error Resume Next
    Set dbs = Nothing
    Set wks = Nothing
    Exit Sub
HandleErr_Click:
    DelEverythingInAllTables = False
    Select Case Err.Number
      Case Else
        If inTrans = True Then wks.Rollback
        MsgBox "Fehler Nr. " & Err.Number & _
               " in Function: DelEverythingInAllTables" & _
               vbCrLf & vbCrLf & Err.Description, vbExclamation, "Warnung"
        Resume ExitHere_Click
    End Select
End Sub
Ich hoffe, es liegt an mir... ;)

Viele Grüße,
Ergy
jens05
Moderator


Verfasst am:
04. Mai 2012, 19:07
Rufname:
Wohnort: ~~~~~


AW: Alle Daten aus allen Tabellen löschen - AW: Alle Daten aus allen Tabellen löschen

Nach oben
       

Hallo,
dann hast du vermutlich Sonderzeichen im Tabellennamen.
Code:
' Passe diese Zeile
'           dbs.Execute "DELETE * FROM " & tabelle.Name
' mal so an
            dbs.Execute "DELETE * FROM [" & tabelle.Name & "]"

_________________
mfg jens05 Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Inkonsistenzsuche löschen 1 Kevin 1017 18. Mai 2004, 13:27
stpimi Inkonsistenzsuche löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenvergleich und Wiedergabe der nicht doppelten Daten 1 ChrisT 2735 18. Mai 2004, 10:08
mabe38 Tabellenvergleich und Wiedergabe der nicht doppelten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen befüllen lassen 1 Cresito 1049 28. Apr 2004, 09:45
lupos Tabellen befüllen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: nicht-atomare Daten aus EXCEL importieren 2 Panther 908 29. März 2004, 16:33
Panther nicht-atomare Daten aus EXCEL importieren
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erstellen aus vorhandener Tabelle 6 moni 2010 29. März 2004, 15:39
moni neue Tabellen erstellen aus vorhandener Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erzeugen; kopieren 7 DiplomandSPS 1323 25. März 2004, 10:01
fridgenep neue Tabellen erzeugen; kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen in eine neue 18 Gast 2365 23. März 2004, 10:44
mrd 2 Tabellen in eine neue
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus zwei Tabellen in einem Formular ohne Unterformul 4 Hippolytus 749 09. März 2004, 15:07
Hippolytus Abfrage aus zwei Tabellen in einem Formular ohne Unterformul
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage in Tabelle kopieren 7 Prummel 2569 04. März 2004, 10:36
Willi Wipp Daten aus Abfrage in Tabelle kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Nachfrage beim Löschen/Einfügen unterdrücken 5 Deva 1908 04. Feb 2004, 16:49
borstel Nachfrage beim Löschen/Einfügen unterdrücken
Keine neuen Beiträge Access Tabellen & Abfragen: Daten anfügen doppelte Datensätze überschreiben 1 Uli 3838 04. Feb 2004, 14:21
Gerd_ Daten anfügen doppelte Datensätze überschreiben
Keine neuen Beiträge Access Tabellen & Abfragen: Unterscheid zwischen 2 Daten berechnen in Abfrage 2 itarus 1441 26. Jan 2004, 17:01
i_tarus Unterscheid zwischen 2 Daten berechnen in Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum