[Tasos]

Αγαπητέ Σταύρο, καλημέρα!

Δημιούργησε ένα νέο ερώτημα με το όνομα "Qrytbl1" πήγαινε στην προβολή SQL και πέρασε τon
παρακάτω κώδικα:

SELECT 
Mid([Pedio1],1,9) AS Ped1, 
Mid([Pedio2],10,10) AS Ped2, 
Mid([Pedio3],20,13) AS Ped3, 
Mid([Pedio4],33,42) AS Ped4, 
Mid([Pedio5],75,2) AS Ped5, 
Mid([Pedio6],77,40) AS Ped6, 
Mid([Pedio7],117,40) AS Ped7, 
Mid([Pedio8],157,10) & "." & Mid([Pedio8],168,2) AS Ped8, 
Mid([Pedio9],1169,10) & "." & Mid([Pedio9],1180,2) AS Ped9
FROM tbl1;

όπου" tbl1" = το όνομα του πίνακα και Pedio1,Pedio1 κτλ. το όνομα των πεδίων.

Δες αν τα αποτελέσματα είναι αυτά που ζητάς.

Για να εξάγεις το ερώτημα αυτό ως κείμενο μπορείς (αν δεν το κάνεις χειροκίνητα) να χρησιμοποιήσεις τον παρακάτω κώδικα:

DoCmd.TransferText acExportDelim, "", "Qrytbl1", CurrentProject.Path  _ 
& "\test.txt", True, "", 65001  ' 65001 = Unicode (UTF-8) αντί σε  ascii

Αν πάλι η όλη διαδικασία χρειάζεται να γίνει με VBA, απλά γράψε στο φόρουμ.

Περιμένουμε νέα σου

Φιλικά

Τάσος