Hente feltnavn fra forespørgsel

Public Sub test()
    Dim rst As Recordset
    Dim n As Integer
    Set rst = CurrentDb.OpenRecordset(\"SELECT * FROM PVNRDAA\")
    For n = 0 To rst.Fields.Count - 1
        Debug.Print rst.Fields(n).Name, rst.Fields(n)
    Next
End Sub

Ovenstående gennemløber samlingen fields og udskriver (i debug-vinduet) navnet på feltet samt indholdet.

/Thomas

Perfekt ! Tak for hjælpen

:) Michael

itcon>Why do you need to see the field name?


Set rst = CurrentDb.OpenRecordset(\"SELECT field1, field2, field3 FROM PVNRDAA\")

will give you only the data for these three fields (you obviously need to alter the field names to YOUR field names. Also if you use the recordset in a form or report thenn you will see the name of the field in the form/report column.


   

Måske er PVNRDAA en forespørgsel, som opbygges dynamisk. Derved kender man ikke feltnavnene,

Korrekt, den er dynamisk, og den skal bruges til at oprette en ny tabel, hvor indholdet af det første felt (0) skal kædes sammen med både indholdet og navnet af de øvrige felter i recorden. Arbejder nogen af jer freelance, og har brug for ekstra arbejde ?

Jep !!

www.makeiteasy.dk

Eller skriv til tj@makeiteasy.dk

Fint, jeg holder det lige i baghovedet - jeg har en del opgaver for tiden hvor jeg godt kunne bruge lidt assistance.

Du er altid velkommen :o)