在一個程序中往往包含多個窗體,窗體在程序中用代碼互相關聯(lián),形成了一個有機的整體;可見,窗體操作在VBA中是很重要的。
窗體操作有兩個重要的命令:DoCmd.openform(打開窗體)和DoCmd.Close(關閉窗體)。
用于關閉窗體的Docmd的Close方法有兩個必選參數(shù)和一個可選參數(shù)?蛇x參數(shù)指定要將其關閉的對象的類型。如果要關閉一個窗體,則使用acForm(是Access的內(nèi)置常量,使Close方法知道關閉的是一個窗體)。另一個參數(shù)指定窗體的名稱,即在屬性表中“名稱”屬性的值。可選參數(shù)告訴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) ’關閉窗體過程
窗體操作有兩個重要的命令:DoCmd.openform(打開窗體)和DoCmd.Close(關閉窗體)。
用于關閉窗體的Docmd的Close方法有兩個必選參數(shù)和一個可選參數(shù)?蛇x參數(shù)指定要將其關閉的對象的類型。如果要關閉一個窗體,則使用acForm(是Access的內(nèi)置常量,使Close方法知道關閉的是一個窗體)。另一個參數(shù)指定窗體的名稱,即在屬性表中“名稱”屬性的值。可選參數(shù)告訴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) ’關閉窗體過程