Почему-то не работает...

Код проходит по строчке без проблем.

CurrentDb.Execute ("Insert Into " & tbl & " Select * From " & tbl1 _
    & " Where [Дата отгрузки]>CDate('" & dtMaxdate1 & "')")

однако, новых записей в таблице почему-то не появляется... Хотя перед этим проверяю их наличие таким образом:

rst1.Open "Select * From " & tbl1 & " Where [Дата отгрузки]>CDate('" & dtMaxdate1 & "')", CurrentProject.Connection, _
    adOpenStatic, adLockReadOnly, adCmdTableDirect
If rst1.RecordCount < 1 Then Exit Sub

Подскажите, в чем может быть дело?

В ФАК, бегом.

DavidKats,
А зачем нужны две одинаковые таблицы? И почему не писать "Insert Into tbl Select * From tbl1..."?
Зачем нужны эти " & tbl & " и " & tbl1 & "? Таких таблиц, с одинаковой структурой еще больше что ли?

П-Л

В ФАК, бегом.

Не найду там ничего похожего.

вам про правильную передачу параметра типа Date намекают

Rivkin Dmitry

DavidKats, А зачем нужны две одинаковые таблицы? И почему не писать "Insert Into tbl Select * From tbl1..."? Зачем нужны эти " & tbl & " и " & tbl1 & "? Таких таблиц, с одинаковой структурой еще больше что ли?

Давайте примем за данность рациональность проводимых операций. Если присмотреться, то видно, что есть некоторые условия записи из одной таблицы в другую. Но это не суть.
Проблема в том, что после выполнения Insert Into в таблице ничего не появляется.

DavidKats

П-Л В ФАК, бегом. Не найду там ничего похожего.

х..во ищете
фак "почему у меня не работает"
вопрос "Execute не возвращает сообщений об ошибке, даже если часть записей ему не удается обновить/добавить/удалить"

Konst_One

вам про правильную передачу параметра типа Date намекают

Вот именно. Намеки, иносказания, другие литературные изыски некоторых товарищей значительно снижают эффективность поиска нужных решений на форуме.
Они, кажется, пытаются казаться невероятно умными .. мол это же настолько элементарно, что даже говорить не о чем. :))
Очнитесь!
Лишь четкий и грамотный информативный ответ возвысит вас в глазах форумчан и породит в их сердцах огромную благодарность за оказанную помощь.

А по поводу передачи Даты... по-моему, все правильно. CDate('Date') - разве не верная передача?

DavidKats

Konst_One вам про правильную передачу параметра типа Date намекают Вот именно. Намеки, иносказания, другие литературные изыски некоторых товарищей значительно снижают эффективность поиска нужных решений на форуме. Они, кажется, пытаются казаться невероятно умными .. мол это же настолько элементарно, что даже говорить не о чем. :)) Очнитесь! Лишь четкий и грамотный информативный ответ возвысит вас в глазах форумчан и породит в их сердцах огромную благодарность за оказанную помощь. А по поводу передачи Даты... по-моему, все правильно. CDate('Date') - разве не верная передача?

Public Function DateSQl(dDate As Date) As String

On Error GoTo Error_mark

DateSQl = "#" & Month(dDate) & "/" & Day(dDate) & "/" & Year(dDate) & "#"

Exit_mark:
Exit Function

Error_mark:

Resume Next
End Function

CDate(DateSQl(Date))

DavidKats

А по поводу передачи Даты... по-моему, все правильно.

вас щас еще раз в фак отправят
благодарность оставьте себе