ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Самодельный поиск в поле.
9 сообщений из 9, страница 1 из 1
Самодельный поиск в поле.
    #32417692
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Поле содержит артикулы, длина постоянная - 6 знаков. Пользователь просит сделать поиск по этому полю. Принцип поиска: в свободное поле вводится набор символов, выбирается способ: "совпадение с началом", "совпадение к концом", нажатие кнопки оставляет на форме отобранные записи.
Никто похожее не делал? Не соображу какой код должен быть.
...
Рейтинг: 0 / 0
21.02.2004, 12:13
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32417698
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
на кнопочке меняешь сурс формы/листа на прежний + WHERE условие и обновляешь...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
21.02.2004, 12:20
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32417700
alexeyK-home
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexeyK-home
Гость
элементарная вешь
делается аналогично как в твоем предыдущем топике

в результате нажатия кнопки в источник данных подчиненной формы нужно подставить
me.podform.form.recordsource ="select artikul from artikuls where artikl like '*" & me.findstring & "'"
...
Рейтинг: 0 / 0
21.02.2004, 12:22
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32417749
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Отбираются! Спасибо!
Следующая беда: отбраны, допустим, 5 записей. Общего у них только 3 последних символа. Как теперь этот разношерстный набор обработать?
Конкретно: как эти записи пометить - надо установить у этих записей флажок.
...
Рейтинг: 0 / 0
21.02.2004, 15:12
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32417917
lobodava
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lobodava
Участник
Один из способов создания самодельного поиска описан у меня на lobodava.by.ru . Он не подходит без переделки для ленточной формы. Но некоторые принципы, я думаю, будут интересны. Код без комментариев, поэтому, если что не ясно, обращайтесь.
...
Рейтинг: 0 / 0
21.02.2004, 22:47
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32417970
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А как насчет такого?

Код: plaintext
1.
2.
3.
4.
Set rs = MyForm.RecordsetClone
rs.Filter = MyForm.Filter
Do Until rs.EOF
   rs.Flag = True
Loop


Еще проще было бы взять то условие, которое применяется к WHERE, и приляпать к нему запрос на UPDATE, если, конечно, есть что апдейтить.
...
Рейтинг: 0 / 0
22.02.2004, 10:14
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32418000
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Ну я так, приблизительно и сделал: запоминаю в переменной выражение фильтра и использую все это в условии Where запроса Update...
-------------------------------------------------------------------
А делал кто-нибудь что-то типа "найти и заменить" и "заменить все"?
В модулях есть эта операция. А в форме подобное можно сделать? Что-то типа: в свободное поле вводишь "car", в другое - "тачка", нажимаешь кнопку и программа меняет в табличной форме(в одном конкретном поле, но во всех записях) одно слово на другое, сохраняя, конечно все пробелы...
Теоретически разумею, что это что-то вроде метода ReplaceLine в модулях, но не соображу с какого конца взяться за работу.
Пошарил по сайтам, может кто "халяву" выложил - не нашел...
...
Рейтинг: 0 / 0
22.02.2004, 12:21
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32418012
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А чем это отличается от обычного апдейта с условием LIKE ?
...
Рейтинг: 0 / 0
22.02.2004, 13:46
| Ответить | Цитировать | Написать  
Самодельный поиск в поле.
    #32419746
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KV
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub txtMyCompanyFind_Change()
Dim s As String
    s = Me.txtMyCompanyFind.Text 'Определяем текст
    With Me.sfrCompany.Form 'Выбираем форму
      If Len(s) <>  0  Then
        s =  " WHERE Left([CompanyName],"  & Len(s) &  ") = '" & s & "'" 
      Else
        s =  ";" 
      End If
      .RecordSource =  "SELECT CompanyId, CompanyName FROM tblCompanies "  & s
      .Requery 'Меняем запрос
    End With
End Sub
...
Рейтинг: 0 / 0
24.02.2004, 16:37
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Самодельный поиск в поле.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1676509]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 144ms
get topic data:
 8ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 231ms
total:  457ms
созд. / загр.: 457ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]