Access2010 VBAによる空白欄の判定

質問

VBA勉強中の初心者です。
本を片手に自分でコードを記述してみましたが思った動作をしてくれません。
詳しい方がいらっしゃいましたら、手直ししていただけるとありがたいです。
どのように動かしたいかというと

チェックボックス、ID、規則名からなるテーブルを参照するフォームにて、
1.チェックボックスをクリック（True）した際に、規則名欄が空白の場合はエラー処理を避ける為、改めて空白を入力し、ID欄が空白の場合は自動で連続した番号を入力するようにしています。
2.逆に、既存のレコードのチェックをした際には、既に入力されている規則名及びIDを便宜的に振り直すようにしたいです。

また、IDを主キーとして、かつ、IDと規則名が入力されていないと保存が出来ないようにしています。
なお、IDの連続した番号はオートナンバーにはせずDMaxを使用し連番を付しています。

これらのことを記述したものが以下になります。

Private Sub チェック0_Click()

　　If (Me.[チェック0] = True) Then　'チェックボックスが真ならば
　　　　If Me.制定規則台帳ID = "" Then　'かつ、ID欄が空白ならば
　　　　　　Me.制定規則台帳ID = [DMax("制定規則台帳ID", "copy制定規則台帳_tbl") + 1]　'既存のIDの一番大きな数字＋1で入力
　　　　　　Me![制定規則台帳ID].Requery
　　　　Else　'ID欄は空白ではない
　　　　　　Me.制定規則台帳ID = [制定規則台帳ID]　'既存のIDをもう一度打ち込む
　　　　　　Me![制定規則台帳ID].Requery
　　　　End If
　　End If

　　If (Me.[チェック0] = True) Then　'チェックボックスが真ならば
　　　　If Me.規則等名.Value = "" Then　'かつ、規則名欄が空白ならば
　　　　　　Me.規則等名.Value = ""　'空白を打ち込む
　　　　　　Me![規則等名].Requery
　　　　Else
　　　　　　Me.規則等名.Value = [規則等名]　'既存の規則名をもう一度打ち込む
　　　　　　Me![規則等名].Requery
　　　　End If
　　Else
　　　　MsgBox "チェックボックスはFalse", vbOKOnly, "test"

　　End If

End Sub

このとき、新規レコード作成の画面にてチェックボックスをクリックすると、第一の条件式にて、チェックボックスの真偽の判定は問題ないのですが、第二の条件式で名前欄もID欄も空白（新規レコードなので）だとしてもElseの処理となってしまいます。
コントロール内が空白かどうかを判定する場合の条件式が間違っているのでしょうか。

詳しい方、ご教示ください。

回答No.2

hatena1989 · ベストアンサー

> その内容は、
> 「実行時エラー'2465'
> 　指定した式で参照されている'1'フィールドが見つかりません。」
> となり、DMax関数の式が黄色で表示されます。

とりあえず下記の式を試してみてください。

Me.制定規則台帳ID = Nz(DMax("制定規則台帳ID", "copy制定規則台帳_tbl")) + 1　'既存のIDの一番大きな数字＋1で入力

また、下記の一行は不要ですので、削除してください。

Me![制定規則台帳ID].Requery

お礼

hatena1989　様

ご回答ありがとうございます。
全て上手く動作いたしました。

Nz関数。。。
まだまだ分からないことばかりです。
もっと勉強していかなくてはなりませんね。

本当に助かりました。
ありがとうございました。

回答No.1

hatena1989

テキスト型の場合、デフォルトの設定では、未入力の初期値は ""（空文字列）ではなく Null です。
NullはIsNull関数で判定します。下記のように変更すればいいでしょう。

　　　　If IsNull(Me.制定規則台帳ID) Then　'かつ、ID欄が空白ならば

　　　　If IsNull(Me.規則等名.Value) Then　'かつ、規則名欄が空白ならば
　　　　　　Me.規則等名.Value = Null　'Nullを打ち込む

Null と "" は見た目では判別がつかないので、Nullだけ許容する、または、""だけ許容する、のどちらかの設定にしておいた方が混乱がないでしょう。

Nullだけ許容する設定は、フィールドプロパティで下記のように設定します。

値要求　いいえ
空文字列の許可　いいえ

補足

hatena1989様

ありがとうございます。
無事に空白の判定が出来るようになりました！
ですが、また別な問題が・・・
こちらも教えていただけたらありがたいです。

ご指摘いただいた部分を修正したところ、無事に空白の判定は出来たのですが、空白の場合にIDを自動入力する部分でエラーが出てしまいます。
その内容は、
「実行時エラー'2465'
　指定した式で参照されている'1'フィールドが見つかりません。」
となり、DMax関数の式が黄色で表示されます。

関数で指定している、フィールド名とテーブル名は間違いないのですが、どこか引数が間違っているのでしょうか。

ご教示よろしくお願いいたします。