Поиск по нескольким БД с выводом инфы в одной форме

[Алина_Алина]

Снова прошу помощи
У меня есть несколько баз данных,
они находятся в разных книгах Excel.
Можно ли создать такую форму (отдельно),
чтобы, в зависимости от введеных данных в полях, выходила нужная информация?
Я создала форму, которая выполняла бы эти требования, не знаю с чего начать описание. У меня 3 базы,
надо 3 отдельных цикла или все в одном? и как активировать закрытый лист?
В любом случае, спасибо, Вам, форумчане! Вы мне здорово помогли!

[дмидми]

Не совсем понятно, что Вы хотите сделать.

Кстати, Вы не пробовали использовать "Данные -- Форма..."?
(ShowDataForm Method)

[Алина_Алина]

Хотелость бы, чтобы форма ПОИСК работала так:
При выборе БД (Сеть или Выездной семинар или Запись в Стеллу), которые находятся в др. книгах eхcel и закрыты, выдавалась информация в соответствующих фреймах.
Напр: Если выбрать БД Выездной семинар,
а во фрейме Выездной семинар выбрать нужного менеджера - вышло количество семинаров, которые провели у клиента данного менеджера.
Или
Если Если выбрать БД Сеть,
а во фрейме Сеть в строке № телефона набрать какой-то номер - вышла инфа об абоненте и отделе, где он работает.

Вот, , или так не получится?

[Алина_Алина]

В приложении, в книге Запрос есть форма, на которой все наглядно

[дмидми]

Сообщение от Алина_Алина

У меня 3 базы, надо 3 отдельных цикла или все в одном?

ИМХО, поскольку данные из этих таблиц никак не связаны между собой, то и поиск удобнее вести отдельно в каждой из них. Тем более, что поиск ведётся в разных колонках и по-разному извлекаются данные из таблицы в форму.

Сообщение от Алина_Алина

и как активировать закрытый лист?

Сообщение от Алина_Алина

БД находятся в др. книгах eхcel и закрыты

Почему Вы так упорно оговариваете, что книги-источники закрыты?
Что мешает открыть их, сделать невидимыми пользователю - например,
Workbooks(N).Windows(1).Visible = False
, и далее работать обычным способом, не используя ни XLM, ни ADODB, ни чего-то другого?

P.S. Дело вкуса, но, поскольку форма поиска для каждого источника своя (сейчас их рамочки толкаются в одной форме), я бы использовал на форме элемент управления MultiPage.
Тогда и надобность в комбобоксе выбора таблицы отпадёт, поскольку выбор страницы элемента MultiPage будет определять выбор соответствующей таблицы с данными.

[Алина_Алина]

Все дело в том, что меня так озадачил рук-ль,
он хочет, чтобы я создала окно со сложным поиском,
поэтому я и хочу, что он (поиск) велся в разных книгах, по разным параметрам.
На неактивные книги я напирала по непытности, т.к. теперь вижу что откравать их все равно придется
яэто делаю так

Private Sub ComboBox2_Change()
Set Workbooks Выездной_семинар = Workbooks.Open(Filename:="C:\Docume nts and Settings\Admin\Выездной_семинар.xls ")
ComboBox2.List = Worksheets("Лист1").Range("E1:E15") .Value
End Sub

Работает , только выдает все записи, хотелось бы чтобы без повторений))) вся ночь впереди.....

Спасибо

[дмидми]

Сообщение от Алина_Алина

меня так озадачил рук-ль,
он хочет, чтобы я создала окно со сложным поиском,
поэтому я и хочу, что он (поиск) велся в разных книгах, по разным параметрам.

Вы уверены, что под сложным поиском рук-ль понимал именно это? Поиск-то Вы делаете самый примитивный, по полному совпадению.

Сообщение от Алина_Алина

На неактивные книги я напирала по непытности, т.к. теперь вижу что откравать их все равно придется

Отчего вдруг такая обречённость - "всё равно придётся"? Во-первых, это не так уж и больно. Во-вторых, с незапамятных времён на разных форумах хроническая болезнь - обсуждение способов получение инфы из закрытых книг.

Сообщение от Алина_Алина

.Range("E1:E15").Value

Жёстко задавать адрес единственной (на листе ёкселя) таблицы - мягко говоря, не шибко комильфо. В таких случаях используют .UsedRange

[Алина_Алина]

В моем случае все чем я сейчас занимаюсь не Комильфо , ведь я познакомилась с VBA неделю назад )А рук-ль имел ввиду именно это.

[VictorM]

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

[Алина_Алина]

спасибо, пригодится )