Question

我在哪里可以通过以下方式找到MS Access属性的本机列表：

 CurrentDb.Properties("Property_Name_Here")

例如，我知道;

AppTitle可用于访问应用程序的标题
AppIcon可用于访问用于应用程序的图标的路径

对于不同的版本，我确信有不同的属性。是否有版本列表？例如，MS Access 2003具有这些属性......而MS Access 2007具有这些属性......等等。

Answer 1

我不相信任何地方都有列表。 Tho，Properties属性是一个集合。您可以迭代它们并获得所有关联的。你必须这样做你感兴趣的所有MS Access版本。为了进一步说明，几乎所有内部对象，例如表，字段，查询等具有属性。字段属性特别有用，因为您可以指定MS Access如何链接并向用户显示该字段。

Answer 2

有一个属性集合：

Sub ListProps()
    For i = 0 To CurrentDb.Properties.Count - 1
        Debug.Print CurrentDb.Properties(i).Name
    Next
End Sub

Answer 3

很难找到那种信息。

我确实为Access定义的DAO属性

找到了链接here

Answer 4

这样可以吗？：）

Option Compare Database
Option Explicit

Private Sub btnShowDbProps_Click()
On Error GoTo Err_btnShowDbProps_Click

  Dim prp As DAO.Property
  Dim dbs As Database
  Dim strProps As String

  Set dbs = CurrentDb

  For Each prp In dbs.Properties
    Dim propval As String
    propval = "<not defined>"

    On Error Resume Next
    propval = CStr(prp.value)

    If propval = vbNullString Then propval = "<empty>"

    strProps = strProps & prp.Name & "=" & propval & " (" & PropertyType(prp.Type) & ")" & vbNewLine
    Debug.Print strProps
  Next

  MsgBox strProps

Exit_btnShowDbProps_Click:
    Exit Sub

Err_btnShowDbProps_Click:
    MsgBox Err.Description
    Resume Exit_btnShowDbProps_Click

End Sub

Function PropertyType(intType As Integer) As String

   Select Case intType
      Case dbBoolean
         PropertyType = "dbBoolean"
      Case dbByte
         PropertyType = "dbByte"
      Case dbInteger
         PropertyType = "dbInteger"
      Case dbLong
         PropertyType = "dbLong"
      Case dbCurrency
         PropertyType = "dbCurrency"
      Case dbSingle
         PropertyType = "dbSingle"
      Case dbDouble
         PropertyType = "dbDouble"
      Case dbDate
         PropertyType = "dbDate"
      Case dbText
         PropertyType = "dbText"
      Case dbLongBinary
         PropertyType = "dbLongBinary"
      Case dbMemo
         PropertyType = "dbMemo"
      Case dbGUID
         PropertyType = "dbGUID"
      Case Else
         PropertyType = "Unknown:" & intType
   End Select

End Function

MS Access属性

4 个答案: