如何从FrmNotAllDataEntered调用FrmDataEntry中按钮的点击事件？

你之前的三种方法都无法生效，原因如下：

• 跳转标签（GoTo）：GoTo仅能在同一个过程/模块内跳转，跨窗体的标签无法被识别，直接触发错误。
• 直接调用Click事件：按钮的Click事件默认是Private私有过程，外部窗体没有访问权限。
• 带窗体名调用Click事件：同样因为Click事件是私有，且直接用窗体名调用会创建新的窗体实例，而非你正在使用的原有实例。

正确解决方案：分离业务逻辑为公共过程 #

把验证数据、填充工作表的核心逻辑从按钮点击事件中抽离成公共过程，让两个窗体都能调用：

1. 在FrmDataEntry中创建公共过程
   把原来CmdDataTurnIn_Click里的验证、填充代码移到一个Public的子过程中：

   ' FrmDataEntry窗体模块内
   Public Sub ValidateAndFillData()
       ' 这里放置原CmdDataTurnIn_Click中的验证逻辑
       If Trim(FrmNotAllDataEntered.txtNewData.Value) = "" Then
           MsgBox "请输入完整数据"
           Exit Sub
       End If
       
       ' 这里放置填充工作表的逻辑
       ThisWorkbook.Worksheets("数据记录").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = FrmNotAllDataEntered.txtNewData.Value
   End Sub
   

2. 修改原按钮Click事件调用公共过程
   保持原按钮的功能不变，让它调用刚才的公共过程：

   ' FrmDataEntry中的CmdDataTurnIn_Click事件
   Private Sub CmdDataTurnIn_Click()
       ValidateAndFillData
   End Sub
   

3. 在FrmNotAllDataEntered中调用公共过程
   在需要触发验证的地方（比如某个确认按钮的Click事件），直接调用FrmDataEntry的公共过程：

   ' FrmNotAllDataEntered中的按钮事件示例
   Private Sub btnConfirm_Click()
       ' 调用FrmDataEntry的公共验证填充过程
       FrmDataEntry.ValidateAndFillData
   End Sub
   

额外优化建议 #

• 如果需要访问FrmNotAllDataEntered的控件数据，建议给该窗体添加公共属性而非直接访问控件，避免耦合：

  ' FrmNotAllDataEntered窗体模块内
  Public Property Get InputData() As String
      InputData = Trim(Me.txtNewData.Value)
  End Property
  

  然后在ValidateAndFillData中改用FrmNotAllDataEntered.InputData获取数据。
• 确保FrmDataEntry处于已加载状态（如果是模态窗体，需注意显示顺序；非模态窗体可正常调用）。

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