投稿日	： 2003/07/03(Thu) 13:53
投稿者	： はちこ
Ｅメール	：
ＵＲＬ	：
タイトル	： お礼: ファイル内の件数をカウントする方法

花ちゃん様、nobu様、早々のレスありがとうございました！

各データごとのカウントはおかげさまでできるようになりました。
でも、また不明な点がありまして。。。

今回のカウント記述はフォーム内でやっているのすが、この読み込んだデータに不備があった場合、
ERR_FRGをたててモジュール内のERRMSG_EDITに飛んでます。
このERRMSG_EDITをテキストファイルで出力しています。
このモジュール内に今回のデータカウントも一緒に出力させたいのですが、
1行実行してもここにカウントさえも反映されないのです。。

結果として、エラーがあったときはエラーとカウント件数も一緒に表示するのが望みです。
どのように記述すればよいのでしょうか。
たびたびですが、アドバイスをお願い致します。

↓モジュール記述はこんな感じです。

Dim L_LOG       As String
    Dim L_ERR_MSG   As String
    Dim P_LOG_H         As String
    Dim P_LOG_T         As String
    Dim P_LOG_K         As String
    Dim H_COUNT         As Integer
    Dim T_COUNT         As Integer
    Dim K_COUNT         As Integer

    L_LOG = " (" & "" & H_TXTNAME & "" & ")" & vbCrLf
    If H_COUNT = 0 And T_COUNT = 0 And K_COUNT = 0 _
    And P_ERRCNT = 0 Then

        Select Case P_ERR
            Case 0
              
                P_LOG = P_LOG & "　ファイル形式が違うか、処理対象データがありません"
                Call M_CSV_ZERO_SUB(P_LOG)
              
            Case 9
                P_LOG = P_LOG & "　AデータでXエラーが発生しました"

            Case 8
                P_LOG = P_LOG & "　AデータでZエラーが発生しました"

        End Select

    Else
         P_LOG = P_LOG & "　変更データ　:" & H_COUNT & "件"
         P_LOG = P_LOG & "　取消データ　:" & T_COUNT & "件"
         P_LOG = P_LOG & "　確定データ　:" & K_COUNT & "件"

    End If
    P_LOG = P_LOG & L_LOG
    
End Sub

★ - ファイル内の件数をカウントする方法 - はちこ 07/02-19:00No.4574
• Re: ファイル内の件数をカウントする方法 - 花ちゃん 07/02-19:21 No.4577
• Re: ファイル内の件数をカウントする方法 - nobu 07/02-20:16 No.4581
  • お礼: ファイル内の件数をカウントする方法 - はちこ 07/03-13:53 No.4594
    • Re: お礼: ファイル内の件数をカウントする.. - nobu 07/03-14:41 No.4598