フォームのテキストボックスが空白なら"*"を入力する

質問

「フォームのテキストボックスが空白なら"*"を入力する」
としたいのですが
If Form.承認者テキスト.Value = "" Then Form.承認者テキト.Value = "*"
だと承認者テキストでも"*"が入力されません。

Form.承認者テキスト.Value = Null
としてもできません。どうすればいいのでしょうか？
よろしくお願いします。

回答No.1

bin-chan · ベストアンサー

If IsNull(Form.承認者テキスト.Value) = True Then Form.承認者テキト.Value = "*"

としたらどうなりますか？

お礼

できました。ご回答ありがとうございます。

回答No.3

CHRONOS_0

データベースでは空白はNUll
またNullは値ではありませんから=では調べられません

If IsNull(Me.承認者テキスト) then

お礼

値ではないんですね。
ご回答ありがとうございます。

回答No.2

pu--n

こんにちわ。

空白といっても、NULL、EMPTY、スペース（全角、半角）があり、=""では比較結果が異なる場合があるので、ちょっと面倒ですが、LenとTrim関数で長さをチェックすれば上記全てに対応可能です。

If Len(Trim(Form.承認者テキスト.Value)) = 0 Then Form.承認者テキト.Value = "*"

・・・・やっぱり面倒くさいね。でも確実かな？

お礼

色々な空白の種類があるのですね。ご回答ありがとうございます。