Access表单显示前传递属性的实现疑问

核心问题在于：通过Set frm = New Form_Form2实例化表单时，Open > Load > Resize > Activate > Current事件会在你设置SomeProperty属性前触发，导致Form_Open事件中无法获取到后续设置的属性值。以下是两种可行的解决方法：

方法1：使用自定义初始化方法 #

将原本放在Form_Open事件中依赖属性的逻辑，移到一个自定义的公共方法里，在设置完属性后手动调用该方法完成初始化。

Form2的代码： #

Option Compare Database
Option Explicit

Public SomeProperty As String

' 自定义初始化方法，接收标题参数
Public Sub InitForm(captionText As String)
    Me.Caption = captionText
    ' 这里可以添加其他需要依赖属性的初始化逻辑
End Sub

' 清空Form_Open中设置标题的逻辑，保留其他不依赖属性的初始化（如果有）
Private Sub Form_Open(Cancel As Integer)
    ' 非属性依赖的初始化代码放在这里
End Sub

Form1中Command0的点击事件代码： #

Option Compare Database
Option Explicit

Private Sub Command0_Click()
    Dim frm As Form_Form2
    Set frm = New Form_Form2
    
    ' 先设置属性
    frm.SomeProperty = "My New Caption"
    ' 调用自定义初始化方法，传递属性值完成标题设置
    frm.InitForm frm.SomeProperty
    ' 显示表单
    frm.Visible = True
End Sub

方法2：延迟属性依赖逻辑到后续触发的事件 #

利用表单事件的触发顺序，将设置标题的逻辑移到Activate或Current事件中——这些事件会在你设置完属性后触发，此时能拿到最新的属性值。

Form2的代码： #

Option Compare Database
Option Explicit

Public SomeProperty As String

Private Sub Form_Open(Cancel As Integer)
    ' 这里不设置标题，避免属性未赋值时使用默认值
End Sub

Private Sub Form_Activate()
    ' 表单激活时检查属性是否已赋值，设置标题
    If Len(SomeProperty) > 0 Then
        Me.Caption = SomeProperty
        ' 可选：设置后清空属性，防止表单重复激活时再次修改标题
        SomeProperty = vbNullString
    End If
End Sub

Form1中Command0的点击事件代码： #

Option Compare Database
Option Explicit

Private Sub Command0_Click()
    Dim frm As Form_Form2
    Set frm = New Form_Form2
    
    ' 设置属性
    frm.SomeProperty = "My New Caption"
    ' 显示表单，后续Activate事件会自动设置标题
    frm.Visible = True
End Sub

补充说明 #

• 如果必须在Open事件中执行部分逻辑，可以先判断属性是否有值，无值时跳过依赖属性的操作，后续通过自定义方法补全。
• 两种方法都能避开实例化时事件先于属性设置的问题，确保表单显示前属性已生效。

内容的提问来源于stack exchange，提问作者Darren Bartrup-Cook