HERKESE İYİ GÜNLER
aşağıdaki kod ile SORGU1 deki veriyi TXTDOSYASI olarak dışarıya veriyorum şimdiye kadar sorunsuz çalışıyordu fakat şimdi rengli satırda hata veriyor

Private Sub Komut113_Click()
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 = "txtdosyası"

Dim dosyam As String
dosyam = yol & "/" & tbl & ".txt"

If Dir(dosyam) <> "" Then
Kill dosyam
End If

DoCmd.Hourglass True
Open dosyam For Append As #1
Set rs = db.OpenRecordset("SORGU1", dbOpenDynaset)
Do Until rs.EOF

Print #1, Nz(rs!TXT, 0)

rs.MoveNext
Loop
Close #1
DoCmd.Hourglass False
End Sub

Sn hedefkaya; Referanslardan Ms DAO 3.6 isaretli olmasi gerekir. DoCmd.TransferText...... ile soruya ait veri text dosyasina atabilirsiniz.

teşekürler elinize sağlık