| |
|
|
| | добрый день.
есть исходная таблица [даты], в которой есть поле [дата] (несколько значений ужа забита).
в отдельном запросе считаю максимальную дату таблицы даты ([Max-дата]).
необходимо сделать запрос который бы сам добавлял значения в таблицу при нажатии на кнопку.
Запрос на добавление записи:
INSERT INTO даты ( дата )
SELECT IIf([Max-дата]<Date()+90,[Max-дата]+1,"") AS data
FROM даты, [max дата]
GROUP BY IIf([Max-дата]<Date()+90,[Max-дата]+1,""), [max дата].[Max-дата];
Проблема в следующем:
Запрос надо как-то зациклить, чтобы выполнялся до следующего условия [Max-дата]=Date()+90
и не выводил сообщений типа "уверены ли вы что хотите добавить данные"
вроде нет ничего сложного, пробовала написать через vb, но к сожалению не знаю как обратиться к значению запроса :(
заранее спасибо. | |
| |
| |
| |
|
|
| | Чтобы зациклить запрос - поместите его в цикл.
for i=1 to 90 DoCmd.RunSQL next i
|
Чтобы не спрашивал
напишите перед циклом
DoCmd.SetWarnings = False
|
- мол не спрашивать ни о чём
а после цикла напишите
- мол теперь предупреждать можно........  | |
| |
| |
| |
|
|
| |
dt = DMax("[дата]","[даты]")
For dt = dt+1 To Date()+90
CurrentDB.Exequte "INSERT INTO даты ( дата ) VALUES (" & Format(dt, "\#MM\/DD\/YYYY\#") & ");"
Next
|
| |
| |
| |
| |
|
|
| |
dt = DMax("[дата]","[даты]")
For dt = dt+1 To Date()+90
CurrentDB.Exequte "INSERT INTO даты ( дата ) VALUES (" & Format(dt, "\#MM\/DD\/YYYY\#") & ");"
Next
|
| |
| |
| |
