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

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

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

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2008/06/26 22:52

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

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

この回答へのお礼

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

お礼日時：2008/06/28 11:26

No.3 回答者： CHRONOS_0 回答日時： 2008/06/27 10:17

データベースでは空白はNUll

またNullは値ではありませんから=では調べられません

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

この回答へのお礼

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

お礼日時：2008/06/28 11:29

No.2 回答者： pu--n 回答日時： 2008/06/26 23:57

こんにちわ。

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

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

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

この回答へのお礼

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

お礼日時：2008/06/28 11:28