Dim rs_kural As ADODB.Recordset
Set rs_kural = New ADODB.Recordset
 Dim sayac As Long              'YENİ EKLEDİM
rs_kural.Open "select * from 02_TXT_CEVİR_SON_HALI", CurrentProject.Connection, dbOpenDynaset, adLockOptimistic
Dim fs, dosyam_AccessTR
Set fs = CreateObject("Scripting.FileSystemObject")
Set dosyam_AccessTR = fs.CreateTextFile("C:\" & Me.Metin1.Value & ".TXT", True)
sayac = 0             'YENİ EKLEDİM
 
Do Until rs_kural.EOF = True
 sayac = sayac + 1             'YENİ EKLEDİM
dosyam_AccessTR.writeline (rs_kural.Fields("txt_01") & rs_kural.Fields("txt_03") & rs_kural.Fields("txt_03"))
DoEvents
 
rs_kural.MoveNext
 
Loop
rs_kural.Close
Set rs_kural = Nothing
Me.Metin5.Value = sayac           'HEM METİN5 ALANININ HEM BU SATIRI YENİ EKLEDİM.
MsgBox "İşlem Tamamlanmıştır. Dosyanız " & "C:\" & Me.Metin1.Value & ".TXT Konumundadır"
dosyam_AccessTR.Close