ทำไมเวลาส่งออกมา 0   6 ตัวข้างหน้าถึงหายหรอครับช่วยหาวิธีแก้ด้วยครับ


นี้คือโค๊ดโมดูลที่ผมเขียนส่วน ฟิวส์ที่ใช้คือ AGREEMENT_NO

Sub OutputFile()
Dim db As Database
Dim rs As Recordset
Dim strOutput As String

Set db = CurrentDb
Set rs = db.OpenRecordset("HAIRCUT UPLOAD OA15")
Open getpath(CurrentDb.name) & "HAIRCUT UPLOAD OA15.txt" For Output As #1
rs.MoveFirst
Do While Not rs.EOF
    strOutput = Format(rs!DETAIL, "0") & "|" & _
               Format(rs!PRODUCT_CODE) & "|" & _
               Format(rs!AGREEMENT_NO) & "|" & _
               Format(rs!HAIRCUT_DATE) & "|" & _
               Format(rs!BUCKET) & "|" & _
               Format(rs!OA_CODE) & "|" & _
               Format(rs!OS_BEFORE, "0.00") & "|" & _
               Format(rs!OS_AFTER, "0.00") & "|" & _
               Format(rs!DISCOUNT_AMT, "0.00") & "|" & _
               Format(rs!TERM) & "|" & _
               Format(rs!DISCOUNT_RATE, "0.00") & "|" & _
               Format(rs!REASON, "000") & "|" & _
               Format(rs!MESSAGE) & "|" & _
               Format(rs!PP_SEQ) & "|" & _
               Format(rs!PP_DATE_SEQ) & "|" & _
               Format(rs!PP_DATE_AMT, "0.00")
    
    Print #1, strOutput
    rs.MoveNext
Loop
Close #1
End Sub
Function getpath(name As String) As String
getpath = (Mid(CurrentDb.name, 1, Len(CurrentDb.name) - Len(Dir(CurrentDb.name))))
End Function

Sub OutputFileTabDelimited()
Dim db As Database
Dim rs As Recordset
Dim strOutput As String

Set db = CurrentDb
Set rs = db.OpenRecordset("HAIRCUT UPLOAD OA15")
Open getpath(CurrentDb.name) & "HAIRCUT UPLOAD OA15.txt" For Output As #1
rs.MoveFirst
Do While Not rs.EOF
    strOutput = rs!DETAIL & """" & vbTab & "|" & _
               rs!PRODUCT_CODE & "|" & vbTab & _
               rs!AGREEMENT_NO & "|" & vbTab & _
               rs!HAIRCUT_DATE & "|" & vbTab & _
               rs!BUCKET & "|" & vbTab & _
               rs!OA_CODE & "|" & vbTab & _
               rs!OS_BEFORE & "|" & vbTab & _
               rs!OS_AFTER & "|" & vbTab & _
               rs!DISCOUNT_AMT & "|" & vbTab & _
               rs!TERM & "|" & vbTab & _
               rs!DISCOUNT_RATE & "|" & vbTab & _
               rs!REASON & "|" & vbTab & _
               rs!MESSAGE & "|" & vbTab & _
               rs!PP_SEQ & "|" & vbTab & _
               rs!PP_DATE_SEQ & "|" & vbTab & _
               rs!PP_DATE_AMT
   
    Print #1, strOutput
    rs.MoveNext
Loop
Close #1
End Sub