Tabellenfelder aus VB Skript ermitteln

19/06/2008 - 00:20 von Wolfgang Badura | Report spam
Hallo!
Gibt es eine Möglichkeit, mittels VBS auf die Tabellenfelder einer Tabledef
zuzugreifen?
Beim Versuch mittels
For Each AccTabledef In accDB.Containers("Tables").Documents
Tablename = AccTabledef.Name
For lX1 = 0 To AccTabledef.Fields.Count - 1
Set Feld = AccTabledef.Fields(lX1)

Next lX1
Next
auf die Felder der Tabledef zuzugreifen, kommt beim Stmt
For lX1 = 0 To AccTabledef.Fields.Count - 1
der Fehler "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Gibt es vielleicht einen anderen Weg?
Benutze Access 2003, Win XP, WSH 5.6
Danke im voraus und Gruß aus Wien.
Wolfgang
 

Lesen sie die antworten

#1 Stefan Dase
19/06/2008 - 07:38 | Warnen spam
Hallo Wolfgang!

Gibt es eine Möglichkeit, mittels VBS auf die Tabellenfelder einer Tabledef
zuzugreifen?
Beim Versuch mittels
For Each AccTabledef In accDB.Containers("Tables").Documents
Tablename = AccTabledef.Name
For lX1 = 0 To AccTabledef.Fields.Count - 1
Set Feld = AccTabledef.Fields(lX1)

Next lX1
Next
auf die Felder der Tabledef zuzugreifen, kommt beim Stmt
For lX1 = 0 To AccTabledef.Fields.Count - 1
der Fehler "Objekt unterstützt diese Eigenschaft oder Methode nicht".



Mit deinem Weg greifst du auf die Documents-Auflistung des Containers
"Tables" zu. Ein Document ist somit keine TableDef und verfügt nicht
über eine Fields-Auflistung!

Durchlaufe stattdessen die TableDefs-Auflistung, sofern accDB ein
DAO.Database-Objekt ist:

For Each AccTabledef In accDB.TableDefs
...
Next AccTabledef

HTH,
Stefan

Ähnliche fragen