Databaser...

Hvilken database er der tale om?

En ganske almindelig Access-database

Tabel navnene findes i tabellen MsysObjects hvor typen = 6

kode til spm 2 kommer om lidt :o)

Her er den samlede kode så Public

Function test()
Dim db As Database
Dim tdfLoop As TableDef
Dim rst As TableDef
Dim fld As Field
Set db = CurrentDb
Set rst = db.TableDefs("setup")
With db
        For Each tdfLoop In .TableDefs
            Debug.Print "    " & tdfLoop.Name
        Next tdfLoop
End With
With rst
        For Each fld In .Fields
            Debug.Print "    " & fld.Name
        Next fld
End With
End Function


Jeg håber det kan bruges

Brian_d :o)

Kunne du brue svaret ??

Jeg har ikke afprøvet det endnu, jeg kan ikke komme til det før engang sidst på ugen, da jeg ikke er hjemme før.
Bare rolig, du skal nok få dine point...hvis det virker.

Mange tak...det var lige hvad jeg manglede!

Det lyder godt

Brian_d