[Tasos]

Καλησπέρα!
Αγαπητέ Λεωνίδα,
Αφαίρεσε το κριτήριο από το πεδίο ΗμερΜεταβολής του ερωτήματος "0000ΕΞΑΓΩΓΗ ΓΙΑ ΔΕΗ"
και δοκίμασε στην Εντολή23 (τέτοια ονόματα προκαλούν σύγχυση κατά την ανάπτυξη μια εφαρμογής) τον παρακάτω κώδικα:

Dim rst As Recordset
    Dim strSQL As String, strChar As String, i As Integer
    strSQL = CurrentDb.QueryDefs("0000ΕΞΑΓΩΓΗ ΓΙΑ ΔΕΗ").SQL
    Do
        i = i + 1
        If Mid(StrReverse(strSQL), i, 1) = ";" Then Exit Do
    Loop
    strSQL = Left(strSQL, Len(strSQL) - i) & _
             " WHERE [00ΕΜΒΑΔΑ ΤΜΗΜΑΤΩΝ].ΗμερΜεταβολής Between #" & _
             Format(Nz(Me.ΑΠΟ, 2), "m\/d\/yyyy") & _
             "# And #" & Format(Nz(Me.ΕΩΣ, 2958465), "m\/d\/yyyy") & "#"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
    On Error Resume Next
    If CreateTextFileFromRecordset(rst, "C:\TestFile.txt", 1, 8, 2, 2, 7, 7, 7, 7, 2, 7, 2, 4, 3, 1, 4) Then
        MsgBox "Text file created succesfully.", vbInformation
    Else
        MsgBox "Unable to create text file.", vbExclamation
    End If
    If Err Then MsgBox Err.Description, vbExclamation
    rst.Close
    Set rst = Nothing

Καλή συνέχεια!

Με εκτίμηση

Τάσος