ник: Мишок
Вот так сделано:
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