Необходимо в запросе указать имя таблицы, находящееся в строковой переменной

[Анна789]

Добрый день! Подскажите, пожалуйста, как обратиться запросом к таблице, название которой хранится в переменной tmp
Sub DoSQL()


Dim tmp As String 'обьявление строковой переменной
tmp = Dir("E:\Почта\*.accdb*") 'присвоение переменной значения названия файла

Do While Len(tmp) > 0 'формирование цикла обхода по всем файоам в папке расположения файлов

'DoCmd.RunSQL ("INSERT INTO 33 SELECT * FROM '+@tmp'") 'выполнение запроса на добавление данных в таблицу



MsgBox (tmp)

tmp = Dir()
Loop

End Sub

[Aleksandr H.]

("INSERT INTO 33 SELECT * FROM '" & tmp & "'")

[Анна789]

Спасибо Вам большое!
А подскажите, пожалуйста, если надо вставить еще и путь
"INSERT INTO 33 SELECT * FROM "E:\Почта\' " & tmp & " ' ")

[Aleksandr H.]

вынесите добавление пути в строку формирования значения tmp

[Анна789]

А как??

[Aleksandr H.]

хотя бы так

tmp = "E:\НЭК\Почта\" & Dir()

[Анна789]

Спасибо !

[Анна789]

А, подскажите, пожалуйста, когда используем функцию DIR , как сделать ,что бы имя файла возвращалось без расширения

[Aleksandr H.]

FileName = dir()
msgbox Left(FileName , InStrRev(FileName , ".") - 1)

[Анна789]

Спасибо Вам за помощь!