*

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

関連記事

moff

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

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

記事を読む

excel03

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

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

記事を読む

prg01

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

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

記事を読む

sound01

Access VBA 音を鳴らす PlaySound

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

記事を読む

cal01

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

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

記事を読む

shell01

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

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

記事を読む

Message

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

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

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

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

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

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

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

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

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

→もっと見る

PAGE TOP ↑