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

Форум: MS ACCESS

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

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

 
 

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

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

тема: запрос к разным таблицам
 
 автор: Едрёныч   (19.06.2009 в 11:26)   личное сообщение
 
 

подскажите, как сделать так , чтобы запрос мог бы выбирать в качестве источника разные таблицы, в соответствии со значением поля со списком формы. где здесь ошибка?

Me.размер.RowSource = "SELECT DISTINCT размер FROM " & Me.вид.Column(2) & ""
' задаём источник
Me.размер = "SELECT DISTINCT размер, подтип FROM " & Me.вид.Column(2) & " WHERE ((( [подтип].[" & Me.вид.Column(2) & " ] ) = [Forms]![Форма3]![подтип] ))"
' задаём условие отбора из источника
Me.размер.Requery
Me.размер = Me.размер.ItemData(0)

если поставить апостроф перед Me.размер = Me.размер.ItemData(0),
то в поле размер вообще вылазит текст SELECT.....
Наверняка уже кто-то сталкивался с подобными проблемами.
Взгляните, если есть возможность http://slil.ru/27773411

  Ответить  
 
 автор: osmor   (19.06.2009 в 12:19)   личное сообщение
 
 

"размер" - это поле со списком?

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

Me.размер.RowSource = "SELECT DISTINCT размер FROM " & Me.вид.Column(2) & ""
' задаём источник
Me.размер = "SELECT DISTINCT размер, подтип FROM " & Me.вид.Column(2) & " WHERE ((( [подтип].[" & Me.вид.Column(2) & " ] ) = [Forms]![Форма3]![подтип] ))"

замени на это

Me.размер.RowSource = "SELECT DISTINCT [подтип],[размер] FROM " & Me.вид.Column(2) & " WHERE ((( [" & Me.вид.Column(2) & " ].[подтип] ) = [Forms]![Форма3]![подтип] ))"

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

Чуть не забыл......
ПолеСоСписком Размер ....
присоединенный столбец - должно быть 2
Ширина столбцов - 0см;2см

  Ответить  
 
 автор: Анатолий (Киев)   (19.06.2009 в 12:54)   личное сообщение
 
 

Для надежности:
Me.размер.RowSource = "SELECT DISTINCT [подтип],[размер] FROM [" & Me.вид.Column(2) & "] WHERE ((( [" & Me.вид.Column(2) & " ].[подтип] ) = [Forms]![Форма3]![подтип] ))"

Если у вас несколько однотипных таблиц, то лучше их свести в одну с дополнительным полем-признаком.

  Ответить  
 
 автор: Едрёныч   (19.06.2009 в 13:48)   личное сообщение
 
 

Большое спасибо всем откликнувшимся!!! . Ваши советы очень помогли. Как вы считаете, что лучше использовать запрос на объединение необходимых таблиц или инструкцию на VBA ?

  Ответить  
 
 автор: Мюллер   (19.06.2009 в 14:48)   личное сообщение
 
 


Как вы считаете, что лучше использовать запрос на объединение необходимых таблиц или инструкцию на VBA ?


так ведь инструкция на VBA тоже будет содержать запрос на объединение.

зы
вааще то запросы отрабатывают быстрее и корректнее

  Ответить  
 
 автор: Едрёныч   (19.06.2009 в 15:09)   личное сообщение
 
 

Ага, понятно.

  Ответить  
 
 автор: Гоблин   (20.06.2009 в 09:39)   личное сообщение
14 Кб.
 
 

? А ваш пример не открывается.

  Ответить  
 
 автор: Едрёныч   (22.06.2009 в 11:59)   личное сообщение
 
 

не открывается сам не знаю почему, но если сразу второй раз открыть его же, то все нормально. Это после того как я попытался сделать форму-заставку.

  Ответить  
 
 автор: Едрёныч   (23.06.2009 в 17:43)   личное сообщение
 
 

Разобрался почему не открывалась. Это я сдуру в параметрах запуска снял галочку с "Окно базы данных"

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