一定時間帯の入力制限について

Question

お世話になっております。

ACCESSで、ある時間が来たら利用者の入力制限を行う設定方法をご教授下さい。

お弁当発注のとりまとめをACCESSで行おうとしています。

お弁当を注文する「利用者」と、お弁当屋さんに発注する「管理者」がおり、当日分注文の締めを行うため、時間で「利用者」の入力制限を行いたいと思います。

但し、「管理者」は入力制限が無いようにしたいです。

（注文を締めた後でも「利用者」が「管理者」に口頭でお弁当を依頼する場合があるためです）

ACCESSに慣れていないため、かみ砕いてご教授頂けると幸いです。

よろしくお願いいたします。

Answer 1

VBAで、タイマー時イベントで定期的に時刻をチェックして、入力禁止時間帯なら更新できないように設定するという処理をすることになりますね。

手順としては、

入力フォームをデザインビューで開き、

「タイマー間隔」プロパティを 60000 と設定します。

これで１分（60000ミリ秒）毎にイベントが発生します。

「タイマー時」欄で[イベント プロシージャ] を選択して、右端のビルドボタンをクリックします。

VBAウィンドウが開き、下記のように表示されますので、

Private Sub Form_Timer()

End Sub

真ん中に下記のように記述してください。

Private Sub Form_Timer()

   If Time() >= #10:00:00 AM# Then

        Me.AllowEdits = False

        Me.AllowAdditions = False

   Else

        Me.AllowEdits = False

        Me.AllowAdditions = False

   End If

End Sub

これを上書き保存します。

以上です。

これで、午前10以降は、データの更新、新規追加は不可能になります。

> 但し、「管理者」は入力制限が無いようにしたいです。

に関しては、どのように「管理者」とそうでないかを識別するつもりでしょうか。

パスワードで確認するようにしますか。

フォーム上にコマンドボタンを配置しておいて、

コマンドボタンのクリック時のイベントプロシージャを下記のようにすると

更新可能、追加可能に変更することができます。

Private Sub コマンド1_Click()

    If InputBox("パスワードを入力してください") = "password" Then

        Me.AllowEdits = True

        Me.AllowAdditions = True

    End If

End Sub

Answer 2

hatena19様

お世話になっております。

お忙しい中ご教授頂きありがとうございます。

市販本やネットを見ても分からなかったので、本当に助かりました。

また、分かりやすく記載して頂きありがとうございます。

早速試してみます。

本当にありがとうございました。