アクセスのフォームからレコード入力空欄回避のVBA

質問

アクセス初心者です。
帳票式フォームからテーブルへのレコード入力において、次のレコード入力ボタンで空欄を防止するためのVBAを作っていますが、うまく行きません。空欄があれば警告は出ますがそのままテーブルへ記録されてしまいます。
テーブルに記録されずに空欄が入力できるようにするにはどうすればよいのでしょうか？
また、次を入力するときにフォームの製品名の内容だけ消えずに残したいのですが、そのプログラムについても教えていただきたいです。
なかなかうまく行かずに大変困っています。
どなたかVBAの達人の方、初心者にわかりやすくお教え下さい。

「入力内容を登録して次を入力」ボタンで作ったVBAは次の通りです。
つぎはぎなので、不要なプログラムもあるかもしれません。

Private Sub コマンド9次のレコードに_Click()

On Error GoTo Err_コマンド9次のレコードに_Click

DoCmd.GoToRecord , , acNext

Exit_コマンド9次のレコードに_Click:
Exit Sub

Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("T_指定材料表", dbOpenTable)
With Rst
.AddNew
.Fields("製品名") = Me!製品名
.Fields("回路記号") = Me!回路記号
.Fields("部品名") = Me!部品名
.Fields("員数") = Me!員数
.Update

If IsNull(Me!製品名) Then
MsgBox ("製品名が空欄です。")
Resume Exit_コマンド9次のレコードに_Click
End If

If IsNull(Me!回路記号) Then
MsgBox ("回路記号が空欄です。")
Resume Exit_コマンド9次のレコードに_Click
End If

If IsNull(Me!部品名) Then
MsgBox ("部品名が空欄です。")
Resume Exit_コマンド9次のレコードに_Click
End If

If IsNull(Me!員数) Then
MsgBox ("員数が空欄です。")
Resume Exit_コマンド9次のレコードに_Click
End If

End With

On Error Resume Next

DoCmd.GoToRecord DataForm, "T_指定材料表", acNew

Rst.Close
Set Rst = Nothing

Call ClearControls

End Sub

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

Q、レコード入力空欄回避のVBA。
A、その前に＜空欄の発生対処＞の見方・考え方。

１、「空欄があれば、次のレコードい移動できない」という縛りの是非。

　もしかしたら、その箇所の入力データが判読不能、あるいは不備があるかも知れない。そういう時、ユーザーは空欄のまま次のレコードのデータ入力を行うかも知れない。そうして、調査後に空欄を埋めるかも知れない。こういうケースはままあること。だとしたら＜縛り＞はユーザーにとっては邪魔でしかない。

２、「空欄」の警告の是非。

　私が入力担当者であれば、一々の警告は御免被りたい。入力作業の邪魔でしかない。せめて、２．５秒程度の警告を表示して自動で閉じる＜PauseMsg()＞でも使用されているのであれば我慢できる。

３、しかし、「空欄」のままのレコードをテーブルには残すべきではない。

　とは言っても、空欄を無原則に許可すると、後々の処理で不具合が発生する。そういう不具合の発生原因となるレコードの存在は許すべきではない。「空欄」の発生は許すが、不具合の原因となる「空欄」を含むレコードの入力は許さない。このことを実現するには、入力フォームを閉じる時に、

(1)「許可されていない空欄を含むレコード（OO件）を削除します。」と告知。
(2)そして、DoCmd.RunSQL "DELETE FROM XXX WHERE XXX で一斉削除。

というやり方があります。

お礼

早速のアドバイス、大変ありがとうございます。
仰る通りだと思います。入力者側の目線で考え直してみます。

回答No.2

NotFound404

達人の見習い・・程度ですが気になる点を幾つか。
テーブル名にカッコを使われていますが後々トラブルの元になりかねないので
使用しない方が賢明かと思います。（半角・全角問わず、他のオブジェクト名も同様）
カギカッコ [] で括れば回避できるのですが、ちょっと面倒。

エラー処理は開発中はコメントアウトしておかないと、問題の発生時の解明が難しくなります。
'コメントアウトしておけば実行時エラーならそこで止まってくれます。

で、未入力チェックですが、
>Set Rst = CurrentDb.Op・・・の前に行って、あればメッセージを出してそこで抜ける Exit Sub
した方が宜しいかと思います。
また、一個一個メッセージを出さないで
未入力チェックしたいコントロール名の頭に、例えばChk製品名などと統一します。
そして入力チェック部分だけですが
dim ctl as control
dim msg as string
for each ctl in me.controls
if left(ctl.name,3) = "chk" then
if isnull(ctl.value) then
msg=msg & ctl.name & vbnewline
end if
end if
next

if len(msg)>0 then
msgbox "以下のとこが空っぽ" & vbnewline & msg
exit sub
end if

ここから、Set Rst = CurrentDb.Op・・・で登録開始。
のような感じが良さげな気がします。
以上ご参考まで。

お礼

非常に丁寧にご説明いただき、ありがとうございます。
お礼が遅くなりまして大変申し訳ございません。
早速トライしてみます。