投稿日 | : 2003/07/03(Thu) 13:53 |
投稿者 | : はちこ |
Eメール | : |
URL | : |
タイトル | : お礼: ファイル内の件数をカウントする方法 |
花ちゃん様、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