エラーが出ます。 急いでいます。

質問

今までちゃんと動いていたところに以下のソースをつけた所エラーが出てきました。
何かおかしなところがあるのでしょうか？
If ADORS.Fields("SAI").Value < 0 Then
.TextMatrix(intRow, enmCOL.SAI) = Format(ADORS.Fields("SAI").Value, "#,##0.#0")
ElseIf ADORS.Fields("SAI").Value > 0 Then
.TextMatrix(intRow, enmCOL.SAI) = Format(ADORS.Fields("SAI").Value, "+#,###.#0")
ElseIf ADORS.Fields("ZAIKONUM").Value = ADORS.Fields("ITEMNUM").Value Then
.TextMatrix(intRow, enmCOL.SAI) = ADORS.Fields("SAI").Value
End If
お願いします。

回答No.4

mas_sama

補足
システム構成と実行環境が分かりかねます。
スタンドアロンのプログラムのようにも見えますし
クライアント／サーバ（ＤＢＭＳ含む）のプログラムのようにも見えます。
教えていただけませんでしょうか？

回答No.3

mas_sama

原因不明のエラーとはなんでしょうか？

異常終了した場合、次の２種類があると思います。
　(1)プログラムがエラーハンドリングしていない部分で発生した実行時エラー
　(2)メモリリーク等によるクリティカルなエラー
２つのエラーに関して次のようなデバッグ情報がメッセージボックスなどで出力されるハズですが・・・
　(1)「エラー番号」と「エラー内容」
　(2)「メモリダンプ」と「エラーが発生したプログラム名称」
また、(1)のエラーであればハンドリングしている場合にはログ出力することも可能ですので
既存のプログラムを改造している場合はログファイルにエラー内容が出力されている可能性があります。
（コンパイルエラーがないのが前提です）

エラーの内容が把握できない限り、解析作業は困難です。
バグを取り除く作業は(1)～(5)に従い、相談しながら確実に修正しましょう。
　(1)エラー原因の解析
　(2)原因に対する対処の検討
　(3)対処（実装）
　(4)対処の効果確認（試験）
　(5)対処による既存機能へのデグレード確認（試験）

ご参考まで、改造部分にコメントを加えて整理しました。

　　If isNull(ADORS.Fields("SAI").Value) Then
　　　　'SAIがNULLではない場合
　　　　If ADORS.Fields("SAI").Value < 0 Then
　　　　　　'SAIがマイナスの場合
　　　　　　.TextMatrix(intRow, enmCOL.SAI) = Format(ADORS.Fields("SAI").Value, "#,##0.#0")
　　　　ElseIf ADORS.Fields("SAI").Value > 0 Then
　　　　　　'SAIがプラスの場合
　　　　　　.TextMatrix(intRow, enmCOL.SAI) = Format(ADORS.Fields("SAI").Value, "+#,###.#0")
　　　　ElseIf ADORS.Fields("ZAIKONUM").Value = ADORS.Fields("ITEMNUM").Value Then
　　　　　　'SAIが0かつZAIKONUMとITEMNUMが同一の場合
　　　　　　.TextMatrix(intRow, enmCOL.SAI) = ADORS.Fields("SAI").Value
　　　　'Else
　　　　　　'上記以外の場合
　　　　　　'処理なし
　　　　End If
　　'Else
　　　　'SAIがNULLの場合
　　　　'処理なし
　　End if

回答No.2

Azzuri

No.4276でも回答しましたが、新たに質問する場合、
以前の質問を解決にしてもらえないでしょうか。
以下の回答は、No.4276と同じです。

ADORS.Fields("SAI").ValueにNULLが入る事はありませんか。
その場合、NULLを0に置き換えてやる必要があります。
また、以下の
ElseIf ADORS.Fields("ZAIKONUM").Value = ADORS.Fields("ITEMNUM").Value Then
の条件は、ADORS.Fields("SAI").Value = 0のときだけ判定
されますが、仕様なのでしょうか。
違う場合、If文を別に作成する必要があります。

回答No.1

mas_sama

aki08102001さん夜分遅くにお疲れ様です・・・。

できれば、変数定義が分かるように関数全体か、もしくは少し上のラインを見たいのですが・・・＾＾；

