Sub TableAdlar()
Dim adoRecSet As New ADODB.Recordset
Set adoRecSet = currentdb.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not adoRecSet.EOF
MsgBox adoRecSet.Fields("TABLE_NAME").Value
adoRecSet.MoveNext
Loop
adoRecSet.Close
Set adoRecSet = Nothing
End Sub
Access Tablo Adlarını Bulma
Konuyu Okuyanlar: 1 Ziyaretçi