Access/ VBA / Überprüfen ob Datei existiert und wenn ja überschreiben

Adam81 · 17. Mai 2016, 09:58

Hi Leute.

Ich habe nun das nächste Problem. Wie kann ich prüfen ob die Tabelle schon existiert in Access.
Wenn die Tabelle existiert soll gefragt werden ob sie überschrieben werden soll.

Ich danke euch schon mal für die Hilfe.

Adam

PSJ · 17. Mai 2016, 10:08

Visual Basic-Quellcode

Public Function ifTableExists(tblName As String) As Boolean
ifTableExists = False
If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 1 Then
ifTableExists = True
End If
End Function

Gefunden hier: Klick
mit dieser suche: Klick

Das löschen ginge so:

Visual Basic-Quellcode

DoCmd.DeleteObject acTable, "aaaTest"

oder:

Visual Basic-Quellcode

Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.Execute "DROP TABLE aaaTest", dbFailOnError

Naja gehen sollte auchnoch das hier:

Visual Basic-Quellcode

Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.TableDefs.Delete "aaaTest"

Für den rest googles du dann bitte weil die Zeit für den Thread erspart werden kann.

Adam81 · 17. Mai 2016, 10:22

Danke dir PSJ...
Sieht gut aus

Adam81 · 18. Mai 2016, 10:43

Servus nochmal.
Ich komme immer noch nicht weiter. Hier unten die Listung was ich versuche.
Ein Code Beispiel wäre sehr nett.

- Prüfen ob Tabelle verändert wurde und existiert mit MSysObjects
- Fragen ob die Datei überschrieben werden soll fall verändert wurde

PSJ · 18. Mai 2016, 11:22

Adam81 schrieb:

- Prüfen ob Tabelle verändert wurde und existiert mit MSysObjects

Das ob sie Existiert* habe ich dir ja bereits gepostet als Quellcode..
Ob sie verändert wird schaue ich mir später an wie man drauf kommt. Ginge das nicht irgendwie über den Ident der letzten Action?

Wenn die abfrage zutrifft eben ne Messagebox prüfen lassen mit vbYesNo zur Auswahl

Visual Basic-Quellcode

If MsgBox("Überschreiben?",vbInformation + vbYesNo) = vbYes Then
Überschreiben
End If

Adam81 · 18. Mai 2016, 13:41

Danke für die Antwort PSJ
Hat funktioniert.

PSJ · 18. Mai 2016, 14:14

Kein Problem,
Das mit der Veränderung hat auch schon geklappt ?

Adam81 · 18. Mai 2016, 15:06

Leider nicht.
Dazu brauche ich nochmal Hilfe.

PSJ · 18. Mai 2016, 15:24

Leg doch in deine Tabellen immer eine Extra Spalte an namens "Letzte Änderung" und schreib da jedesmal das Datum rein wenn du irgendwas an irgendeinem Datensatz machst. Somit kannst du alles optimal überprüfen

Adam81 · 18. Mai 2016, 16:22

Es sollte über den Quellcode passieren. Ich kann nicht für jede Tabelle
so eine Zeile einfügen. Wäre zu aufwendig.

Adam81 · 19. Mai 2016, 09:33

Kannst du mir nochmal helfen PSJ?
Also bei Veränderung der Tabelle ersetzen.

Danke im Voraus

Adam

Access/ VBA / Überprüfen ob Datei existiert und wenn ja überschreiben

Access/ VBA / Überprüfen ob Datei existiert und wenn ja überschreiben

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Adam81 schrieb:

Visual Basic-Quellcode

Benutzer online 1

Ähnliche Themen

2 Benutzer haben hier geschrieben