こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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


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

投稿日時 - 2010-09-25 23:47:25

QNo.6208100

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.4

関数funcMaxの中で、

funcMax = rs!最大番号

のところを、

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

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

投稿日時 - 2010-09-26 01:18:24

お礼

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

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

投稿日時 - 2010-09-26 01:56:27

ANo.3

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

投稿日時 - 2010-09-26 01:06:54

ANo.2

関数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

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

投稿日時 - 2010-09-26 01:04:11

ANo.1

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

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

投稿日時 - 2010-09-26 00:04:43

補足

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

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

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

投稿日時 - 2010-09-26 00:21:51

あなたにオススメの質問