主题：如何用代码关闭这个窗口

If Forms.Contains("记录窗口") AndAlso Forms("记录窗口").Opened Then '有记录窗口，并且窗口已打开

    Dim nm As String

    If Forms("记录窗口").Controls("rgd-1").Table IsNot Nothing Then '并且记录窗口控件绑定了表

        nm = Forms("记录窗口").Controls("rgd-1").Table.Name '获取绑定的表名

    End If

    If nm > "" AndAlso Tables.Contains(nm) = False AndAlso System.Windows.Forms.Form.ActiveForm.Name <> "frmMain" Then 

        '表名不为空，而表不存在，说明含窗口表的窗口关闭了，记录窗口控件就绑定了不存在的表，因而弹出错误提示窗口。另外不要误把狐表主窗口给关了

        Forms("记录窗口").Close '这个窗口中的记录窗口控件已出错，将其关闭，在表单击事件中重新打开，恢复正常。              

        Sendkeys.Send("%{F4}") '这时候，错误提示窗口就是当前活动窗口，只是不知其姓甚名谁，将其自动关闭。

    End If

End If