主题：[求助]为何不能同时打开三个窗口

 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

三个窗口，是哪里错了

请指教

谢谢！

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