Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2015, 23:34   #1
Ketru
Новичок
Джуниор
 
Регистрация: 26.01.2015
Сообщений: 2
По умолчанию Поиск в числовом поле

Здравствуйте,

У меня не работает поиск так, как мне хочется.

Допустим, есть таблица и в ней числовое поле с числами:

5.00
3.80
56.00
3.20

Как только в поиске набираю 5 с точкой, у меня исчезают все записи.

На поисковом поле висит такой код:

Код:
Private findprice As String
Public x As String

Private Sub fprice_Change()
findprice = Nz(Me.fprice.Text, "")
x = findprice
If x <> "" Then
   Me.[form2].Form.Filter = "Nz([Table1].[price]) Like '" & findprice & "*'"
   Me.[form2].Form.FilterOn = True
   Me.fprice.SelStart = 100
Else
   Me.[form2].Form.FilterOn = False
End If
End Sub
Вложения
Тип файла: rar poisk.rar (15.7 Кб, 13 просмотров)
Ketru вне форума Ответить с цитированием
Старый 28.01.2015, 02:47   #2
AndVGri
Форумчанин
 
Регистрация: 10.02.2012
Сообщений: 109
По умолчанию

Доброе время суток
Чтобы сравнивать число с текстовым шаблоном, Access приводит число в текстовый формат. Выполните в Immediate ?CStr(5). Получите 5, а не 5.0 и, поэтому не сработает ваш фильтр.
Тогда нужно отформатировать число для представления в виде 0.00. То есть в коде будет
Код:
s = "Format(Nz([Table1].[price]),'0.00') Like '" & findprice & "*'"
Успехов.
AndVGri вне форума Ответить с цитированием
Старый 30.01.2015, 12:19   #3
Ketru
Новичок
Джуниор
 
Регистрация: 26.01.2015
Сообщений: 2
По умолчанию

А так удобнее будет. У меня в запросе Format использован. Большое спасибо
Ketru вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск в поле kelod БД в Delphi 28 21.09.2012 09:17
поиск записей (поле со списком) Megatron1 Microsoft Office Access 1 13.02.2012 12:06
Поиск в поле со списком Glender Microsoft Office Access 1 06.02.2012 11:14
Поиск записи в поле со списком Swatch Microsoft Office Access 1 23.12.2009 19:09
Поиск в поле Memo omi БД в Delphi 6 01.03.2007 18:39