在 Visual Basic 中,OpenForm 方法執(zhí)行 OpenForm 操作。
expression.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)
expression 必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。
FormName 必需 Variant 型。字符串表達(dá)式,表示當(dāng)前數(shù)據(jù)庫中窗體的有效名稱。如果在某類庫數(shù)據(jù)庫中執(zhí)行包含 OpenForm 方法的 Visual Basic 代碼,則 Microsoft Access 將先在該類庫數(shù)據(jù)庫中查找具有相同名稱的窗體,然后再在當(dāng)前數(shù)據(jù)庫中查找。
View 可選 AcFormView。
AcFormView 可以是下列 AcFormView 常量之一: |
acDesign |
acFormDS |
acFormPivotChart |
acFormPivotTable |
acNormal 默認(rèn)。在“窗體”視圖中打開窗體。 |
acPreview 如果將該參數(shù)留空,將假定為默認(rèn)常量 (acNormal)。 |
FilterName 可選 Variant 型。字符串表達(dá)式,表示當(dāng)前數(shù)據(jù)庫中查詢的有效名稱。
WhereCondition 可選 Variant 型。字符串表達(dá)式,表示不包括詞 WHERE 的有效 SQL WHERE 子句。
DataMode 可選 AcFormOpenDataMode。窗體的數(shù)據(jù)輸入模式。它只應(yīng)用于在“窗體”視圖或“數(shù)據(jù)表”視圖中打開的窗體。
AcFormOpenDataMode 可以是這些 AcFormOpenDataMode 常量之一: |
acFormAdd 用戶可以添加新記錄,但是不能編輯現(xiàn)有記錄。 |
acFormEdit 用戶可以編輯現(xiàn)有記錄和添加新記錄。 |
acFormPropertySettings 默認(rèn) |
acFormReadOnly 用戶只能查看記錄。 如果將該參數(shù)留空(將假定為默認(rèn)常量,即 acFormPropertySettings),則 Microsoft Access 將在由窗體的 AllowEdits、AllowDeletions、AllowAdditions 和 DataEntry 屬性設(shè)置的數(shù)據(jù)模式中打開窗體。 |
WindowMode 可選,AcWindowMode。打開窗體時所采用的窗口模式。
AcWindowMode 可以是下列 AcWindowMode 常量之一: |
acDialog 窗體的 Modal 和 PopUp 屬性設(shè)為“是”。 |
acHidden 窗體隱藏。 |
acIcon 打開窗體并在 Windows 工具欄中最小化。 |
acWindowNormal 默認(rèn)值 窗體采用它的屬性所設(shè)置的模式 如果將該參數(shù)留空,將假定為默認(rèn)常量 (acWindowNormal)。 |
OpenArgs 可選 Variant 型。字符串表達(dá)式,用于設(shè)置窗體的 OpenArgs 屬性。而后該設(shè)置可用于窗體模塊中的代碼,例如 Open 事件過程。OpenArgs 屬性也可以在宏和表達(dá)式中引用。
例如,假定打開的是一個客戶列表的連續(xù)窗體。如果希望當(dāng)窗體打開時焦點(diǎn)移到特定的客戶記錄上,則可以使用 openargs 參數(shù)指定客戶名稱,然后使用 FindRecord 方法,將焦點(diǎn)移到指定的客戶名稱的記錄上。
該參數(shù)僅在 Visual Basic 中才可用。
有關(guān)該操作及其參數(shù)如何使用的詳細(xì)信息,請參閱該操作的主題。
wherecondition 參數(shù)的最大長度為 32,768 個字符(而在“宏”窗口中,Where Condition 操作參數(shù)的最大長度為 256 個字符)。
語法中的可選參數(shù)可以留空,但是必須包含參數(shù)的逗號。如果位于末端的參數(shù)留空,則在指定的最后一個參數(shù)后面不必使用逗號。
下面的示例在“窗體”視圖中打開“雇員”窗體,并只顯示“姓氏”字段為 King 的記錄。可以編輯顯示的記錄,也可以添加新記錄。
DoCmd.OpenForm "Employees", , ,"LastName = 'King'"