Office: (Office 2003) VBA Tabelle erstellen

t_bern · 15. September 2010

Hallo zusammen,

nach einem klick auf einen Button, möchte ich gerne folgendes mit Access-VBA prüfen.

1. Wenn es eine Tabelle Test gibt, dann soll sie gelöscht werden
2. Erstelle eine Tabelle test (leer ohne Inhalt)

könnt Ihr mir helfen ?

Ps: es handelt sich um die geöffnete DB !

Danke

:)

Maxel · 17. September 2010

Code:

Dim DB As DAO_Database, Tb As TableDef, Fi As Field, I As Long
Set DB = CurrentDb

For I = 0 To DB.TableDefs.Count - 1
If DB.TableDefs(I).Name = "Test" Then
DB.Execute "DROP TABLE Test"
Exit For
End If
Next I

Set Tb = New TableDef
Tb.Name = "Test"

'Erst mit Hinzufügen mind. eines Feldes wird Tabelle gespeichert:
Set Fi = New Field
With Fi
.Name = "Nachname"
.Type = dbText
End With
Tb.Fields.Append Fi

DB.TableDefs.Append Tb

Set DB = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 17. September 2010

Eine Tabelle zu löschen, um sie sofort wieder zu erstellen, wird in sehr vielen Fällen ungünstig sein. Eine Frage: Was passiert mit Indizes, was passiert mit Beziehungen zu anderen Tabellen?
Ein einfaches Leeren (Löschabfrage) ist effektiver und unaufwändiger.

Maxel · 17. September 2010

Du hast natürlich Recht, Eberhard,

mein Beitrag ist mehr oder weniger eine theoretische Fingerübung. *wink.gif*

t_bern · 18. September 2010

Hallo Leute,

dank, ist genau das was ich gesucht habe *tongue.gif*
Die Tabelle hat keine Verknüpfungen, Beziehungen .... ist jetzt zu langwierig die Geschichte.

Ich hätte da noma eine Frage und vielleicht könnte ihr mir ja weiterhelfen.

Bei der For I Schleife:

Code:

For I = 0 To DB.TableDefs.Count - 1
If DB.TableDefs(I).Name = "NeueTabelle" Then
DB.Execute "DROP TABLE NeueTabelle"
Exit For
End If
Next I
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

was hat das -1 zu bedeuten ???
Ich hab es gelöscht und es funktioniert auch ohne !!

Könnte es mir bitte mal einer erklähren !!

Danke

ebs17 · 19. September 2010

Der Index einer Auflistung beginnt bei 0 (falls nicht mit Option Base ein anderer Wert eingestellt wurde) - siehe Start der Schleife. Daher muss von der Anzahl 1 abgezogen werden, um nicht einen Auflistungswert aufzurufen, den es nicht gibt, und damit einen Fehler zu produzieren.
Man kann natürlich mit On Error Resume Next Fehler ignorieren. Auch das wäre eine lange Geschichte ...

t_bern · 19. September 2010

Hi,

ich hab die -1 entfernt und es funktioniert trotzdem !

wieso ?

Danke !

Thomas Möller · 19. September 2010

Hallo,

ich hab die -1 entfernt und es funktioniert trotzdem !
wieso ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hast Du vielleicht ein On Error Resume Next als Fehlerbehandlung in Deinem Code?

CU

mabe79 · 7. Januar 2021

von t_bern

Hi,

ich hab die -1 entfernt und es funktioniert trotzdem !

wieso ?

Danke !
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

es kann natürlich auch sein, dass du mehrere Tabellen hast und noch VOR Ende der gesamten Liste deine "Test" Tabelle erreicht wurde. Danach wird der Drop Code ausgeführt und du springst aus der Funktion mit Exit For direkt raus, damit läuft die For Schleife auch nicht bis zum Schluß durch, wo eventuell das Problem mit dem Index out of Range erscheinen könnte.

schönen Sonntag!!

Office: (Office 2003) VBA Tabelle erstellen

VBA Tabelle erstellen

VBA Tabelle erstellen

VBA Tabelle erstellen

VBA Tabelle erstellen

VBA Tabelle erstellen - Similar Threads - VBA Tabelle erstellen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit VBA Excel, eine word-Tabelle erstellen/formatieren

Tabelle in VBA via SQL String erstellen

Tabelle mit VBA erstellen und Feldbreite festlegen

mit VBA in neuer Tabelle Tabellenfeld als AutoWert-Typ Replikations-ID erstellen

Serienbrief erstellen und Tabellen einzeln als Anhang einfügen

in VBA Ablauf zum erstellen einer Tabelle aus vielen TabellenblÃ¤ttern