Private Function CheckConnectedTables2() As Boolean
'Проверка качества подключения всех подключенных таблиц
'Возвращает True если проверка прошла успешно
'===============================================================
Dim tbl As TableDef
On Error GoTo CheckConnectedTablesErr
    For Each tbl In CurrentDb.TableDefs
        If tbl.Connect <> "" Then
            If tbl.Fields.Count = 0 Then GoTo CheckConnectedTablesBye
        End If
    Next
    
'Проверка прошла
    CheckConnectedTables2 = True

CheckConnectedTablesBye:
    On Error Resume Next
    Set tbl = Nothing
    Exit Function
    
CheckConnectedTablesErr:
'Сообщение не обязательно т.к. функция вернет - FALSE
    'MsgBox "Функция [CheckConnectedTables] привела к ошибке:" & vbCrLf & _
    Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical
    Resume CheckConnectedTablesBye
End Function

Function IsTableOK(sTableName As String) As Boolean
'es 19.12.2017
'Проверка качества соединени с Одной табличкой
Dim objField As Field
On Error GoTo IsFieldPresentErr
    Set objField = CurrentDb.TableDefs(sTableName).Fields(0)
    IsTableOK = True 'Таблица в порядке!
Exit Function

IsFieldPresentErr:
    Err.Clear
End Function