[ACCESS] Selezione nomi tabelle

[lestat85]

Originariamente inviato da DragonOfLight
Per ricavare i nomi delle tabelle contenute nel file access, puoi utilizzare il seguente codice, adattandolo secondo le tue esigenze:

Function ricavaElencoTabelle() As Variant
 Dim db As Database, tb As TableDef
 Dim NomeTabella() As String, i As Long
 i = 0
 Set db = CurrentDb
 For Each tb In db.TableDefs
   ReDim Preserve NomeTabella(i)
   NomeTabella(i) = tb.Name
   i = i + 1
 Next
 db.Close
 ricavaElencoTabelle = NomeTabella
End Function

La funzione ritorna un vettore contenente i nomi delle tabelle contenute nel database.

Grazie mille!!! Era proprio quello di cui ho bisogno!!! Se voglio estrarre i nomi delle query presenti nel database penso che la situazione sia analoga giusto?