[Tasos]

Καλησπέρα Βασίλη και καλωσόρισες στην παρέα!

Καλησπέρα σας και συγχαρητήρια στο forum σας

Το φόρουμ ανήκει σε όλους εμάς που συμμετέχουμε ενεργά. Το ίδιο ισχύει φυσικά και για σένα.

Σχετικά με το ερώτημα σου μπορείς:

1) Να συνδέσεις το αρχείο κειμένου με πίνακα της Access με τη βοήθεια του οδηγού εισαγωγής εξωτερικών δεδομένων.

2) Να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Option Explicit

Function NumberFromTextFile(ByVal TextFileName As String)
    With CreateObject("Scripting.FileSystemObject")
        With .OpenTextFile(TextFileName, 1, -1, -1)
            NumberFromTextFile = Trim(.ReadLine)
            .Close
        End With
    End With
End Function

'Παράδειγμα χρήσης:

Sub Read_Text_File()
    MsgBox NumberFromTextFile("c:\TextFile.txt")  ' Προσάρμοσε τη διαδρομή του αρχείου.
End Sub

Η συνάρτηση NumberFromTextFile() μπορεί φυσικά να κληθεί και μέσα από υπολογισμένο πεδίο Φόρμας, Έκθεσης ή Ερωτήματος.

Ελπίζω να σε καλύπτουν τα παραπάνω.
Αν θέλεις κάτι άλλο απλά γράψε στο φόρουμ.

Φιλικά

Τάσος