VBA, MS Access MS Access в примерах

Вывод в Immediate Window списка всех таблиц текущей базы данных

При помощи данной процедурки - Названия таблиц в код вставлять проще.

- По по поводу tdf.Attributes - можно почитать тут: https://support.microsoft.com/en-us/kb/210362
- Показать Immediate Window = Ctrl + G

Public Sub PrintAllTablesInImmediate()
' Выводим в Immediate Window:
' Список всех таблиц кроме системных (в кавычках)
Dim tdf As DAO.TableDef
Dim s As String
    s = "'-------------------------------------------" & vbCrLf
    For Each tdf In CurrentDb.TableDefs
        If (tdf.Attributes And dbSystemObject) = False Then
            s = s & vbTab & "'""" & tdf.Name & """" & vbCrLf
        End If
    Next
    s = s & "'-------------------------------------------"
    Debug.Print s
End Sub
Назад ToTop
L.E. 25.12.2017
Рейтинг@Mail.ru