Пятница, 14 Февраля 2014 г. 15:13
+ в цитатник
Уважаемые знатоки VBA
подскажите как можно осуществить отбор в отобранном.
Есть ленточная форма имеющая рекордсет на основе запроса
SQLstr = "SELECT* From td_data2014 ORDER BY td_data2014.vx DESC , td_data2014.vx_date DESC;"
Me.RecordSource = SQLstr
Затем пользователь делает допустим такой отбор
Private Sub isx_f_AfterUpdate()
Dim s As String
s = Me.isx_f.Text 'Определяем текст
With Me.Form 'Выбираем форму
If Len(s) <> 0 Then
s = " WHERE ([isx]) = '" & s & "'"
Else
s = ";"
End If
If Me.arc = -1 Then
If Me.ГодАрхива = 2013 Then
.RecordSource = "SELECT * FROM [td_data]" & s
End If
Else
.RecordSource = "SELECT * FROM [td_data2014]" & s
End If
.Requery 'Меняем запрос
End With
Me.isx_f = Null
End Sub
Рекодсет формы меняется и как именно в нем сделать следующий отбор по другому полю?
Буду очень признателен за какой-нибудь пример для выполнения этой задачи!
http://www.sql.ru/forum/1077470/otbor-v-otobrannom
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-