いつもお世話になっております。
チェックボックスについてお伺いさせて
いただきます。
内容は以下の通りとなっております。
【チェックボッスがONのとき】
ME!テキストボックスA.Visible = TRUE
ME!テキストボックスB.Visible = TRUE
数値の入力を可能としています。
ただ・・・
【チェックボッスがOFFのとき】
ME!テキストボックスA.Visible = FALSE
ME!テキストボックスB.Visible = FALSE
とするように設定しているのですが。
これが
ME!テキストボックスAとBのどちらかに数値が入力されている場合、
エラーメッセージを表示して各テキストボックスを0にしてから、
ME!テキストボックスAとBを可視 不可の設定にしたいのですが。
どうしても、うまくコード記述することができず苦戦しております。
どなたかご教授お願いいたします。
No.3ベストアンサー
- 回答日時:
こんな感じでいかがでしょうか。
チェックボックスのクリック時のイベントとして作成してみました。
数字以外の文字列が入力されない前提で書いています。
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
No.2
- 回答日時:
チェックボックス系の制御でよくあるバグは、チェックボックスを激しく連打したときに。
処理の一部が歯抜けるとか。挙動不審になったり。場合によっては、突然、エラーになったり。
誰が何の目的に使って、
どの程度の信頼性を担保するかによるですが。
信頼性がナーバスなら、
その連打テストをやるべきなのは、いわずもがな。
No.1
- 回答日時:
私の頭が変なのか、世間が変なのか不明で。
どう考えても、意味を1通りに解釈するのがきついような記述をしてこれが、仕様書でござると言って平気な人々がいるです。
なぜ、そうなるのか永遠の謎なのです。
数値の入力を可能とするのは。
ア)該当のテキストボックスでキーボード入力をしたときに、数字文字列以外は文字が入らない制御としたいか。
イ) そうではなくキーボード入力自体は、制限はないが
なにかのアクションをするボタン、例えば、登録ボタンなど。その数値を見て処理するところで、
数値かどうかをチェックする方針なのか。
ウ)数値とは、実数のことをいってるのか。つまり、
小数点とか、小数桁は許すのか。整数に限定か。
先頭に+、-の文字が
あるのは許すのか。
AとBのどちらかに数値が
入力されている場合というのは、値が0の場合はその条件に含んでるのか。
(ア)で、もし、
他のアプリ、例えば、
メモ帳などから、文字列を
該当のテキストボックスにコピペしたときなども、
当然、テストしてうまくいってることが確認できたならば。
状況によっては、
「数値が入力されている場合」と称されるものは、
単に、
"0"でない、かつ、""
とするだけで、判定可能かもしれない。
AとBを可視にするときは、
テキストボックスは、0にするのか。
あと、
ア)の制御だったときに、
初期値0にしたいのか。
バックスペースキーや、
デリートキーなどで、
0を消して、
なにも入力されていない
状況がおこりうるのか
などは、当然、テストして
確かめとして。
もし、そうだったときに。
テキストボックスからフォーカスアウト時、なにも入力されてなかったら0に変えるとかするのか。
特に、その必要ないのか。
などなど、
そういう背景があって。
「数値かどうか判定」の処理方法はかわるです。
別に、テキストボックスA、Bの入力値について、
各々やって、Orで判定するだけだと思うです。
あと、気になるのは。
チェックボックスを変更したときのイベントハンドラーで、
該当のチェックボックスのON/OFFについて、操作したその値がとれてるか
デバッガーで確認するとか
です。
つまり、操作前のワンテンポ遅れた逆のON/OFF値になってしまっていないかなど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) テキストボックスの値を該当セルに登録する方法 2 2022/11/23 18:47
- Visual Basic(VBA) 検索 3 2022/12/14 18:21
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Visual Basic(VBA) テキストボックス1の値に対するテキストボックス2に表示する値 1 2022/04/05 14:35
- Visual Basic(VBA) ActiveReportのdetailをデータセットの自動バインドを使って帳票を出力しています。 1 2023/08/16 07:16
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
新規レコード行を非表示にしたい
Access(アクセス)
-
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
-
4
どこにもフォーカスを当てたくない
Access(アクセス)
-
5
ACCESSでフォームのチェックボックスにチェックを入れて任意の数値を入力したい!!!
Access(アクセス)
-
6
ACCESSで条件によってフォーム上のフィールドの色を変更
Access(アクセス)
-
7
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
8
実行時エラー 3020の対策
Access(アクセス)
-
9
Access サブフォームでの選択行の取得
その他(データベース)
-
10
(ACCESS)条件に応じて、テキストボックスを表示・非表示設定
その他(データベース)
-
11
access2019 チェックボックスと連動したクエリ抽出条件について
Access(アクセス)
-
12
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
13
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
14
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
15
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
16
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
-
17
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
18
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
19
空白はダメというエラーの表示(アクセス)
その他(データベース)
-
20
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスでテキストボックスの...
-
Word縦書きで左から右への行
-
VBAでテキストボックスに斜線を...
-
チェックボックスのON OFFでの...
-
ユーザーフォーム上にある「テ...
-
連番を変更するマクロ
-
【Access】 テキストボックスへ...
-
Access レポート印刷するときに...
-
YahooのIDがロックされてしまい...
-
データベースのINT型項目にNULL...
-
レコードを保存するコード ア...
-
passwordが入れられません・・・・
-
ACCESS フォームをそのまま印刷...
-
アクセスで数値型のフィールド...
-
エクセルをACCESSのレポ...
-
Accessで、フォームからフォー...
-
サブフォームに対してGoToRecor...
-
ACCESSでフォームを使って、テ...
-
Accessでフィールド名を変数(...
-
EXCEL VBAのユーザーフォームに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word縦書きで左から右への行
-
アクセスでテキストボックスの...
-
Access VBAボタンでテキストボ...
-
ユーザーフォーム上にある「テ...
-
VBA 空白テキストボックスカウント
-
チェックボックスのON OFFでの...
-
Accessテキストボックスの未入...
-
連番を変更するマクロ
-
ACCESS 値の代入
-
openoffice Base の使い方
-
アクセス Dlookup関数の表示が...
-
VBAでテキストボックスに斜線を...
-
indesignでテキストの連結順序...
-
エクセルVBA テキストボックス...
-
Wordについて
-
ACCESSのタブオーダー
-
Access テキストボックスのフォ...
-
エクセルのVBA
-
Access のフォームが自由に作れ...
-
パワーポイントでふりがなをつ...
おすすめ情報