久々のACCESSネタです。

先日ちょっとした機能の変更でフォームにフィールドを追加しVBAを書きました。
その時のちょっとしたボケボケです。

if Me!aaa=Null then
  Msgbox "データを入力してください"
  GotoControl "aaa"
  Exit Sub
Endif

フォーム上のaaaをNullの状態で実行してもメッセージが表示されないんです。
デバッグモードにして止めてaaaの値を直接見てみてもNullなんです。

それなのにif文には引っかからない…

答えは簡単です Nullは=で比較しちゃダメなんですよね、すっかり忘れてました。

正しくはこうなります。

if IsNull(Me!aaa) then
  Msgbox "データを入力してください"
  GotoControl "aaa"
  Exit Sub
Endif

あー10分位悩んでしまった…