On Error Resume Next
Dim db As Database
Dim rs As Recordset
Dim tbl As String
 
Set db = CurrentDb
 
    Dim yol As String
    yol = CurrentProject.Path
 
tbl = "Terazi"
 
DoCmd.Hourglass True
Open yol & "/" & tbl & "1.txt" For Append As #1
  Set rs = db.OpenRecordset("TERAZI", dbOpenDynaset)
Do Until rs.EOF
 
Print #1, Nz(rs!TXT, 0)
 
  rs.MoveNext
  Loop
Close #1
DoCmd.Hourglass False

On Error Resume Next
Dim db As Database
Dim rs As Recordset
Dim tbl As String
 
Set db = CurrentDb
 
    Dim yol As String
    yol = CurrentProject.Path
 
tbl = "Terazi"
 
 Dim dosyam As String
 dosyam = yol & "/" & tbl & "1.txt"
 
 If Dir(dosyam) <> "" Then
   Kill dosyam
 End If
 
DoCmd.Hourglass True
Open dosyam For Append As #1
  Set rs = db.OpenRecordset("TERAZI", dbOpenDynaset)
Do Until rs.EOF
 
Print #1, Nz(rs!TXT, 0)
 
  rs.MoveNext
  Loop
Close #1
DoCmd.Hourglass False