Office: AXP: Per VBA prüfen, ob Tabelle vorhanden

Hallo !

ich möchte per VBA prüfen, ob eine Tabelle vorhanden ist - wenn ja, dann soll sie umbenannt werden.

Bei folgendem Code erscheint die Fehlermeldung "Laufzeitfehler 424 - Objekt erforderlich"

Was mache ich falsch ?

MfG Ole Stoehr


Code:

:)

 

Könnte sein, dass das nur mit Verweis auf DAO funktioniert. In folgendem Beitrag findest Du eine Funktion, die auch ohne DAO funktioniert: http://www.ms-office-forum.net/forum...threadid=92444

Mit der Funktion "TabelleVorhanden" aus obigem Thread dann:

IF TabelleVorhanden("Tabellennanme") Then

End if

 

Code:

achte auf die Beziehungen beim Umbenennen von Tabellen.

 

Hallo Ole,

ich nehm dafür die Funktion ExistObject. Damit bin ich sehr variabel, da ich alle Objekte ermitteln kann.

Code:

 

Hallo Tommy...deine Variante gefällt mir aufgrund der flexibilität eigentlich am besten...allerdings lande ich dabei in einer fehlermeldung:

und zwar hier:

Set R = dba.OpenRecordset("SELECT Name,Type FROM MSysObjects WHERE Name='" & Objektname & "' and Type = " & ObjTyp)


fehlermeldung: 13 Typen unverträglich

Kannst du dir das erklären ? fehlt mir evtl. noch ein Verweis ?

MfG

ole stoehr

 

Hallo Ole,

erstmal muss der Verweis auf MS DAO 3.6 gesetzt sein und der Code hatte
auch einen Fehler. Der neue müsste funzen hab es auch getestet.

Code:

 

that´s IT .... den Verweis hatte ich schon...aber dein bugfixing hat mir geholfen ! Vielen dank !!


Mfg

Ole Stoehr