使用VBA设置启动显示形式

Question

是否可以使用VBA更改启动显示形式？使用“访问选项”页面很容易做到这一点，但我试图从 VBA 中执行此操作，但似乎没有任何效果。我到处搜索寻找允许这样做的数据库属性或设置。

有人对这个问题有任何见解吗？

Answer 1

您可以通过 将内置数据库属性 StartUpForm 设置为表单的名称。

要从启动中删除此表单，您只需删除该属性即可。

Private Sub debug_properties()

    ListProperties

    SetProperty "StartupForm", 10, "Form_Name"    'UPDATE TO YOUR FORM NAME
'    DeleteProperty "StartupForm"
    
'    ListProperties
    
End Sub

Public Function SetProperty(ByVal propName As String, ByVal propType As Long, propValue As Variant)

''SetProperty will create a property if it doesn't exist
    
    On Error GoTo SetProperty_Err
    
    Dim dbs As DAO.Database         ''Reference: Microsoft Office 16.0 Access database engine Object Library    'ACEDAO.DLL    'Access.References.AddFromGuid "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}", 0, 0
    Set dbs = CurrentDb
    
    Dim prps As DAO.Properties      ''Reference: Microsoft Office 16.0 Access database engine Object Library    'ACEDAO.DLL    'Access.References.AddFromGuid "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}", 0, 0
    Set prps = dbs.Properties
    
    ''attempt to set property
    prps(propName) = propValue
    
    
SetProperty_Exit:
    On Error Resume Next
    
    On Error GoTo 0
    Exit Function
    
SetProperty_Err:
    Select Case Err.Number
        Case 3270   ''The property was not found
            ''create property
            Dim prp As DAO.Property
            Set prp = dbs.CreateProperty(Name:=propName, _
                                         Type:=propType, _
                                         Value:=propValue)
            ''add new property to collection
            dbs.Properties.Append prp
        Case Else
            MsgBox "SetProperty, Error " & Err.Number & ": " & Err.Description
    End Select
    
    Resume SetProperty_Exit
    
End Function

Private Function DeleteProperty(ByVal propName As String)

    On Error GoTo DeleteProperty_Err
    
    Dim dbs As DAO.Database         ''Reference: Microsoft Office 16.0 Access database engine Object Library    'ACEDAO.DLL    'Access.References.AddFromGuid "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}", 0, 0
    Set dbs = CurrentDb             
    
    dbs.Properties.Delete propName
    
    
DeleteProperty_Exit:
    On Error Resume Next
    
    On Error GoTo 0
    Exit Function
    
DeleteProperty_Err:
    Select Case Err.Number
        Case 3265   ''The property was not found
            MsgBox "Property '" & propName & "' does not exist."
        Case Else
            MsgBox "DeleteProperty, Error " & Err.Number & ": " & Err.Description
    End Select
    
    Resume DeleteProperty_Exit
    
End Function

Private Sub ListProperties()

''Lists DB properties created in code (as well as built-in properties)

    Dim dbs As DAO.Database             ''Reference: Microsoft Office 16.0 Access database engine Object Library    'ACEDAO.DLL    'Access.References.AddFromGuid "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}", 0, 0
    Set dbs = Application.CurrentDb
    
    Debug.Print vbCrLf & Format(Now, "hh:mm:ss") & " ======="
    
    Debug.Print """" & Mid(CurrentDb.Name, _
                            InStrRev(CurrentDb.Name, "\") + 1, _
                            InStr(CurrentDb.Name, ".accdb") - InStrRev(CurrentDb.Name, "\") - 1) & _
                """ Properties: "
    
    On Error Resume Next    'skips the 'connection' property which has no 'value' for some reason
    
    Dim prp As DAO.Property
    For Each prp In dbs.Properties
        Debug.Print prp.Name & ": " & prp.Value
    Next prp
    
    On Error GoTo 0
    
End Sub

Answer 2

我不知道如何直接更改启动表单属性，但您可以尝试创建一个可以加载所需启动表单的表单。通过这种方式，您可以将要加载的表单存储在配置表中并通过 VBA 更改它。

缺点是实际上启动了两种形式，而不是一种。

Answer 3

看一下 autoexec 宏。当您的数据库启动时，它会为您运行代码。使用它来加载表单。