VBA UserForm调用Property Get时取消按钮失效、无选择提交报错如何解决

核心问题原因 #

• 用户点击「取消」按钮卸载窗体后，标准模块仍会执行result = frmSuplier.Sup语句：VBA中访问已卸载的窗体属性时，会自动重新实例化该窗体，导致流程没有按预期退出
• 供应商选择校验放在Property Get中逻辑不合理：多次校验失败重新显示窗体后，原有执行流程仍会继续向下调用计算过程，空值会触发报错
• 未设置提交状态标记，无法区分用户是点击确定提交、还是点击取消关闭窗体

代码调整方案 #

1. 用户窗体代码调整 #

' 新增私有变量，标记用户是否点击确定提交
Private m_IsSubmit As Boolean

Private Sub cmdAceptar_Click()
    ' 校验逻辑挪到确定按钮点击事件中，不通过就不隐藏窗体
    If optSupA = True Or optSupB = True Or optSupC = True Then
        m_IsSubmit = True
        Me.Hide
    Else
        MsgBox "请选择供应商", vbExclamation
    End If
End Sub

Private Sub cmdCerrar_Click()
    m_IsSubmit = False
    Unload Me
End Sub

Public Property Get Sup() As String
    ' Property仅做取值，不处理校验和交互逻辑
    If optSupA = True Then
        Sup = "SuplierA"
    ElseIf optSupB = True Then
        Sup = "SuplierB"
    ElseIf optSupC = True Then
        Sup = "SuplierC"
    End If
End Property

' 新增属性，暴露提交状态给外部模块调用
Public Property Get IsSubmit() As Boolean
    IsSubmit = m_IsSubmit
End Property

2. 标准模块代码调整 #

Dim result as String
Public Sub TEST()
    ' 声明窗体变量，避免默认实例自动重建的问题
    Dim frm As frmSuplier
    Set frm = New frmSuplier
    
    ' 显示模态窗体
    frm.Show vbModal
    
    ' 先判断窗体是否还存在、用户是否点击提交，不符合直接退出
    If Not frm Is Nothing Then
        If frm.IsSubmit Then
            result = frm.Sup
            Call Calculate_price(result)
        End If
        Unload frm
    End If
    Set frm = Nothing
End Sub

调整后运行逻辑 #

1. 点击确定按钮时先做选择校验，未选中供应商直接弹提示，不会关闭窗体，省去后续反复显示窗体的逻辑
2. 点击取消按钮时标记提交状态为否，直接卸载窗体，后续模块检测到未提交直接退出，不会再调用Sup属性
3. 所有交互、校验逻辑收拢在按钮点击事件中，属性仅做取值用，逻辑边界更清晰，不会出现异常调用

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