Доступ к VBA - метод или элемент данных не найден

Question

Я новичок в Access и благодарю вас за первое чтение.

Я экспортирую запрос в доступ к CSV-файлу с разделителями. Запрос - из таблицы, которая является ODBCed из SQL.

Я получаю для линии dbs.Recordset: Неисправность метода или данных не найдена.

Огромное спасибо за любое предложение исправить это.

Option Compare Database 
Option Explicit 

Sub Command12_Click() 
Dim dbs As DAO.database 
Dim rst As DAO.Recordset 
Dim intFile As Integer 
Dim strFilePath As String 
Dim intCount As Integer 
Dim strHold 

strFilePath = "C:\temp\TEST.csv" 

Set dbs = CurrentDb 

Set rst = db.OpenRecordset("T_Export_CSV", dbOpenForwardOnly) 

intFile = FreeFile 


Open strFilePath For Output As #intFile 

Do Until rst.EOF 
    For intCount = 0 To rst.Fields.Count - 1 
    strHold = strHold & rst(intCount).Value & "|" 
    Next 
    If Right(strHold, 1) = "|" Then 
     strHold = Left(strHold, Len(strHold) - 1) 
    End If 
    Print #intFile, strHold 
    rst.MoveNext 
    strHold = vbNullString 
Loop 

Close intFile 
rst.Close 
Set rst = Nothing 

MsgBox ("Export Completed Successfully") 
End Sub 

Благодарим вас так много за ваше время и, пожалуйста, оставьте любой комментарий ниже для любых разъяснений, если необходимо. Я постараюсь изо всех сил быть отзывчивыми!

Answer 1

Офис 15,0 объектная библиотека является один вам нужно включить в ссылках на объекты O365 или Office 2013. Access VBA