アクセス2013について

アクセス２０１３のフォームについて下記について教えてください。
「フォーム内容」
①開始時間②終了時間③経過時間④判定⑤備考
①と②は手動入力し③はモジュールに記載して計算してます。

質問①
③の経過時間を現在時間で反映しています。
例えば開始時間0700　終了時間0900　経過時間0200　で反映
この経過時間を「0200」の時間ではなく、「120」の分にする場合の書き方教えてください。

質問②
④の判定では「OK」・「NG」判定にしています。
OKの場合は、このフォームの「閉じる」を押せばそのまま閉じれます。
が、「NG」の場合は⑤備考にコメントしないと閉じれないようにする書き方教えてください。

宜しくお願い致します。

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2021/09/28 08:17

>Q２についてですが、フォームプロパティで「クリック時」でいいですかね？

フォームのプロパティ中に（上から５行目あたり）に「更新前処理」が有りますので
そちらで行ってください。
「クリック時」ではCancel（更新の取り止め）が出来ません。

この回答へのお礼

nicotinismさん
色々とありがとうございます。
出来ました。

お礼日時：2021/09/28 09:15

No.1 回答者： nicotinism 回答日時： 2021/09/26 15:49

もう解決済みかもしれませんが、

Q1.『0200』の計算結果をどのようにして求めているか不明、
開始時間と終了時間のデータ型が不明なのでパス。
適当な関数で*60を何処かに入れれば…とは思いますけど。

Q2.フォームのBeforeUpdateイベントを使用して
Private Sub Form_BeforeUpdate(Cancel as Integer)
If me!OkNgのコントロール名="NG" then
me!コメント欄のコントロール名.setfocus
cancel = true
end sub
みたいな感じでどうでしょ。
me!OkNgのコントロール名のデータ型がYes/No型なら変更してください。
ご参考まで。
※ひとつの質問であれこれお尋ねになるのはお止めになった方が吉。
回答者側からするとQ1は分かるけどQ2は分からんので回答止めよう…
などとなります。
また、「ついでに聞いちゃえ」って追加の質問を行うのも×。
ただし、質問が相互に影響を及ぼしそうな内容であれば、この限りではありません。
その場合には大よそでも全体像を説明して、
今回はこの内の１番目について教えてってやれば
回答者は全体を考慮して回答できるので無駄なやり取りが無くなりますね。

この回答へのお礼

nicotinismさん
ご回答頂きましてありがとうございます。
またご助言頂きありがとうございます。

Q２についてですが、フォームプロパティで「クリック時」でいいですかね？

OKNGのコントロール名・・・判定
OKNGのデータ型・・・短いテキスト　
コメントのコントロール名・・・備考

Private Sub Form_BeforeUpdate(Cancel as Integer)
If me!判定="NG" then
me!備考.setfocus
cancel = true
end sub

お礼日時：2021/09/26 23:23