Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Обновить список
 
 автор: Scorpi   (04.07.2008 в 11:06)   личное сообщение
38 Кб.
 
 

Ситуация: есть на форме списки (для фильтров), на событие _AfterUpdate стоит обновление остальных списков в зависимости от того значения, которое выбрали: Me!ПолеОбъект.RowSource = "SELECT ..." Эти моменты отрабатывают без проблем. А вот когда нажимаю на кнопочку "Сбросить фильтры":
Me!Список1.RowSource = "SELECT NSI_object.Код, NSI_object.sname FROM NSI_object WHERE NSI_object.Кодin (select distinct kod_ob from specific)"
Me!Список2.RowSource = "SELECT DISTINCT specific.kod FROM specific"
Me!Список3.RowSource = "SELECT DISTINCT specific.cherteg FROM specific"
Me!Список4.RowSource = "SELECT DISTINCT specific.prim FROM specific ORDER BY specific.prim"
Me!Список1.Requery
Me!Список2.Requery
Me!Список3.Requery
Me!Список4.Requery
Так вот списки обновляться обновляются, но остается видимым прежде выбранное значение (см. файл), а из-за этого потом не работают условия ((
Сначала пробовала без Requery, все равно не работает ((

  Ответить  
 
 автор: ДрЮня   (04.07.2008 в 11:10)   личное сообщение
 
 

а свойства Refresh у него нет?
можно также попробовать, как для комбо-бокса
cmb.Text = cmb.List(0)

  Ответить  
 
 автор: Scorpi   (04.07.2008 в 11:17)   личное сообщение
 
 

Refresh - нет, свойства List тоже, есть ListIndex, и пр... но они отвечают за количество строк в списке

  Ответить  
 
 автор: Анатолий (Киев)   (04.07.2008 в 11:47)   личное сообщение
 
 

ИМХО:
Me!Список1 = Null
Me!Список1.RowSource = "SELECT ..."
и т.д.

А .Requery - лишнее.

  Ответить  
 
 автор: Scorpi   (04.07.2008 в 11:55)   личное сообщение
 
 

как всегда, все просто! Спасибо!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList