VBA编程中打开、关闭窗体

文章作者 100test 发表时间 2008:01:11 12:24:58
来源 100Test.Com百考试题网

　　在一个程序中往往包含多个窗体，窗体在程序中用代码互相关联，形成了一个有机的整体；可见，窗体操作在VBA中是很重要的。
　　窗体操作有两个重要的命令：DoCmd．openform(打开窗体)和DoCmd．Close(关闭窗体)。
　　用于关闭窗体的Docmd的Close方法有两个必选参数和一个可选参数。可选参数指定要将其关闭的对象的类型。如果要关闭一个窗体，则使用acForm(是Access的内置常量，使Close方法知道关闭的是一个窗体)。另一个参数指定窗体的名称，即在属性表中“名称”属性的值。可选参数告诉Access是否要保存在窗体上的更改，默认设置为提示是否保存。使用acSaveYes或acSaveNo来确定关闭窗体时是否要保存。
　　Close方法的语法为：
　　Docmd．Close acForm。“窗体名”，acSaveNo
　　许多DoCmd方法可直接用于单个对象。例如，GotoControl方法可将焦点指定给窗体上的一个控件，也可使用SetFocus方法达到同样的效果，即选中一个控件。需要在应用程序中移动焦点以便输入新信息或修改错误信息时，使用这两个方法都很方便。
　　[例6．113新建一个窗体，放置一个名为“指定窗体”的标签、一个文本框“txt窗体”，再放置两个命令按钮，分别是‘corn打开”、“corn关闭”，并在窗体模块中编写以下代码：
　　Option Compare Database
　　Public forName As String ’声明窗体名称变量，可在模块任何位置引用
　　Public Sub打开窗体(stDocName As String) ’打开窗体过程
　　On Error GoTo Err一打开窗体 -
　　Dim stI．inkCriteria As String
　　DoCmd．openform stDocName，，，stLinkCriteria’打开指定窗体并获得焦点
　　Exit一打开窗体：
　　Exit Sub
　　Err打开窗体：
　　MsgBox Err．Description
　　Resume Exit打开窗体
　　End Sub
　　Public Sub关闭窗体(stDocName As String) ’关闭窗体过程