質問させていただきます。
コマンドボタンでシフトキーの有効無効を設定します。
パスワードを入れ、正しければ有効、間違っていれば無効となるようにしたいのですが、逆になっています。正しいパスワードを入れるとシフトキーが無効となります。間違っているパスワードを入れるとシフトキーが有効となります。
訂正の仕方をご教授お願いします。
functionプロシージャに以下
Function NoShiftKey()
Dim strMsg1 As String
Dim strMsg2 As String
strMsg1 = "再起動の後、Shiftキィーが有効になります。"
strMsg2 = "再起動の後、Shiftキィーが無効になります。"
Select Case InputBox("MAGI解除します") ' --- A
Case 1234 ' --- B
ChangeProperty "AllowBypassKey", dbBoolean, False ' --- C
MsgBox strMsg2
Case Else
ChangeProperty "AllowBypassKey", dbBoolean, True ' --- D
MsgBox strMsg1
End Select
End Function
Function ChangeProperty(strPropName As String, _
varPropType, varPropValue) As Integer ' --- A
On Error GoTo エラー
Dim dbs As Database
Dim prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Exit Function
エラー:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Exit Function
End If
End Function
-----------------------------------------------------------
コマンドボタンのクリック時に以下
Private Sub コマンド52_Click()
Call NoShiftKey ' --- A
End Sub
----------------------------------------------------------------
お礼
わかりました＾＾； ありがとうございます。