That is strange. I never noticed it.
Don't know if this will help you, but here is some code to print the field properties for the field in a table.
Code:
Public Sub GetFieldPropertys(Tbl_Name As String)
Dim dbsBE As DAO.Database
Dim tdf As TableDef
Dim fldLoop As Field
Dim prLoop As Property
On Error GoTo HandleErr
Set dbsBE = CurrentDb
Set tdf = dbsBE.TableDefs(Tbl_Name)
Debug.Print
Debug.Print "============ " & Tbl_Name & " ============"
For Each fldLoop In tdf.Fields
'On Error Resume Next
Debug.Print
Debug.Print "--- " & UCase(fldLoop.Name) & " ---"
For Each prLoop In fldLoop.Properties
On Error Resume Next
Debug.Print " " & prLoop.Name & " = " & prLoop.Value
Next prLoop
On Error GoTo HandleErr
Next fldLoop
Set dbsBE = Nothing
Set tdf = Nothing
Set fldLoop = Nothing
Set prLoop = Nothing
Exit Sub
ExitHere:
' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.
' Automatic error handler last updated at 08-12-2002 15:07:23
HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
End Select
End Sub
I have a button to call the sub
Code:
' button name
Private Sub Command12_Click() 'I'm lazy - should take the time to give it a proper name
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
' ignore system and temporary tables
If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*") Then
' Debug.Print tdf.Name
GetFieldPropertys (tdf.Name)
End If
Next
Set tdf = Nothing
Set db = Nothing
MsgBox "Done"
End Sub
If you just want 1 table, use
Code:
Private Sub Command12_Click()
' GetFieldPropertys ("YourTableName")
GetFieldPropertys ("tblProducts")
MsgBox "Done"
End Sub
This code prints to the Debug Window. It isn't hard to add code append to a table or to print to a csv/txt file.