| |
|
|
| | Нужна ваша помощь вот в чем. На стартовой форме у меня сделана кнопка, которая появляется (становится видимой), если есть сотрудники, у которых заканчивается пропуск. Есть форма со списком всех сотрудников. Как сделать, чтоб при нажатии на вышеописанную кнопку открывалась эта форма, но только с теми, у которых заканчивается пропуск. Или надо делать новую форму? | |
| |
| |
| |
|
|
| | поменять источник строк у списка
me.список.RowSource ="select ..... | |
| |
| |
| |
|
|
| | Case 2
sSQL = sSQL & " WHERE (((Сотррудники.ПропДо) >= Date And (Сотррудники.ПропДо) <= Date + 7))" & _
"ORDER BY Фамилия"
как это правильно писать?
спрашивает что такое Date
А где Час? его давно не видно | |
| |
| |
| |
|
|
| | Если под датой подразумевается текущая дата, то тогда как то так
WHERE (((Сотррудники.ПропДо) >=" & DateTime.Date & " And (Сотррудники.ПропДо) <= " & DateTime.Date & "+ 7))" | |
| |
| |
| |
|
|
| | Ругани нет, но запрос не работает:(( | |
| |
| |
|
|
| |
|
|
| | Вот так сделано:
Private Sub Группа25_AfterUpdate()
Dim pvSQL As String
pvSQL = " SELECT З_Действующие_Сотрудники.Фамилия, З_Действующие_Сотрудники.Имя, З_Действующие_Сотрудники.ПропДо, З_Действующие_Сотрудники.ПасДо" & _
" FROM З_Действующие_Сотрудники"
Select Case Группа25
Case 1
pvSQL = pvSQL & " ORDER BY Фамилия "
Case 2
pvSQL = pvSQL & "WHERE (((Сотрудники.ПропДо) >=" & DateTime.Date & " And (Сотрудники.ПропДо) <= " & DateTime.Date & "+ 7))"
Case 3
pvSQL = pvSQL & "WHERE (((Сотрудники.ПасДо) >=" & DateTime.Date & " And (Сотрудники.ПасДо) <= " & DateTime.Date & "+ 14))"
End Select
pvSQL = pvSQL & " ;"
Me![Список7].RowSource = pvSQL
End Sub | |
| |
| |
| |
|
|
| | насколько я понял Вам нужно открыть форму с урезанными данными а вы вешаете запрос на список (Me![Список7].RowSource = pvSQL)а не на форму
по моему мнению (как я понял ваш вопрос) должно быть так
Me.RowSource = pvSQL | |
| |
| |
| |
|
|
| | здесь идет речь о переключателях, чтоб показать всех или по дате действая документа | |
| |
| |
| |
|
|
| | ПропДО и ПасДО какой тип у вас имеют? | |
| |
| |
|
|
| |
|
|
| | "WHERE Сотрудники.ПропДо >='" & DateTime.Date & "' And Сотрудники.ПропДо <= " & DateTime.Date +7 | |
| |
| |
| |
|
|
| | нет не работает :(
В Help сказано что дата должна быть в #
strSQL = "SELECT * FROM Orders WHERE OrderDate >#3-31-96#;" | |
| |
| |
| |
|
|
| | pvSQL = pvSQL & " WHERE (((Сотрудники.ПропДо) >=" & format(Date,"\#mm\/dd\/yyyy\#") & " And (Сотрудники.ПропДо) <= " & format(Date+7,"\#mm\/dd\/yyyy\#") & "))"
???? | |
| |
| |
| |
|
|
| | osmor, огромное спасибо, так работает!!!
Ни когда сам не догадался бы! | |
| |
| |
