Access VBA：公共过程可选参数默认值能否使用Me关键字？

答案是不行，VBA不允许这种写法，核心原因如下：

• VBA对可选参数的默认值有严格限制：必须是编译时常量（比如固定字符串、数字、内置常量这类编译阶段就能确定值的内容）。
• Me是指向当前表单实例的运行时对象引用，只有程序运行时才能确定它具体指向哪个表单实例，编译阶段无法解析，所以把Me或Me.cboTargetForm作为可选参数默认值会直接触发编译错误。
• 你考虑的给含Me的标识符加引号的写法（比如Optional strTargetForm As String = "Me.cboTargetForm"）也没用，这只是把字符串字面量作为默认值，不会实际获取控件的内容。

针对你要重构多表单重复代码的场景，推荐以下两种可行方案：

方案1：将表单对象作为必选参数传入 #

这是最可靠、清晰的写法，直接从表单实例中获取控件值：

' 标准模块中的公共过程
Sub UpdateTargetForm(strString As String, frmSource As Access.Form)
    Dim strTargetForm As String
    strTargetForm = frmSource.cboTargetForm.Value
    ' 这里写你的后续业务逻辑
End Sub

在表单模块中调用时：

UpdateTargetForm "需要传入的字符串", Me

方案2：保留可选参数，通过默认值为Nothing做判断 #

如果希望保留可选参数的形式，可以将默认值设为Nothing，在过程内部判断并处理：

' 标准模块中的公共过程
Sub UpdateTargetForm(strString As String, Optional frmSource As Access.Form = Nothing)
    Dim strTargetForm As String
    
    If frmSource Is Nothing Then
        ' 校验当前是否有活动表单
        If Screen.ActiveForm Is Nothing Then
            MsgBox "请在表单界面中调用此过程"
            Exit Sub
        End If
        ' 从活动表单获取控件值（注意：需确保活动表单包含cboTargetForm控件）
        strTargetForm = Screen.ActiveForm.cboTargetForm.Value
    Else
        strTargetForm = frmSource.cboTargetForm.Value
    End If
    
    ' 这里写你的后续业务逻辑
End Sub

调用时可以传Me，也可以不传（此时会用当前活动表单）：

' 表单模块中调用
UpdateTargetForm "需要传入的字符串" ' 使用当前活动表单
' 或
UpdateTargetForm "需要传入的字符串", Me ' 指定当前表单

注意：方案2存在一定风险，如果当前活动表单不是你预期的表单（不包含cboTargetForm控件），会触发错误，因此更推荐方案1。

内容的提问来源于stack exchange，提问作者ebsf