[ACCESS] alle fields in een tabel af gaan

[Verwijderd]

hallo

Weet er iemand toevalig hoe ik in een tabel alle fields moet afgaan.
Mijn eerst id was.

code:

Dim obj As AccessObject
Dim dbs As Object
Dim fld As Fields
Set dbs = Application.CurrentData
 For Each obj In dbs.AllTables
    If obj.Name = "tblvelden" Then
        For Each fld In obj
            'code
        Next fld
    End If
Next obj

Ik heb dit nodig omdat het een tijdelijke tabel is met altijd andere velden
en omdat ik via een recordset gegevens in deze velden wil schrijven.
Dus mijn id was om elk field als object te declareren en en dit als naam van
elke tabel te nemen. Maar ik weet dus niet hoe ik dit moet doen.
Zou er mij iemand willen helpen.

[ Voor 22% gewijzigd door Verwijderd op 02-06-2005 18:40 ]

[Boss]

code:

dim rst as Recordset
dim fld as Field
set rst = CurrentD.OpenRecrodset("TabelNaam")
For each fld in rst.Fields
  'do je ding
Next fld

Met wat jij hebt ga je tabellen af, geen velden?

[Verwijderd]

Ik heb het juist veranderd.
Sorry hier voor.

Ik heb de code juist geprobeert en het werkt perfect.
Bedankt hier voor.

[ Voor 48% gewijzigd door Verwijderd op 02-06-2005 18:45 ]

[Verwijderd]

Boss schreef op donderdag 02 juni 2005 @ 18:39:

code:

dim rst as Recordset
dim fld as Field
set rst = CurrentD.OpenRecrodset("TabelNaam")
For each fld in rst.Fields
  'do je ding
Next fld

Weetje toevallig ook hoe je de gevonden fields kan gebruiken.
Want rst!fld werkt niet.

[nescafe]

Volgens mij heb je je key/value-verzameling in fld.Name en fld.Value zitten.
Zie je object browser.

[Verwijderd]

Als ik bijvoorbeeld a=fld.name en dan rst!a denkt hij dat het om kolom a gaat
in de recordset wat niet de bedoeling is.

[Boss]

rst.Fields("VeldNaam")
of
fld.Value in voorgaande voorbeeld

[Verwijderd]

Dank u wel iedereen.