・ADORS.Fields("SAI").Valueの値がNullになっていませんか？（タブン数値型だと思いますが・・・）
→If文でNullと０を比較してエラーとなっていませんか？
・.TextMatrixとありますが、MS-FlexGrid（またはVS-FlexGrid）などでしょうか？
・intRow,enmCOLSAIの値はグリッドから逸脱していませんか？
・エラーの番号と内容はどのようなものでしょうか？
・エラー発生行と変数の内容をステップ実行で追ってみましたか？

補足

お願いします。わかりません。予期せぬエラーが発生しましたです。これが上の部分です。
strSQL = strSQL & "SELECT "
strSQL = strSQL & "mstITEM.ITEMCD, "
strSQL = strSQL & "mstITEM.ITEMNM, "
strSQL = strSQL & "mstITEM.ZAIKONUM, "
strSQL = strSQL & "trnTANALOG.ITEMCD AS TITEMCD, "
strSQL = strSQL & "trnTANALOG.ITEMNUM, "
strSQL = strSQL & "mstHACYU.HACYUNM, "
strSQL = strSQL & "(mstITEM.ZAIKONUM - iif(isnull(trnTANALOG.ITEMNUM),0,trnTANALOG.ITEMNUM)) AS SAI, "
strSQL = strSQL & "mstGROUP.GROUPNM "
strSQL = strSQL & "FROM ((mstITEM "
strSQL = strSQL & "LEFT JOIN trnTANALOG ON mstITEM.ITEMCD = trnTANALOG.ITEMCD) "
strSQL = strSQL & "LEFT JOIN mstGROUP ON mstGROUP.GROUPCD = mstITEM.GROUPCD) "
strSQL = strSQL & "LEFT JOIN mstHACYU ON mstHACYU.HACYUCD = mstITEM.SIIRECD "

If PstrWHERE <> "" Then
strSQL = strSQL & " WHERE " & PstrWHERE
strSQL = strSQL & " AND SETFLG = 0 "
If chkHAISI.Value = 1 Then
strSQL = strSQL & " AND mstITEM.ZAIKONUM <> iif(isnull(trnTANALOG.ITEMNUM),0,trnTANALOG.ITEMNUM) "
End If
Else
strSQL = strSQL & " WHERE SETFLG = 0 "
If chkHAISI.Value = 1 Then
strSQL = strSQL & " AND mstITEM.ZAIKONUM <> iif(isnull(trnTANALOG.ITEMNUM),0,trnTANALOG.ITEMNUM) "
End If
End If

strSQL = strSQL & "ORDER BY mstITEM.GROUPCD, mstITEM.ITEMCD "
End If

If bfOpenRecSetReadR(CURRENTDB, strSQL, ADORS, , lngRecCnt) = False Then
MsgBox MSG_DBERR_MSG, vbCritical + vbOKOnly, MSG_SYSERR_TITLE
GoTo END_ROUTIN
End If

If lngRecCnt = 0 Then
vsgTANA.Rows = 1
GoTo END_ROUTIN
End If

intRow = 1
With vsgTANA
.Rows = 1
Do Until ADORS.EOF
.Rows = .Rows + 1
.TextMatrix(intRow, enmCOL.ITEMCD) = IIf(IsNull(ADORS.Fields("ITEMCD").Value), ADORS.Fields("TITEMCD").Value, ADORS.Fields("ITEMCD").Value)
.TextMatrix(intRow, enmCOL.GROUPCD) = IIf(IsNull(ADORS.Fields("GROUPNM").Value), "指定なし", _
ADORS.Fields("GROUPNM").Value)
.TextMatrix(intRow, enmCOL.ITEMNM) = ADORS.Fields("ITEMNM").Value
.TextMatrix(intRow, enmCOL.HACYUNM) = IIf(IsNull(ADORS.Fields("HACYUNM").Value), "", _
ADORS.Fields("HACYUNM").Value)
.TextMatrix(intRow, enmCOL.ZAIKONUM) = ADORS.Fields("ZAIKONUM").Value
.TextMatrix(intRow, enmCOL.TANALOG) = IIf(IsNull(ADORS.Fields("ITEMNUM").Value), "棚卸データなし", _
ADORS.Fields("ITEMNUM").Value)