как в подчиненной форме отразить нужные данные

[Ilnas]

Здравствуйте, подскажите пожалуйста как быть!
Есть главная форма с OLE-объектом ( административная карта в виде фото), названия районов позволяют осуществить переход на подчиненную форму ( сделал с помощью кнопок),в подчиненной форме есть поле "поиск хозяйства". Как сделать чтобы в поле " поиск хозяйства" отражались данные только соответсвующего района. Сейчас в этом поле выходят все хозяйства всех районов. Подскажите пожалуйста, уровень пользования Access начинающий, программирование - "чайник",Access 2003. Заранее благодарен.

[Abrakadabra]

базу выкладывайте, поможем

[Ilnas]

Выкладываю пример, Активны 2 района "Арский" и " Кукморский". Еще такой вопрос: для открытия подчиненной формы в главной форме на каждой кнопке висит макрос "открыть форму" с условием по коду главной формы. Проблема в том,что для каждого района приходится создавать отдельный макрос. Нельзя ли сделать так, чтобы макрос был один на все кнопки?

[Teslenko_EA]

Здравствуйте Ilnas.
"Выкладываю пример.." - примером можно считать архив с заранее подготовленным (желательно в формате А2003, избавленным от избыточных данных, OLE объектов,.... и сжатый средствами MS Access) файлом БД, размером не более 200 Кб (всё что больше - бесполезно)
Файл размером больше, уменьшает Ваши шансы на получение ответа/совета, ведь Ваши бесполезные мегабайты это трафик - а он не у всех бесплатный.

Евгений.

[Ilnas]

Понял, спасибо, что сказали, выкладываю обновленный архив

[Teslenko_EA]

Здравствуйте Ilnas.
"..чтобы в поле " поиск хозяйства" отражались данные только соответсвующего района.." - задачу можно решить
изменив подобным образом код в обработчике событий формы КАРТА ВВОД

...
'кнопке назначено выполнение процедуры  showForm
'с аргументом соответствующим условию
'все остальные можно открывать так же, передавая
'в процедуру соответствующее значение
'showForm 1, showForm 2, showForm .....

Private Sub Кнопка8_Click(Cancel As Integer)
    showForm 3
End Sub

Sub showForm(sNum$)
Const sQ = "SELECT [COD ID], [Название участка] FROM Визитка WHERE [Код адм района]="
On Error GoTo 9
    'открывается форма с установкой фильтра на набор записей
    DoCmd.OpenForm "ХОЗЯЙСТВО", acNormal, "", "[Визитка]![Код адм района]=" + sNum, , acNormal
    'полю со списком открытой формы задается источник строк
    'с необходимым условием отбора
    Forms("ХОЗЯЙСТВО").ПолеСоСписком36.RowSource = sQ + sNum
    Exit Sub
9
    MsgBox Error$
End Sub

надеюсь совет будет полезен, (и без 14.38 Мб)
Успехов Вам.
Евгений.

[Ilnas]

вставил код на, но выдает ошибку: "Выражение Нажатие кнопки, введенное в поле свойства события, вызывает ошибку: Procedure declaration does not match description of event or procedure having the same name" Вроде все все условия проставил. А перед выражением "Sub showForm(sNum$)" не надо представлять процедуру?

[Teslenko_EA]

Здравствуйте Ilnas.
прошу прощения за опечатку, конструкция будет работоспособна если процедуру вызова изменить так:

Private Sub Кнопка8_Click()
    showForm 3
End Sub

или так:

Private Sub Кнопка8_DblClick(Cancel As Integer)
    showForm 3
End Sub

"..представлять процедуру.." - Вы очевидно имеете ввиду Private или Public(?),
они задают видимость процедуры в проекте, в Вашем случае в этом нет необходимости, они в одном модуле.

Евгений.

[Ilnas]

Здравствуйте уважаемые пользователи форума, вставил конструкцию на значение кнопки, она сработала, но только для всех кнопок на форме "Карта ввод". Проблема в том, что необходимо для каждой кнопки, характеризующие определенный район на форме "Карта ввод", выбирать соответсвующие данные в следующей форме "Хозяйство" в строке формы "Поиск хозяйства".А на данном этапе после использования конструкции, показанной Евгением (Teslenko_EA), поиск хозяйства для всех районов срабатывает так, что поиск выводит все хозяйства одного района, но это почему то срабатывает для всех районов. Помогите пожалуйста, не пойму в чем дело. Значения showForm 3 меняю на условия, прописанные в макросе, автоматом меняются хозяйства района в поиске, но опять же для всех районов.