Informacje podstawowe: Nie jestem zbyt doświadczony w VBA lub Accessie, ale mam skrypt VBA, który tworzy plik (KML jest specyficzny, ale to nie ma większego znaczenia dla mojego pytania) na komputerze użytkowników i zapisuje na nim używanie zmiennych łączących się z rekordami w bazie danych. Takie jak:

Dim MyDB As Database
Dim MyRS As Recordset
Dim QryOrTblDef As String
Dim TestFile As Integer

    QryOrTblDef = "Table1" 
    Set MyDB = CurrentDb
    Set MyRS = MyDB.OpenRecordset(QryOrTblDef)
    TestFile = FreeFile

    Open "C:\Testing.txt"
    Print #TestFile, "Generic Stuff"
    Print #TestFile, MyRS.Fields(0)

itp.

Moja sytuacja: Mam bardzo duży łańcuch (dokument tekstowy z dużą listą współrzędnych wierzchołków wielokąta), który chcę dodać do zmiennej, która ma zostać wydrukowana do innego pliku (plik KML, zanotowany w powyższym przykładzie). Miałem nadzieję dodać ten plik tekstowy zawierający współrzędne jako typ danych załącznika do bazy danych Access i skopiować jego zawartość do zmiennej używanej w powyższym skrypcie.

Moje pytanie: Czy istnieje sposób, w jaki mogę uzyskać dostęp i skopiować dane z dołączonego pliku tekstowego (dołączonego jako typ danych załącznika w polu bazy danych MS Access) do zmiennej, dzięki czemu mogę go użyć w skrypcie VBA?

Co znalazłem: Mam problemy z finalizowaniem informacji na ten temat, myślę głównie dlatego, że nie wiem, jakich słów kluczowych szukać, ale udało mi się znaleźć kod kogoś na forum „ozgrid”, który wydaje się być bliski temu Chcę zrobić. Chociaż to tylko ciągnięcie z pliku tekstowego na dysku, a nie z pliku dołączonego do bazy danych.

Kod z wyżej wymienionego forum, który tworzy funkcję dostępu do danych w pliku tekstowym:

Sub Test() 

    Dim strText As String 

    strText = GetFileContent("C:\temp\x.txt") 
    MsgBox strText 

End Sub 

Function GetFileContent(Name As String) As String 
    Dim intUnit As Integer 

    On Error Goto ErrGetFileContent 
    intUnit = FreeFile 
    Open Name For Input As intUnit 
    GetFileContent = Input(LOF(intUnit), intUnit) 
ErrGetFileContent: 
    Close intUnit 
    Exit Function 
End Function 

Każda pomoc tutaj jest doceniana. Dzięki.