Keine OrdinalPosition in System-Tabellen??

07/03/2008 - 18:24 von Lorenz Hölscher | Report spam
Hallo NG'ler,

ich bin auf folgendes Problem gestoßen. Wenn ich diesen Code starte:
_________________________
Sub ZeigeTabellen()
Dim tblDiese As TableDef
Dim fldDieses As Field

For Each tblDiese In CurrentDb.TableDefs
Debug.Print "Tabelle: " & tblDiese.Name
For Each fldDieses In tblDiese.Fields
Debug.Print vbTab & "Feld Nr. " &
fldDieses.OrdinalPosition + 1 & _
" ist: " & fldDieses.Name
Next
Next
End Sub
_____________________________

dann haben meine eigenen Tabellen eine Ordinalposition, wie ich sie
erwarte (nàmlich weitergezàhlt, die Reihenfolge ist mir dabei herzlich
egal), wàhrend die MSys...-Tabellen alle Felder auf 1 stehen haben.
Hat eine/r von Euch eine Idee, warum das so ist?

Danke,
Lorenz
 

Lesen sie die antworten

#1 Peter Doering
07/03/2008 - 18:35 | Warnen spam
Hallo,

Lorenz Hölscher wrote:

ich bin auf folgendes Problem gestoßen. Wenn ich diesen Code starte:
_________________________
Sub ZeigeTabellen()
Dim tblDiese As TableDef
Dim fldDieses As Field

For Each tblDiese In CurrentDb.TableDefs
Debug.Print "Tabelle: " & tblDiese.Name
For Each fldDieses In tblDiese.Fields
Debug.Print vbTab & "Feld Nr. " &
fldDieses.OrdinalPosition + 1 & _
" ist: " & fldDieses.Name
Next
Next
End Sub
_____________________________

dann haben meine eigenen Tabellen eine Ordinalposition, wie ich sie
erwarte (nàmlich weitergezàhlt, die Reihenfolge ist mir dabei herzlich
egal), wàhrend die MSys...-Tabellen alle Felder auf 1 stehen haben.
Hat eine/r von Euch eine Idee, warum das so ist?



Sie haben 0 als OrdinalPosition, die 1 addierst du selbst. Abgesehen davon
kann ich das Verhalten bestaetigen, habe aber keine Erklaerung.

Gruss - Peter

2. SQL Server-Entwickler-Konferenz
Nürnberg, 12./13.4.2008 + 19./20.4.2008
http://www.donkarl.com/SEK

Ähnliche fragen