
お世話になっております。
フォームのテキストボックスの値が0か空白だったら、レポート上に表示されるものを変えたいのですが、うまくいきません。
If [Forms]![フォーム1]![テキストボックス1].value = 0 Or [Forms]![フォーム1]![テキストボックス1].value = "" Then
Me![レポート上のテキストボックス] = "無"
Else
[Forms]![フォーム1]![レポート上のテキストボックス1] = [Forms]![フォーム1]![テキストボックス1] & "ヶ月"
End If
これだと何も入っていないときに"ヶ月"と表示されてしまいます。どのように書けばよいのでしょうか?
ご教授願えませんでしょうか?
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。未入力を、「=""」という条件ではなく、IsNull関数で調べてはどうでしょうか?
If [Forms]![フォーム1]![テキストボックス1].value = 0 Or IsNull([Forms]![フォーム1]![テキストボックス1].value) Then
No.1
- 回答日時:
何も入っていないというのは、たぶんNullの状態だと思いますので、
その場合は、IsNull 関数を使って判断します。
空文字("") の判断も必要であれば、Nz 関数の方がやりやすいですね。
If Nz(Forms![フォーム1]![テキストボックス1],"") = "" Or _
Forms![フォーム1]![テキストボックス1] = 0 Then
Me![レポート上のテキストボックス] = "無"
Else
のように変更してみてください。
早い回答ありがとうございました。
これだと、テキストボックスに値を入れても"無"表示がされてしまいました。
Isnullでうまくいきました。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
access テキストボックスの値取得
Access(アクセス)
-
4
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
5
空白はダメというエラーの表示(アクセス)
その他(データベース)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
9
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
新規レコード行を非表示にしたい
Access(アクセス)
-
14
ACCESSでコントロールソースの変更
Access(アクセス)
-
15
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
16
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
19
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
連番を変更するマクロ
-
5
Access VBAボタンでテキストボ...
-
6
データベースのINT型項目にNULL...
-
7
レコードを保存するコード ア...
-
8
Access レポート印刷するときに...
-
9
サブフォームに対してGoToRecor...
-
10
passwordが入れられません・・・・
-
11
EXCEL VBAのユーザーフォームに...
-
12
親フォームからサブフォームの...
-
13
ACCESS フォームをそのまま印刷...
-
14
ACCESSでフォームを使って、テ...
-
15
ACCESS──メインフォームでサブ...
-
16
アクセスで数値型のフィールド...
-
17
「フォームを作成できませんで...
-
18
Accessで、フォームからフォー...
-
19
ACCESSでオートメーションエラー
-
20
ACCESS カンマをスペースに置...
おすすめ情報
公式facebook
公式twitter