国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

設(shè)置

AllowBypassKey 屬性使用以下設(shè)置。

您可以使用宏 （宏：用來自動(dòng)執(zhí)行任務(wù)的一個(gè)操作或一組操作。）或 Visual Basic for Applications (VBA) （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏語言版本，用于編寫基于 Microsoft Windows 的應(yīng)用程序，內(nèi)置于多個(gè) Microsoft 程序中。） 代碼來設(shè)置該屬性。

要使用宏或 Visual Basic for Applications (VBA) 代碼設(shè)置 AllowBypassKey 屬性，必須通過以下方法創(chuàng)建該屬性：

• 在 Microsoft Access 數(shù)據(jù)庫(kù) （數(shù)據(jù)庫(kù)：與特定主題或用途相關(guān)的數(shù)據(jù)的集合。在數(shù)據(jù)庫(kù)內(nèi)，關(guān)于特定實(shí)體的信息（如雇員或訂單）分類歸納到表、記錄和字段中。）（.mdb 或 .accdb）中，可使用 CreateProperty 方法添加該屬性并將其追加到 Database 對(duì)象的 Properties 集合中。
• 在 Microsoft Access 項(xiàng)目 （Microsoft Access 項(xiàng)目：與 Microsoft SQL Server 數(shù)據(jù)庫(kù)連接且用于創(chuàng)建客戶/服務(wù)器應(yīng)用程序的 Access 文件。項(xiàng)目文件中不包含任何數(shù)據(jù)或基于數(shù)據(jù)定義的對(duì)象（如表或視圖）。） (.adp) 中，可使用 Add 方法將該屬性添加到 CurrentProject 對(duì)象的 AccessObjectProperties 集合中。

注解

應(yīng)確保在調(diào)試應(yīng)用程序時(shí)將 AllowBypassKey 屬性設(shè)置為 True。

只有在下一次打開應(yīng)用程序數(shù)據(jù)庫(kù)時(shí)，AllowBypassKey 屬性的設(shè)置才會(huì)生效。

示例

以下示例顯示了一個(gè)名為 SetBypassProperty 的過程，該過程可傳遞要設(shè)置的屬性的名稱、其數(shù)據(jù)類型及所需設(shè)置。常用過程 ChangeProperty 會(huì)嘗試設(shè)置 AllowBypassKey 屬性，并在找不到該屬性的情況下使用 CreateProperty 方法將該屬性追加到 Properties 集合中。由于在添加該屬性之前，AllowBypassKey 屬性并不顯示在 Properties 集合中，因此此過程是必需的。

Sub SetBypassProperty()Const DB_Boolean As Long = 1ChangeProperty "AllowBypassKey", DB_Boolean, FalseEnd SubFunction ChangeProperty(strPropName As String, _varPropType As Variant, _varPropValue As Variant) As IntegerDim dbs As Object, prp As VariantConst conPropNotFoundError = 3270Set dbs = CurrentDbOn Error GoTo Change_Errdbs.Properties(strPropName) = varPropValueChangeProperty = TrueChange_Bye:Exit FunctionChange_Err:If Err = conPropNotFoundError Then ' Property not found.Set prp = dbs.CreateProperty(strPropName, _varPropType, varPropValue)dbs.Properties.Append prpResume NextElse' Unknown error.ChangeProperty = FalseResume Change_ByeEnd IfEnd Function