Option Compare Database

Sub Test_TableDef_Properties()

'DATABASE Attributes - 1073741824

'Excel Attributes - 1073741824

'Dim tdf As TableDef

Dim oTbl As TableDef

Dim oPr As Properties

Dim iAttr As Long

On Error Resume Next

For Each oTbl In CurrentDb.TableDefs

iAttr = oTbl.Properties("Attributes")

If iAttr > 3 Then

Debug.Print oTbl.Name & " - " & oTbl.Connect

For i = 0 To oTbl.Properties.Count

strPeName = oTbl.Properties(i).Name

strPrVal = oTbl.Properties(i).Value

Debug.Print " " & strPeName & " - " & strPrVal

strPeName = oTbl.Properties(i).Name

strPrVal = oTbl.Properties(i).Value

Next i

End If

' If tdf.Type = "LINK" Then

' k = k + 1

' strTblName = tdf.Name

' sss = tdf.Properties.Item(6)

' sst = DLookup("[PathBase]", "SystemTB", "TName = '" + strTblName + "'")

' If sss <> sst Then

' blnCBase = False

' Exit For

' End If

' End If

'

' For Each oTbl In CurrentDb.TableDefs

' With oTbl

' Debug.Print .Attributes & " | " & .Name & " | " & .Connect

'' f = Left(oTbl.Connect, 4)

' If Left(oTbl.Connect, 4) = "Text" Then

' If Left(oTbl.Connect, 4) <> "List" Then

' DoCmd.Close acTable, oTbl.Name

' CurrentDb.Execute ("drop table " & oTbl.Name)

' End If

' End If

' End With

' Next oTbl

Next oTbl

End Sub