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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Как узнать, сколько записей вывела команда RowSource?
 
 автор: Volch   (08.04.2010 в 10:28)   личное сообщение
 
 

Как узнать, сколько записей вывела команда Me!ПолеСоСписком27.RowSource =...

  Ответить  
 
 автор: snipe   (08.04.2010 в 10:35)   личное сообщение
 
 

RowSource -источник строк
это либо имя запрос(ранее сохранённый) или имя таблицы
либо строка SQL
берем DCount (см. Help по функции) и с теми же условиями что в RowSource подсчитываем

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

Спасибо

  Ответить  
 
 автор: snipe   (08.04.2010 в 11:20)   личное сообщение
 
 

forms![имя формы]![имя поля со списком].listcount

  Ответить  
 
 автор: Volch   (08.04.2010 в 12:33)   личное сообщение
 
 

Спасибо, еще проще

  Ответить  
 
 автор: Volch   (08.04.2010 в 12:35)   личное сообщение
 
 

Вопрос вдогонку. Если listcount =1, можно значение сразу в поле вставить, без выбора из списка?

  Ответить  
 
 автор: snipe   (08.04.2010 в 12:50)   личное сообщение
 
 

Да можно - можно установить значение по умолчанию

forms![имя формы]![имя поля со списком].defaultvavue

  Ответить  
 
 автор: Volch   (08.04.2010 в 12:58)   личное сообщение
 
 

Не работает defaultvavue:(
это правильно?:
Me!ПолеСоСписком27.DefaultValue = DLookup("[ФИОВрача]", "ВрачиФИО", "[ВрачиФИО].Специалист=[Forms]![Записи]![ПолеСоСписком25]")

  Ответить  
 
 автор: snipe   (08.04.2010 в 13:08)   личное сообщение
 
 

Dim rs As DAO.Recordset
Set rs = Me!ПолеСоСписком0.Recordset
rs.MoveFirst
Me!ПолеСоСписком0.DefaultValue = rs.Fields(0)
Set rs = Nothing

а вот так
Me!ПолеСоСписком27.DefaultValue = DLookup("[ФИОВрача]", "ВрачиФИО", "[ВрачиФИО].Специалист=" & [Forms]![Записи]![ПолеСоСписком25])

  Ответить  
 
 автор: Explorer   (08.04.2010 в 13:54)   личное сообщение
 
 

вот это ты дал :)

парочку другую таких комбобоксов на форму и все

  Ответить  
 
 автор: Lukas   (08.04.2010 в 15:13)   личное сообщение
 
 

Лукап запретить законодательно.
Под страхом смертной казни.

  Ответить  
 
 автор: Анатолий (Киев)   (08.04.2010 в 13:40)   личное сообщение
 
 


With Me!ПолеСоСписком27
  If .ListCount = 1 then .Value = .ItemData(0)
End With

  Ответить  
 
 автор: snipe   (08.04.2010 в 14:06)   личное сообщение
 
 


сам учусь

  Ответить  
 
 автор: Volch   (08.04.2010 в 14:40)   личное сообщение
 
 

Красиво:)

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