如何按顺序调用多个窗体？能否用For Each遍历窗体集合？

能否用窗体集合+For Each遍历实现顺序调用？ #

可以，但更合理的做法是在集合中存储窗体名称字符串（而非窗体对象）。直接存储窗体对象要求窗体必须处于打开状态，而我们的需求是按顺序逐个打开、关闭，存名称能避免对象引用的诸多问题，灵活性更高。

运行时错误2450的原因及修复 #

错误2450是因为Forms![FormName]引用的窗体当前未打开——Forms集合只包含已经加载的窗体，找不到未打开的窗体就会抛出这个错误。

修复代码的两种方式：

• 若要添加已打开的窗体，先校验加载状态：

  Sub FrmEntry()
      Dim Frms As New Collection
      If CurrentProject.AllForms("FormName").IsLoaded Then
          Frms.Add Forms("FormName")
      End If
  End Sub
  

• 若要管理待顺序打开的窗体，直接存名称（推荐）：

  Sub FrmEntry()
      Dim Frms As New Collection
      Frms.Add "录入窗体1"
      Frms.Add "录入窗体2"
      Frms.Add "录入窗体3"
  End Sub
  

实现顺序调用的完整方案 #

方式1：一次性启动全流程（适合自动遍历） #

在标准模块中编写代码，定义窗体序列后自动逐个打开，同时处理当前窗体的保存与关闭：

Sub RunEntryForms()
    Dim Frms As New Collection
    Dim frmName As Variant
    Dim currentForm As Form
    
    ' 按顺序添加窗体名称
    Frms.Add "录入窗体1"
    Frms.Add "录入窗体2"
    Frms.Add "录入窗体3"
    
    For Each frmName In Frms
        ' 处理前一个打开的窗体：保存+关闭
        If Not currentForm Is Nothing Then
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close acForm, currentForm.Name
            Set currentForm = Nothing
        End If
        
        ' 打开当前序列的窗体
        DoCmd.OpenForm frmName
        Set currentForm = Forms(frmName)
    Next frmName
End Sub

方式2：按钮触发逐页跳转（适合手动控制） #

给每个窗体添加“下一步”按钮，在按钮的点击事件中编写代码：

Private Sub cmdNext_Click()
    ' 保存当前窗体数据
    DoCmd.RunCommand acCmdSaveRecord
    ' 关闭当前窗体
    DoCmd.Close acForm, Me.Name
    ' 打开下一个目标窗体
    DoCmd.OpenForm "录入窗体2"
End Sub

如果想复用逻辑，可封装通用导航过程：

' 通用跳转子过程
Sub NavigateToNext(currentForm As Form, nextFormName As String)
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close acForm, currentForm.Name
    DoCmd.OpenForm nextFormName
End Sub

然后在按钮事件中调用：

Private Sub cmdNext_Click()
    NavigateToNext Me, "录入窗体2"
End Sub

关键注意事项 #

• 确保窗体已正确绑定数据源，否则保存操作无法生效；
• 最后一个窗体的“完成”按钮可只执行保存+关闭，无需打开新窗体；
• 若需处理用户取消关闭的情况，可在Form_Unload事件中添加判断逻辑。

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