#741
フォームのイベントプロシージャにおいてフォームあるいはサブフォーム内のレコードの値を参照する際、その対象であるレコードの数がゼロであるとエラーとなってしまうことがあります。そのようなとき、事前にレコード数をチェックし”ゼロ（空）なら何もしない”という条件分岐を行うことがあります。
例：frm商品マスタ_subサブフォームのレコード数をチェック
If Me!frm商品マスタ_sub.Form.Recordset.RecordCount = 0 Then
'空なら何もしない
Exit Sub
End If
MsgBox "ここでレコード処理を実行！"
サンプルプロシージャ：
Function IsEmptyRecord(frm As Form) As Boolean
'引数のフォームのレコードが空ならTrueを返す
IsEmptyRecord = (frm.Recordset.RecordCount = 0)
End Function
Private Sub cmd処理_Click()
If IsEmptyRecord(Me!frm商品マスタ_sub.Form) Then
MsgBox "空なので何もしない！"
Exit Sub
End If
MsgBox "レコードがあるので処理を実行！"
End Sub
- レコードがあるとき
- レコードがないとき
