Hallo,
ich habe eine For Each Schleife erstellt.
Wie komme ich an den Variablen Wert an dem die Schleife beendet? Also wenn die Schleife 8 mal durchläuft, wie komme ich an die 8? Brauche den Wert für eine andere Berechnung.
Schleife sieht wiefolgt aus...
Private Sub struktur_lesen()
On Error Resume Next
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = CurrentDb()
Set td = db.TableDefs(strQuelle)
anz = 0
For Each fld In td.Fields
anz = anz + 1
If anz <= max Then ' nur bis max
Felder(anz).Name = fld.Name
Felder(anz).Typ = fld.Type
Felder(anz).Beschriftung = fld.Properties("Caption")
If Err.Number = 3270 Then
Felder(anz).Beschriftung = fld.Name
Err.Clear
End If
End If
Next fld
If anz > max Then anz = max
End Sub
Danke...
*hust hust* Hatte grad selber einen Geistesblitz ^^
Da sitzt man "ewig" vor einem Prob und kommt nicht weiter. Dann fragt man um Hilfe und rafft es doch noch selbst.
ich habe eine For Each Schleife erstellt.
Wie komme ich an den Variablen Wert an dem die Schleife beendet? Also wenn die Schleife 8 mal durchläuft, wie komme ich an die 8? Brauche den Wert für eine andere Berechnung.
Schleife sieht wiefolgt aus...
Private Sub struktur_lesen()
On Error Resume Next
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = CurrentDb()
Set td = db.TableDefs(strQuelle)
anz = 0
For Each fld In td.Fields
anz = anz + 1
If anz <= max Then ' nur bis max
Felder(anz).Name = fld.Name
Felder(anz).Typ = fld.Type
Felder(anz).Beschriftung = fld.Properties("Caption")
If Err.Number = 3270 Then
Felder(anz).Beschriftung = fld.Name
Err.Clear
End If
End If
Next fld
If anz > max Then anz = max
End Sub
Danke...
*hust hust* Hatte grad selber einen Geistesblitz ^^
Da sitzt man "ewig" vor einem Prob und kommt nicht weiter. Dann fragt man um Hilfe und rafft es doch noch selbst.
Zuletzt bearbeitet:
