[リストへもどる]
一括表示

投稿時間:2003/07/25(Fri) 19:59
投稿者名:chara
Eメール:
URL :
タイトル:
ログカウント表示について
いつもお世話になっています。
教えてください。

取り込んだシーケンシャルの件数をP_FCNTでカウントして、件数が0以上の場合にそのエラー詳細番号も
ログ表示するようにしたいのですが。

現状下記の記述だと、複数件あっても最後にカウントしたエラー詳細番号しか表示されません。
 
<記述>

   P_LOG = P_LOG & " 不正データ :" & P_FCNT & "件" & L_LOG
        
        If P_FCNT <> 0 Then    
            P_LOG = P_LOG & "   (エラー詳細番号:" & ERR_NO & vbCrLf ) "
        End If

<ログはこんな感じに>
 不正データ :2件
   (エラー詳細番号:ERR_100)

  (エラー詳細番号:ERR_101) →本当は、このERR_101も表示させたいのです。

どうして最終カウントしか表示できないのでしょうか。。
アドバイスを頂きたいです。よろしくお願いいたします。

投稿時間:2003/07/25(Fri) 20:43
投稿者名:nobu
Eメール:
URL :
タイトル:
Re: ログカウント表示について
> <ログはこんな感じに>
>  不正データ :2件
>    (エラー詳細番号:ERR_100)
>
>   (エラー詳細番号:ERR_101) →本当は、このERR_101も表示させたいのです。
>
> どうして最終カウントしか表示できないのでしょうか。。

肝心のログの書き出し部分のコードが無いので分かりませんが
ファイルに出力しているのなら上書きモードにならないように
Append で書き出せば追加されて行きます。
出力部分のコードを見直して下さい。


P_LOG = P_LOG & "   (エラー詳細番号:" & ERR_NO & vbCrLf ) "

これは少しおかしく無いですか?
P_LOG = P_LOG & "   (エラー詳細番号:" & ERR_NO &  " ) " & vbCrLf
なら分かりますが。

どうして「P_LOG = P_LOG &」としているのでしょうか?

P_LOG = "   (エラー詳細番号:" & ERR_NO & " ) "
Print #1,P_LOG
とか

Print #1,"   (エラー詳細番号:" & ERR_NO & " ) "
とかとしてファイルに追加出力 ( Open    for Apennd as #1 等と)
しては如何でしょうか。

投稿時間:2003/07/28(Mon) 11:43
投稿者名:chara
Eメール:
URL :
タイトル:
Re^2: ログカウント表示について
nobuさん、いつもご回答ありがとうございます。

なんとか自分で解決できました。ありがとうございました。