Tab in anderer mdb vorhanden ?

25/10/2008 - 16:16 von Steffen Brose | Report spam
Hallo Allseits,

mit:
Dim dbBE As DAO.Database
Set dbBE = DBEngine.Workspaces(0).OpenDatabase("C:\Daten\andereDB.mdb")

und dann Karl's Funktion
If fctTableExists("TabelleCopy") = False Then ... usw.

also sein:
Public Function fctTableExists(strTableName As String) As Boolean
'prüft, ob Tabelle vorhanden ist
If DCount("*", "MSysObjects", "Name='" & strTableName & "'") Then
fctTableExists = True
End Function

"versuche" ich eine Prüfung, ob die TabelleCopy in der andereDB.mdb
vorhanden ist
"lande" aber immer wieder in der aktuelllen mdb ..

Funktioniert dies nicht so - in Verbindung mit Karl's Funktion ?


Vielen Dank für
Eure Hilfe - Gruß Steffen
 

Lesen sie die antworten

#1 Mark Doerbandt
25/10/2008 - 16:31 | Warnen spam
Hallo, Steffen,

Steffen Brose:

Dim dbBE As DAO.Database
Set dbBE = DBEngine.Workspaces(0).OpenDatabase("C:\Daten\andereDB.mdb")

und dann Karl's Funktion
If fctTableExists("TabelleCopy") = False Then ... usw.

also sein:
Public Function fctTableExists(strTableName As String) As Boolean
'prüft, ob Tabelle vorhanden ist
If DCount("*", "MSysObjects", "Name='" & strTableName & "'") Then
fctTableExists = True
End Function

"versuche" ich eine Prüfung, ob die TabelleCopy in der andereDB.mdb
vorhanden ist
"lande" aber immer wieder in der aktuelllen mdb ..



klar, denn das DCount geht ja nicht auf Dein dbBE.

Du kannst aber einfach MSysObjects der fremden DB nutzen, z.B. indem
Du eine Abfrage mit

SELECT * FROM [C:\Daten\andereDB.MDB].MSysObjects;

nutzt.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen