AllowBypassKey 屬性

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

您可以使用 AllowBypassKey 屬性來指定是否要啟用 SHIFT 鍵,以略過啟動屬性和 AutoExec 巨集。例如,您可以將 AllowBypassKey 屬性設為 False,以避免使用者略過啟動屬性和 AutoExec 巨集。

設定值

AllowBypassKey 屬性使用下列設定值。

設定

描述

True

啟用 SHIFT 鍵,以允許使用者略過啟動屬性及 AutoExec 巨集。

False

停用 SHIFT 鍵,以避免使用者略過啟動屬性及 AutoExec 巨集。


您可以使用巨集或 Visual Basic for Applications (VBA) 程式碼設定此屬性。

若要使用巨集或 Visual Basic for Applications (VBA) 程式碼來設定 AllowBypassKey 屬性,必須使用下列方式建立屬性:

  • 在 Microsoft Access 資料庫 (.mdb 或.accdb) 中,您可以使用CreateProperty方法,然後附加至資料庫物件的Properties集合新增屬性。

  • 在 Microsoft Access 專案 (.adp) 中,您可以使用 Add 方法,將屬性新增到 CurrentProject 物件的 AccessObjectProperties 集合中。

備註

您應該要確定AllowBypassKey屬性設為True時,您偵錯應用程式。

下一次開啟應用程式資料庫時,AllowBypassKey 屬性的設定才會生效。

範例

下列範例顯示名為 SetBypassProperty 傳遞名稱屬性設定,它的資料類型與設定的程序。一般用途程序 ChangeProperty 嘗試來設定AllowBypassKey屬性,如果找不到屬性,會使用CreateProperty方法若要將屬性新增至適當列舉集合。這是因為AllowBypassKey屬性才會顯示在Properties集合中加入。

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×