Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Например так: 02.03.11 23:36 Число просмотров: 1301
Автор: Den <Denis> Статус: The Elderman Отредактировано 02.03.11 23:39 Количество правок: 4
|
Например так:
Dim qryMy as QeryDef
Set qryMy = CurrentDatabase.QueryDefs("MyQuery")
With qryMy
.SQL = "SELECT *" & vbNewLine & _
" FROM List" & vbNewLine & _
" WHERE timestamp >= #01.01." & CStr(Year(Now())) & "#" & vbNewLine & _
" AND timestamp < #01.01." & CStr(Year(Now())+1) & "#"
End With
---
P.S. вместо CurrentDatabase нужно использовать то, что рекомендуется для конкретной версии Access и конкретного типа проекта. F1 тебе в помощь!
|
|
|