ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Filter
11 сообщений из 11, страница 1 из 1
Filter
    #32643299
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
Подсказжите как правильней сделать фильтр.
У меня проект (.adp) с SQL Server.
Я поместил на форму ComboBox с данными из таблицы "Models" и рядом приставил кнопку, по нажитии которой на моей форме должны показываться только данные по выбронной записи в ComboBox.
Посмотрел в хелп и написал следующий код:

Private Sub Command51_Click()
Me.ServerFilter = "Model=" & Me![Combo49]
Me.ServerFilterByForm = True
End Sub

Но что-то не срабатывает.
В чём причина?
...
Рейтинг: 0 / 0
10.08.2004, 18:01:20
| Ответить | Цитировать | Написать  
Filter
    #32643325
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
magoga
...
Me.ServerFilter = "Model=" & Me![Combo49]
...


Код: plaintext
1.
    Me.ServerFilter = "Model=" & Me![Combo49].Column(Какой-то_столбец)

Может так получится?
...
Рейтинг: 0 / 0
10.08.2004, 18:18:12
| Ответить | Цитировать | Написать  
Filter
    #32643336
lsnk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsnk
Гость
Не силен в adp но попробуй:
если Me![Combo49] текстовый то Me.ServerFilter = "Model='" & Me![Combo49] & "'"
если числовой то Me.ServerFilter = "Model=" & Str(Me![Combo49])
В общем - может не сответствие типов?
...
Рейтинг: 0 / 0
10.08.2004, 18:22:04
| Ответить | Цитировать | Написать  
Filter
    #32643346
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Есче вариант :)
Я в адп конечно не силен... вообще не трогал пока...
Но может:
Код: plaintext
Me![Combo49]

Заменить на:
Код: plaintext
Me.Combo49

В *.mdb после ввода "mе." выпадает список с полями и свойствами формы, а в адп не так?
...
Рейтинг: 0 / 0
10.08.2004, 18:28:18
| Ответить | Цитировать | Написать  
Filter
    #32643362
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
Блин, пока сидел над этой проблемой, произошло что-то не понятное. Приктически ничего не менял и теперь из дизайна не могу переключиться на стандартнуй форму. Выдаёт ошибку:
Line 1: Incorrect Syntaх near '100'.

Стёр весь код из едитора Вижуал Басик для этой формы и всё равно форма не открывается.
...
Рейтинг: 0 / 0
10.08.2004, 18:36:52
| Ответить | Цитировать | Написать  
Filter
    #32643366
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
Нашёл ошибку. В свойствах формы установились настройки Фильтра, после моих экспериментов. Сейчас попробую последовать вашим советам.
...
Рейтинг: 0 / 0
10.08.2004, 18:40:13
| Ответить | Цитировать | Написать  
Filter
    #32643407
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
lsnkНе силен в adp но попробуй:
если Me![Combo49] текстовый то Me.ServerFilter = "Model='" & Me![Combo49] & "'"
если числовой то Me.ServerFilter = "Model=" & Str(Me![Combo49])
В общем - может не сответствие типов?


Попробовал, но не фильтрует. Даже ошибку не показывает.
...
Рейтинг: 0 / 0
10.08.2004, 19:20:27
| Ответить | Цитировать | Написать  
Filter
    #32643500
lsnk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsnk
Гость
Не знаю как правильно, но поставь еще Me.Requery. У меня заработало, но есть ли это правильно(как должно быть) я не уверен(справка в акцесе глючит).
...
Рейтинг: 0 / 0
10.08.2004, 21:07:30
| Ответить | Цитировать | Написать  
Filter
    #32648896
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
Блин, у меня до сих пор ничего не получилось. Перепробовал сотню вариантов, но никакой не фильтрирует.
Помогите пожалуйста.
...
Рейтинг: 0 / 0
13.08.2004, 14:56:33
| Ответить | Цитировать | Написать  
Filter
    #32649103
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
magoga
Участник
Заработало. :)
Но теперь у меня другая проблемка. Как сделать так, чтобы фильтр при желании мог отключиться?
Я написал такую процедуру:

Private Sub Command58_Click()
Me.ServerFilterByForm = False
Me.Requery
End Sub



Но настроики фильтра не сбрасываются.
...
Рейтинг: 0 / 0
13.08.2004, 16:10:00
| Ответить | Цитировать | Написать  
Filter
    #32649516
lsnk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsnk
Гость
опять же не заню как правильно, но просто фильтр снять можно так:
Private Sub Command58_Click()
Me.ServerFilter = ""
Me.ServerFilterByForm = False - вот нужно ли это незнаю
Me.Requery
End Sub
...
Рейтинг: 0 / 0
13.08.2004, 22:30:18
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Filter
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32643500&tid=1672475]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 56ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 232ms
total:  351ms
созд. / загр.: 351ms
x
x
Закрыть


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