Вставить строку из одной связанной таблицы в другую

Question

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

Private Sub Form_Timer() 
CurrentDb.Execute "INSERT INTO tblevent (vchrFacility, intWorkCell, intStn, intEventCode) SELECT vchrFacility, intWorkCell, intStn, intEventCode from excelTblEvent where dtmInsertedTime > LastQuery.Last" 
CurrentDb.Execute "UPDATE LastQuery, excelTblEvent SET LastQuery.Last = excelTblEvent.dtmInsertedTime" 
End Sub 

EDIT:

Я не мог бы сделать это без вас, ребята. Мой код делает именно то, что я хочу, чтобы это сделать, без каких-либо проблем:

Option Compare Database 
Private Sub Form_Timer() 
CurrentDb.Execute "INSERT INTO tblevent (vchrFacility, intWorkCell, intStn, intEventCode) SELECT vchrFacility, intWorkCell, intStn, intEventCode FROM excelTblEvent WHERE dtmInsertedTime > DLookup('Last', 'LastQuery')" 
CurrentDb.Execute "UPDATE LastQuery, excelTblEvent SET LastQuery.Last = excelTblEvent.dtmInsertedTime" 
End Sub 

Answer 1

Access 'db engine будет жаловаться на это заявление INSERT. Осмотрите SELECT часть заявления:

SELECT vchrFacility, intWorkCell, intStn, intEventCode 
from excelTblEvent 
where dtmInsertedTime > LastQuery.Last 

Предложение WHERE ссылается на источник данных, LastQuery, который не упоминается в пункте FROM. Это не сработает. Мы должны были бы знать больше о LastQuery, но как дикое предположение, возможно, это могло бы работать ...

WHERE dtmInsertedTime > DLookup("Last", "LastQuery") 

Если доступ жалуется на UPDATE заявление, вновь построить его в конструктор запросов. После того, как вы заработаете там, адаптируйте свой код VBA для использования того же рабочего SQL.

Answer 2

записка с помощью раздела Database.Execute метода говорит,

ODBCDirect рабочие области не поддерживаются в Microsoft Office Access 2007 Используйте ADO, если вы хотите получить доступ к внешним источникам данных без использования механизма базы данных Microsoft Access.

Возможно, вам придется пройти этот маршрут.