AllowBypassKey 속성

설정

AllowBypassKey 속성에는 다음 설정이 사용됩니다.

매크로 또는 VBA(Visual Basic for Applications) 코드를 사용하여 이 속성을 설정할 수 있습니다.

매크로 또는 VBA(Visual Basic for Applications) 코드를 사용하여 AllowBypassKey 속성을 설정하려면 다음 방법으로 속성을 만들어야 합니다.

• Microsoft Access 데이터베이스(.mdb 또는 .accdb)에서 CreateProperty 메서드를 사용한 후 Database 개체의 Properties 컬렉션에 추가하여 속성을 추가할 수 있습니다.

• Microsoft Access 프로젝트(.adp)에서 Add 메서드를 사용하여 CurrentProject 개체의 AccessObjectProperties 컬렉션에 속성을 추가할 수 있습니다.

주의

응용 프로그램을 디버그할 때 AllowBypassKey 속성이 True로 설정되어 있는지 확인해야 합니다.

AllowBypassKey 속성의 설정은 다음에 응용 프로그램 데이터베이스를 열기 전까지는 적용되지 않습니다.

예

다음 예에서는 설정할 속성의 이름, 데이터 형식 및 설정을 전달하는 SetBypassProperty 프로시저를 보여 줍니다. 범용 프로시저 ChangeProperty는 AllowBypassKey 속성을 설정하려고 시도하고, 속성이 없는 경우에는 CreateProperty 메서드를 사용하여 속성을 Properties 컬렉션에 추가합니다. 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