こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

access シフトキー無効

質問させていただきます。

コマンドボタンでシフトキーの有効無効を設定します。
パスワードを入れ、正しければ有効、間違っていれば無効となるようにしたいのですが、逆になっています。正しいパスワードを入れるとシフトキーが無効となります。間違っているパスワードを入れるとシフトキーが有効となります。

訂正の仕方をご教授お願いします。

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

----------------------------------------------------------------

投稿日時 - 2008-03-12 12:16:06

QNo.3855741

すぐに回答ほしいです

質問者が選んだベストアンサー

こちらのコードと見比べてください。
http://www.accessclub.jp/samplefile/samplefile_01.htm

投稿日時 - 2008-03-12 13:27:18

お礼

わかりました^^;
ありがとうございます。

投稿日時 - 2008-03-12 17:07:14

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問