Case "送达回证"
        Forms("执法管理").Open
        Forms("强制目录").Open
        Forms("强制文书送达回证").Open
        MainTable = Tables("强制送达回证")
        With CurrentTable
            Dim r As Integer
            r = .FindRow("[案件登记号] Like \'%" & Forms("强制目录").Controls("Label2").Text.Replace("[", "@").Replace("]", "#").Replace("@", "[[]").Replace("#", "[]]") & "%\'") \'从 第一行开始查找
            If r >= 0 Then \'如果找到的话
                .Position = r \'定位到找到的行.
            Else
                forms("强制文书送达回证").controls("TextBox1").text=Tables("强制措施基本情况").current("案由")
            End If
        End With

以上代码无法同时打开Forms("执法管理").Open
        Forms("强制目录").Open
        Forms("强制文书送达回证").Open

三个窗口，是哪里错了

请指教

谢谢！

注：“执法管理”和“强制目录”这两个窗口所属于同一个表（强制措施基本情况），“强制文书送达回证”窗口所属于另一个表（强制送达回证）

Forms("执法管理").Open窗口类型是共有

        Forms("强制目录").Open窗口类型是停靠
        Forms("强制文书送达回证").Open窗口类型是主窗口

目前是Forms("强制目录").Open窗口不能打开