Поиск по интервалу.

[Danu]

Есть Есть база данных в аксессе, содеражащая таблицу 2004 с колонкой PR_TR_LST в которой содержатся цифры, надо сделать по ней интервальный поиск через between , числа вводятся пользователем и содержатся в текстовых полях 4 и 5. Вроде все сделано правильно, но поиск не идет, долгое чтение мануала также не помогло, может вы что подскажете?

Вот код который должен запускатся при нажатии на кнопку поиска:

Private Sub command5_click()
Dim ot, d0 As Integer
ot = Text4.Text
d0 = Text5.Text
Me.Data1.RecordSource = "select PR_TR_LST " & _
"From 2004 " & _
"Where ([PR_TR_LST] BETWEEN '" & ot & "' and '" & d0 & "')"

Есть мысль что ошибка здесь -> '" & ot & "' and '" & d0 & " , но что там должно быть- тайна, покрытая мраком.

[alibek]

Если поле PR_TL_LST числовое, то одинарные кавычки не нужны. Т.е. "Where ([PR_TR_LST] BETWEEN " & ot & " and " & d0 & ")"

[Danu]

Все равно не ищет

[Ennor]

А если сделать после установки свойства RecordSource вот это:

Код: Выделить всё

MsgBox Me.Data1.RecordSource

?

[Danu]

А если сделать после установки свойства RecordSource вот это:

Код: Выделить всё

MsgBox Me.Data1.RecordSource

?

Да это все показывалось. Делала для проверки.
Все исправила и сделала, как выяснилось для нормальной работы ему не хватало Group by и Where заменить Having. Спасибо за помощь, кавычки действительно надо было убрать