-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Отбор в отобранном

Пятница, 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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку