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

Вывод в Immediate Window списка всех таблиц (DAO)

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

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

Private Sub PrintAllTablesInImmediate()
' Выводим в Immediate Window:
' Список всех таблиц кроме системных
Dim tdf As DAO.TableDef
Dim i%
Dim s As String
    s = String(65, "-") & vbCrLf
    For Each tdf In CurrentDb.TableDefs
        If (tdf.Attributes And dbSystemObject) = False Then
            i = i + 1
            s = s & Format(i, "000") & " - """ & tdf.Name & """" & vbCrLf
        End If
    Next
    s = s & String(65, "-") ' & vbCrLf
    Debug.Print s
    Debug.Print "Всего: " & i & " таблиц."
End Sub

Назад ToTop
L.E. 30.01.2021
Рейтинг@Mail.ru