Фильтр при загрузке в подчиненной форме Access

[nikolaynn2008]

Здравствуйте форумчане!
Делаю базу для магазина адресного хранения, для каждого отдела создал отделенные формы типо навигатора стеллажей по отделу...стеллажи сделал группой переключателей в подчиненой формы, во вложении образец...Сложность в том что не хотелось бы для каждого отдела создавать список данных, это получится очень много форм и запросов! Помогите пожалуйста сделать так чтоб определенной форме выгружались только данные конкретного отдела...Либо создавать запросы в VBA либо есть какое то другое решение!?
Помогите пожалуйста, не могу ладу дать!
Так же есть редактор в списке, на рис - 2, и у каждого отдела свои адреса, как сделать чтоб в выпадающий список тоже фильтровался для каждого отдела своими адресами!?
Заранее благодарю!

[Aleksandr H.]

1.

Сообщение от nikolaynn2008

сделать так чтоб определенной форме выгружались только данные конкретного отдела...

Сообщение от nikolaynn2008

Либо создавать запросы в VBA

2.

Сообщение от nikolaynn2008

как сделать чтоб в выпадающий список тоже фильтровался для каждого отдела своими адресами!?

Сообщение от nikolaynn2008

создавать запросы в VBA

[shanemac51]

картинка красивая
она у меня ассоциируется с процессами
--кликнул по стеллажу в форме размещения --в списке высветилось, что в нем лежит
--кликнул по нескольким деталям в списке(если он длинный, то дополнительное поле для галочки в форме поиска) и выделение стеллажей, где выбранное находится
--не знаю только, возможно ли создать маршрут обхода(номера то ведь идут змейкой и перейти от 11 к 31 можно как по змее 11,12,12,,,,,,,21,,,22,31 ток и напрямую 11-31

[nikolaynn2008]

Все верно...нажимаешь на стеллаж, список выдает информацию того что в нем находится...
Вот код переключателя..
Private Sub Выбор_Click()
Dim sSql As String, sCriteria As String
Select Case Выбор.Value
Case 1: sCriteria = "58A"
Case 2: sCriteria = "58B"
Case 3: sCriteria = "58C"
Case 4: sCriteria = "58D"
Case 5: sCriteria = "58E"
Case 6: sCriteria = "58F"
Case 7: sCriteria = "58G"
Case 8: sCriteria = "58H"
Case 9: sCriteria = "58I"
Case 10: sCriteria = "58J"
Case 11: sCriteria = "58K"
Case 12: sCriteria = "58L"
Case 13: sCriteria = "59A"
Case 14: sCriteria = "59B"
Case 15: sCriteria = "59C"
Case 16: sCriteria = "59D"
Case 17: sCriteria = "59E"
Case 18: sCriteria = "59F"
Case 19: sCriteria = "59G"
Case 20: sCriteria = "59H"
Case 21: sCriteria = "59I"
Case 22: sCriteria = "59J"
Case 23: sCriteria = "60A"
Case 24: sCriteria = "60B"
Case 25: sCriteria = "60C"
Case 26: sCriteria = "60D"
Case 27: sCriteria = "60E"
Case 28: sCriteria = "60F"
Case 29: sCriteria = "60G"
Case 30: sCriteria = "60H"
Case 31: sCriteria = "60I"
Case 32: sCriteria = "60J"
Case 33: sCriteria = "60K"
Case 34: sCriteria = "60L"
Case 35: sCriteria = "61A"
Case 36: sCriteria = "61B"
Case 37: sCriteria = "61C"
Case 38: sCriteria = "61D"
Case 39: sCriteria = "61E"
Case 40: sCriteria = "61F"
Case 41: sCriteria = "CCA"
Case 42: sCriteria = "CCB"
Case 43: sCriteria = "CCC"
Case 44: sCriteria = "CCD"
Case 45: sCriteria = "CCE"
Case 46: sCriteria = "CCF"
Case 47: sCriteria = "1TG"
Case 48: sCriteria = "2TG"
Case 49: sCriteria = "3TG"
Case 50: sCriteria = "4TG"
Case 51: sCriteria = "***"
End Select
sSql = "SELECT " & _
"Список.ЛМ, Товар.Количество, Товар.Адрес, Товар.[Штрих-код], Список.Описание, Список.Гамма, " & _
"Список.Цена, [Цена]*[Количество] AS Сумма, Адреса.Стелаж, Товар.Код, Адреса.Отдел, [ЛМ]+ Товар.[Штрих-код] + [Описание] AS ПоискНав" & _
" FROM Список INNER JOIN " & _
"(Адреса INNER JOIN Товар ON (Адреса.Адрес = Товар.Адрес) AND (Адреса.Адрес = Товар.Адрес)) ON Список.[Штрих-код] = Товар.[Штрих-код] " & _
" WHERE (((Адреса.Отдел)='08') AND ((Адреса.Стелаж) Like """ & sCriteria & """));"
'MsgBox sSql

Me.ТоварСписок.Form.RecordSource = sSql
Me.ТоварСписок.Requery
End Sub

[nikolaynn2008]

Могу скинуть базу в облако...ее вес 170)))