*

Access VBA Shiftキーの有効/無効

公開日: : 最終更新日:2014/05/07 その他

Shiftキーの有効/無効

Shiftキーを押しながらAccessで作成したデータベースを起動すると、デザインモードで起動してしまい内部の構造が見られてしまいます。Shiftキー押しながらの起動を制御するプログラムを記述します。

スポンサーリンク

プログラムの例

モジュール内に以下のプログラムを用意して下さい。

Public Function ShiftkeyChange(st As Boolean)

Dim DB As Database
Dim PRO As Property
Dim BLN As Boolean

Set DB = CurrentDb
BLN = False
For Each PRO In DB.Properties
If PRO.Name = “AllowBypassKey” Then
PRO = st
BLN = True
Exit For
End If
Next PRO

If BLN = False Then
Set PRO = DB.CreateProperty(“AllowBypassKey”, dbBoolean, st)
DB.Properties.Append PRO
End If
Set PRO = Nothing
DB.Close
Set DB = Nothing
End Function

次にフォーム内に以下のプログラムを用意してください。

‘Shiftキーの有効処理

Private Sub コマンド10_Click()

Dim Res As String

Res = MsgBox(“ShiftKeyを有効にしますか?”, vbOKCancel, “有効処理”)
If Res = vbOK Then
Call ShiftkeyChange(True)
MsgBox “システムの再起動後に適用されます”, 0, “確認”
Else
End If

End Sub

‘Shiftキーの無効処理

Private Sub コマンド11_Click()

Dim Res As String

Res = MsgBox(“ShiftKeyを無効にしますか?”, vbOKCancel, “無効処理”)
If Res = vbOK Then
Call ShiftkeyChange(False)
MsgBox “システムの再起動後に適用されます”, 0, “確認”
Else
End If

End Sub

注意事項

san01

VBA画面メニューバーの「ツール」→「参照設定」で「Microsoft DAO ** object Library」にチェックを入れ、尚且つ「Microsoft ActiveX Data Objects ** Library」よりも優先順位を上にして下さい。(**はバージョンですので一番バージョンが高いものを選択して下さい。)

スポンサーリンク

ad-pc

ad-pc

関連記事

Access VBA カレンダーコントロールを使用して日付入力を行う

カレンダーコントロールを使用して日付入力を行う 日付入力を実施する際に使用するユーザーに「2014

記事を読む

Access VBA 他のアプリケーションを開く

Accessから他のアプリケーションを開く Accessから他のアプリケーションを開くプログラム例

記事を読む

Access VBA メニューバーの表示・非表示

メニューバーの表示・非表示をコントロール Accessのメニューバーの表示/非表示をコントロールす

記事を読む

Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログラムコードを説明します。 P

記事を読む

Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使用しているデータをExcel(

記事を読む

Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のかかるプログラムを実行している際

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

Access VBA カレンダーコントロールを使用して日付入力を行う

カレンダーコントロールを使用して日付入力を行う 日付入力を実施する際

→もっと見る

PAGE TOP ↑