Office: (Office 2003) Per VBA Tabelle in anderer DB überschreiben oder löschen

Paulinchen · 1. Februar 2011

Hi,
ich exportiere per
Code:

Dim Aussi As String
Aussi = "SELECT EDVbericht1.* INTO EDV IN 'L:\FREMD\EDVzugriff.mdb'FROM EDVbericht1 ORDER BY EDVbericht1.SendParameter;"
DoCmd.RunSQL (Aussi)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eine Tabelle aus db1 nach db...

Dabei soll aber vorher die bestehende Tabelle kommentarlos überschrieben werden oder vorher gelöscht werden. Wie sag ich das Access?

lg
Paulinchen

:)

Scorefun · 2. Februar 2011

sollte in etwa so laufen:

Code:

Dim externeDB As Database
Set externeDB = OpenDatabase("DeineDB")
externeDB.TableDefs.Delete "DeineTabelle"
set externeDB = nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TommyK · 2. Februar 2011

Hallo Paulinchen,

z.B. so:
Code:

Public Sub DeleteExTab(sPath As String, sTab As String)

On Error GoTo ErrHandler
Dim wsp As DAO.Workspace
Dim db As DAO.Database
Dim td As DAO.TableDef

Set wsp = DBEngine.Workspaces(0)
Set db = wsp.OpenDatabase(sPath)
db.TableDefs.Delete sTab

db.Close: wsp.Close

ExitHere:
Exit Sub
ErrHandler:
Dim strErrString As String
strErrString = "Error Information..." & vbCrLf
strErrString = strErrString & "Error#: " & Err.Number
strErrString = strErrString & "Description: " & Err.Description
MsgBox strErrString, vbCritical + vbOKOnly, _
"Error in Sub"
Resume ExitHere
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf z.B.:
Code:

DeleteExTab "H:\Dokumente\db5.mdb", "Tab1"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Paulinchen · 2. Februar 2011

Danke, paßt!

Paulinchen · 3. Februar 2011

Ooops, doch noch ein Problem. Mit der Scorefun-Methode kommt ein Ja/Nein Fenster. Kann ich das Verhindern?

edit: Bei TommyK auch!

TommyK · 3. Februar 2011

Hallo,

da musst Du im Menü -> Extras -> Optionen im Register Bearbeiten/Suchen
rechts im Punkt "Löschen von Dokumenten" den Haken entfernen.

ebs17 · 3. Februar 2011

Anmerkung: Bei "bestehende Tabelle überschreiben" könnte man auch auf die Idee kommen, die Tabelle stehen zu lassen und nur den Inhalt per Löschabfrage zu entfernen und den neuen Inhalt per Anfügeabfrage zu erzeugen.
So blieben auch bestehende Indizes und Beziehungen erhalten und müssten nicht erneuert werden.

Scorefun · 7. Januar 2021

von TommyK

Hallo,

da musst Du im Menü -> Extras -> Optionen im Register Bearbeiten/Suchen
rechts im Punkt "Löschen von Dokumenten" den Haken entfernen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Würde da nicht ein

Code:

docmd.setwarnings False
'Tabelle löschen
docmd.setwarnings True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

im Code reichen, anstatt dies global auszuschalten?

TommyK · 3. Februar 2011

\@ScoreFun

Klar, würde das auch reichen. *Smilie

Office: (Office 2003) Per VBA Tabelle in anderer DB überschreiben oder löschen

Per VBA Tabelle in anderer DB überschreiben oder löschen

Per VBA Tabelle in anderer DB überschreiben oder löschen

Per VBA Tabelle in anderer DB überschreiben oder löschen

Per VBA Tabelle in anderer DB überschreiben oder löschen

Per VBA Tabelle in anderer DB überschreiben oder löschen - Similar Threads - VBA Tabelle überschreiben

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Array aus Excel Tabelle einlesen Word VBA

Dynamische Tabellen mit automatischer Aktualisierung

(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?

Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

UserForm zum bearbeiten von Tabellen und speichern