データベース1のレコードが０の時 "実行時エラー94 Nullの使い方

質問

データベース1のレコードが０の時　"実行時エラー94　Nullの使い方が不正です" 出ます

http://okwave.jp/qa/q6169088_4.html#answerのＮｏ10でpiroin654様に、ご指南頂きましたが
困っています　解決策ご指南お願いいたします

回答No.4

piroin654

関数funcMaxの中で、

funcMax = rs!最大番号

のところを、

If IsNull(rs!最大番号) Then
funcMax = 0
Else
funcMax = rs!最大番号
End If

のようにしてみてください。

お礼

早々のご回答ありがとうございます
お陰さまで処理できました。

いつもお世話になりまして　ありがとうございます

回答No.3

piroin654

おっとっと、でした。今のは取消です。
これでは最初のデータが送れません。
funcMaxを変えます。

回答No.2

piroin654

関数funcMaxの中で対応してもいいのですが、少し
面倒なので、レコードがなければ処理をしない、
ということで以下を
numMax = funcMax
の直前に張り付けてください。

If rsInMain.RecordCount = 0 Then
MsgBox ("データベース1のT_データにレコードがありません")
GoTo ER_HA
End If
If rsInSub.RecordCount = 0 Then
MsgBox ("データベース1のT_データ明細にレコードがありません")
GoTo ER_HA
End If

次に、

rsOutMain.Close
Set rsOutMain = Nothing
・
・
End Sub
などの店じまいの直前に、

ER_HA:

としてください。何もしないのでここに飛んで
終わり、にします。以下のように。

ER_HA:
rsOutMain.Close
Set rsOutMain = Nothing
・
・
End Sub

これで、確かめてみてください。

回答No.1

piroin654

>データベース1のレコードが０の時

データベース1にレコードが無いとき、ということですか？

補足

いつも　すいません　早速のご投稿ありがとうございます

データベース1のT_データのレコードが無いとき
funcMax = rs!最大番号
　　0　　　　　null
と　なっています。

宜しくお願いいたします。