Исходная информация: Я не очень разбираюсь в VBA или Access в этом отношении, но у меня есть сценарий VBA, который создает файл (конкретный KML, но это не имеет большого значения для моего вопроса) на компьютере пользователя и пишет в него используя переменные, которые ссылаются на записи в базе данных. В качестве таких:

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)

и т.п.

Моя ситуация: У меня есть очень большая строка (текстовый документ с большим списком координат вершин многоугольника), которую я хочу добавить в переменную для печати в другой файл (файл KML, отмеченный в приведенном выше примере). Я надеялся добавить этот текстовый файл, содержащий координаты в качестве типа данных вложения, в базу данных Access и скопировать его содержимое в переменную, которая будет использоваться в приведенном выше сценарии.

Мой вопрос: Есть ли способ, с помощью которого я могу получить доступ и скопировать данные из прикрепленного текстового файла (прикрепленного как тип данных вложения в поле базы данных MS Access) в переменную, чтобы я мог использовать его в сценарии VBA?

Что я нашел: У меня проблемы с поиском информации по этой теме, я думаю, в основном потому, что не знаю, какие ключевые слова нужно искать, но мне удалось найти чей-то код на форуме "ozgrid", который, кажется, близок к тому, что Я хочу делать. Хотя это просто извлечение из текстового файла на диске, а не из прикрепленного к базе данных.

Код из вышеупомянутого форума, который создает функцию для доступа к данным в текстовом файле:

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 

Любая помощь здесь приветствуется. Благодарю.