TopPicLogo TopPicText

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

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

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

Public Sub PrintAllTablesInImmediate()
'Печатаем в Immediate окне список всех таблиц кроме системных (в кавычках)
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. 23.05.2016
Рейтинг@Mail.ru