![]() |
![]() |
||
Вывод в Immediate Window списка всех таблиц текущей базы данныхПри помощи данной процедурки - Названия таблиц в код вставлять проще.
Private 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
|
![]() ![]() |
||
L.E. 27.02.2018 |