xin3721网络学院为广大学员，准备了丰富了教学视频。相关视频教程地址为：access教程在一个程序中往往包含多个窗体，窗体在程序中用代码互相关联，形成了一个有机的整体；可见，窗体操作在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)    ’关闭窗体过程

  On Error GoTo Err一关闭窗体  DoCmd．Close acForm，stDocName，acSaveYes  ’关闭指定窗体并保存该窗体Exit一关闭窗体：    Exit Sub Err一关闭窗体：  MsgBox Err．Description  Resume Exit一关闭窗体End Sub Sub corn打开一Click()    ‘打开按钮的单击事件  forName—Me．txt窗体  ’为窗体名称变量赋值，调打开窗体过程，并以窗体名为参数打开指定窗体  打开窗体(forName)End Sub Sub corn关闭Click()    ‘关闭按钮的单击事件  forName—Me．txt窗体  ’为窗体名称赋值，调关闭窗体过程，并接收窗体名参数，中国自学编程网首发，关闭窗体  关闭窗体(forName)End Sub

运行程序时，显示的窗体如图6—15所示。    运行后，如果在文本框输入一个窗体名称，并单击标题为“打开窗体”的按钮，则打开该窗体。可同时打开多个窗体。若单击“关闭窗体”按钮，则当前窗口关闭。