Access のオプション

Private Sub GetProperties()
    Dim objProperty As Property

    For Each varProperty In Application.CurrentDb.Properties
        Set objProperty = varProperty

'Value を使用できないプロパティがある
On Error Resume Next
        Debug.Print objProperty.Name & ":" & objProperty.Value
On Error GoTo 0

    Next

End Sub