Dim cont As Container
Dim docum As Document
For Each cont In Application.CurrentDb.Containers
Debug.Print cont.Name
Next cont

DataAccessPages
Databases
Forms
Modules
Relationships
Reports
Scripts
SysRel
Tables

For Each docum In Application.CurrentDb.Containers( "Tables" ).Documents
Debug.Print docum.Name
Next docum

Dim docum As Document
Dim prop As Property
With Application.CurrentDb
For Each docum In .Containers( "Tables" ).Documents
    With docum
    For Each prop In .Properties '-Type mismatch (Error  13 )
    Debug.Print prop.Name
    Next prop
    End With
Next docum
End With

Dim prop As DAO.Property

Dim flds As DAO.Fields
Dim tdef As TableDef
Set tdef = CurrentDb.TableDefs(TableName)
Set flds = tdef.Fields

Public Sub TableAddRecord(TableName As String, FieldName As String, NewData As String, Response As Integer)
Dim db As DAO.Database
Dim fldDescription As String
Dim fld As DAO.Field
Dim tblDescription As String
Dim tdef As TableDef
Dim i As Integer
On Error GoTo err:
Set db = CurrentDb
Set tdef = db.TableDefs(TableName)
Set fld = tdef.Fields(FieldName)
i =  0 
tblDescription =  " информация из описания к ней: <"  & _
db.Containers( "Tables" ).Documents(TableName).Properties( "Description" ) &  ">;" 
i =  1 
fldDescription =  " в котором содержится информация о <"  & _
fld.Properties( "Description" ) &  ">;" 
    
    If MsgBox( "Таблица <"  & TableName &  ">; "  & tblDescription & _
     "поле <"  & FieldName &  ">; "  & fldDescription & _
     " нет значения <"  & NewData &  ">, добавим?" , _
         vbOKCancel) = vbOK Then