录入窗体翻页时，另一个已经打开的窗体自动关闭

韩云　发表于：2012-05-17 12:57:14 　

设有A窗体和B窗体两窗体，用 A 窗体上的打开命令打开B窗体，当对 A 窗体进行翻页后，已经打开的 B 窗体自动关闭，请问这段代码该如何写呢？写在什么地方？

纵云梯发表于：2012-05-17 13:27:15

当按Form1的【打开】按钮打开Form2后，翻页到【页2】时Form2自动关闭。

韩云发表于：2012-05-17 16:41:14

感谢版主的帮助，参照你的示例，我试着做了，但是不成功，拜托你再进一步指导一下，如果不象你的示例中是控件按钮，而是一个翻页的命令按钮，这段代码该如何写呢？下面是我目前的代码，Command88是翻页的命令按钮的名称

，Private Sub Command88_Change()
If Command88 = 1 Then DoCmd.Close acForm, "产品初始扩展"

End Sub

纵云梯发表于：2012-05-17 17:27:14

发你的示例上来看看，要不纸上谈兵效果差！

韩云发表于：2012-05-17 20:09:18

上传附件，请斑竹指教，谢了

韩云发表于：2012-05-17 21:35:40

上一个附件传错了，重新传一个

纵云梯发表于：2012-05-18 08:51:13

在那个翻页按钮的程序中加句：DoCmd.Close acForm, "产品初始扩展" '不就可以了吗？

如：

Private Sub Command88_Click()
On Error GoTo Err_Command88_Click

    DoCmd.GoToRecord , , acNext
    DoCmd.Close acForm, "产品初始扩展"
Exit_Command88_Click:
    Exit Sub

Err_Command88_Click:
    MsgBox Err.Description
    Resume Exit_Command88_Click

End Sub

总记录：6篇页次：1/1 9 1 :

Access交流中心