閉じる

ShiftKeyを有効にする。無効にする。


Private Sub cmdSHIFT無効_Click()

   '●SHIFTキーを無効にします。

    ChangeProperty "AllowBypassKey", dbBoolean, False

 

    MsgBox "SHIFTキーが無効になりました"



End Sub







Private Sub cmdSHIFT有効_Click()

   '●SHIFTキーを無効にします。

    Dim strmsg_1 As String



    strmsg_1 = "ACCESSを再度立ち上げた後、Shiftキーが有効になります。"

    

    ChangeProperty "AllowBypassKey", dbBoolean, True

    MsgBox strmsg_1



End Sub





Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

'●SHIFT_keyを無効にする　有効にする。

    On Error GoTo Change_Err

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270



    Set dbs = CurrentDb

    dbs.Properties(strPropName) = varPropValue

    ChangeProperty = True



Change_Bye:

    Exit Function



Change_Err:

    If Err = conPropNotFoundError Then    ' プロパティが見つかりません。

        Set prp = dbs.CreateProperty(strPropName, _

            varPropType, varPropValue)

        dbs.Properties.Append prp

        Resume Next

    Else

        ' 認識できないエラー。

        ChangeProperty = False

        Resume Change_Bye

    End If

End Function