チェックボックスのON OFFでの切替について

いつもお世話になっております。
チェックボックスについてお伺いさせて
いただきます。
内容は以下の通りとなっております。

【チェックボッスがONのとき】

ME!テキストボックスＡ.Visible = TRUE
ME!テキストボックスＢ.Visible = TRUE
数値の入力を可能としています。

ただ・・・
【チェックボッスがOFFのとき】

ME!テキストボックスＡ.Visible = FALSE
ME!テキストボックスＢ.Visible = FALSE
とするように設定しているのですが。

これが
ME!テキストボックスＡとＢのどちらかに数値が入力されている場合、
エラーメッセージを表示して各テキストボックスを０にしてから、
ME!テキストボックスＡとＢを可視 不可の設定にしたいのですが。

どうしても、うまくコード記述することができず苦戦しております。

どなたかご教授お願いいたします。

No.3 ベストアンサー 回答者： mike32 回答日時： 2018/01/28 15:11

こんな感じでいかがでしょうか。

チェックボックスのクリック時のイベントとして作成してみました。
数字以外の文字列が入力されない前提で書いています。

Private Sub チェックボックス1_Click()
Dim txtA As String
Dim txtB As String

'チェックボックスが"ON"の場合
If Me!チェックボックス1.Value = True Then
Me!テキストボックスA.Visible = True
Me!テキストボックスB.Visible = True
Exit Sub
End If

'チェックボックスが"OFF"の場合
'テキストボックスの値を取得(Nullの場合は"")
If IsNull(Me!テキストボックスA.Value) = False Then
txtA = Me!テキストボックスA.Value
Else
txtA = ""
End If
If IsNull(Me!テキストボックスB.Value) = False Then
txtB = Me!テキストボックスB.Value
Else
txtB = ""
End If

'数値判定
If txtA <> "" And txtA <> "0" Then
MsgBox "Aに数値が入力されています"
End If
If txtB <> "" And txtB <> "0" Then
MsgBox "Bに数値が入力されています"
End If


Me!テキストボックスA.Value = "0"
Me!テキストボックスB.Value = "0"

Me!テキストボックスA.Visible = False
Me!テキストボックスB.Visible = False

End Sub

この回答へのお礼

mike32さんへ

うまくできました。
また一つ勉強になりました。

お礼が遅くなり申し訳ございません。

お礼日時：2018/01/30 19:51

No.2 回答者： lawson 回答日時： 2018/01/28 01:22

チェックボックス系の制御でよくあるバグは、チェックボックスを激しく連打したときに。

処理の一部が歯抜けるとか。挙動不審になったり。
場合によっては、突然、エラーになったり。

誰が何の目的に使って、
どの程度の信頼性を担保するかによるですが。

信頼性がナーバスなら、
その連打テストをやるべきなのは、いわずもがな。

No.1 回答者： lawson 回答日時： 2018/01/28 01:11

私の頭が変なのか、世間が変なのか不明で。

どう考えても、意味を1通りに解釈するのがきついような記述をしてこれが、仕様書でござると言って平気な人々がいるです。
なぜ、そうなるのか永遠の謎なのです。


数値の入力を可能とするのは。
ア)該当のテキストボックスでキーボード入力をしたときに、数字文字列以外は文字が入らない制御としたいか。

イ) そうではなくキーボード入力自体は、制限はないが
なにかのアクションをするボタン、例えば、登録ボタンなど。その数値を見て処理するところで、
数値かどうかをチェックする方針なのか。
ウ)数値とは、実数のことをいってるのか。つまり、
小数点とか、小数桁は許すのか。整数に限定か。
先頭に+、-の文字が
あるのは許すのか。


AとBのどちらかに数値が
入力されている場合というのは、値が0の場合はその条件に含んでるのか。


(ア)で、もし、
他のアプリ、例えば、
メモ帳などから、文字列を
該当のテキストボックスにコピペしたときなども、
当然、テストしてうまくいってることが確認できたならば。
状況によっては、
「数値が入力されている場合」と称されるものは、
単に、
"0"でない、かつ、""
とするだけで、判定可能かもしれない。

AとBを可視にするときは、
テキストボックスは、0にするのか。

あと、
ア)の制御だったときに、
初期値0にしたいのか。
バックスペースキーや、
デリートキーなどで、
0を消して、
なにも入力されていない
状況がおこりうるのか
などは、当然、テストして
確かめとして。
もし、そうだったときに。

テキストボックスからフォーカスアウト時、なにも入力されてなかったら0に変えるとかするのか。
特に、その必要ないのか。


などなど、

そういう背景があって。

「数値かどうか判定」の処理方法はかわるです。

別に、テキストボックスA、Bの入力値について、
各々やって、Orで判定するだけだと思うです。

あと、気になるのは。
チェックボックスを変更したときのイベントハンドラーで、
該当のチェックボックスのON/OFFについて、操作したその値がとれてるか
デバッガーで確認するとか
です。
つまり、操作前のワンテンポ遅れた逆のON/OFF値になってしまっていないかなど。