很菜的问题：请教子窗体打开后关闭上级窗体的问题

假设主窗体命名为1，子窗体命名为2，主窗体上按钮名称为Command24，则在设计视图中，对 按钮 右键点击 事件生成器，编辑代码如下：

Private Sub Command24_Click()
On Error GoTo Err_Command24_Click

    DoCmd.Close
    '关闭窗体1，
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    '打开窗体2，

Exit_Command24_Click:
    Exit Sub

Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
   
End Sub