Ни как не могу организовать поиск.
есть кнопка "Показать все", под ней лежит следующий код
Private Sub Вк_Заказчик_AfterUpdate()
If Not Me![Вк_Заказчик] Then
Me![СпЗаказчик].Enabled = True
Else
Me![СпЗаказчик].Enabled = False
Me![СпЗаказчик] = Null
Me.Requery
End If
End Sub
Есть поле со списком СпЗаказчик. там след. код:
Private Sub СпЗаказчик_AfterUpdate()
Me.Requery
End Sub
потом код для главной формы
Private Sub Form_Load()
Me![SFD].Form.Requery
End Sub
Написан запрос где источник вся таблица + выражение
[Forms]![Фильтр Форма]![SFD]![Вк_Заказчик] Or [Forms]![Фильтр Форма]![SFD]![СпЗак]=[Заказчик]

При открытие формы-фильтра кнопка Показать все работает, но когда значение выбирается из списка Сп_Заказчик - результат нулевой.

Где же ошибка? Помогите

Это надо написать в форме-фильтре After Update? Если можно напишите подробнее. Спасибо

а разве это не правильно?
Private Sub СпЗаказчик_AfterUpdate()
Me.Requery
End Sub

не работает. не проходит на последней строке
[Forms]![Фильтр Форма]![SFD].RecordSource = strSql

это имя подчиненнй формы

что такое контрол? у меня SFD - это имя подчиненной формы.

с точкой не идет.
у меня и имя, и SourceObject = SFD

отстанов на том же месте.

ошибка
Run-time error '3075'
Syntax error (mising operator) in query expression '[Имя таблицы].[Поле]= "ОАО Чайка", где ОАО Чайка - это первая строка в таблице.
и еще она пишет что strSql всегда = этой первой строке таблицы

извините за глупость, но что есть селект (я только начинаю с Access работать).

"select * from [Договора2] Where [Договора2].[Закчик] = "
может в месть таблицы написать имя запроса, который в начале написан?
Написан запрос где источник вся таблица + выражение
[Forms]![Фильтр Форма]![SFD]![Вк_Заказчик] Or [Forms]![Фильтр Форма]![SFD]![СпЗак]=[Заказчик]

в таблице 57 строк (имена разных заказчиков, включая и Чайку), почему выбирается только Чайка не знаю. ОАО Чайка - первая запись в таблице.

Чайку пишет только в ошибке, в форм как показывало все записи так и показывает

нет, главная форма пустая (кроме подчиненной в ней нет нечего).
в подчиненной форме выбираю по Заказчику.так что бы показывала только поля этого заказчика

ну да, записи. выбрать все записи у которых например Заказчик = Сбербанк.
а потом кликнуть на кнопку "показать все" - и опять все записи формы увидеть

Private Sub СпЗак_AfterUpdate()
Dim strSql As String
strSql = "select * from [Договора2] Where [Договора2].[Заказчик] = "
strSql = strSql & Chr(32) & [Çàêàç÷èê] & Chr(32)
[Forms]![форма Фильтр]![SFD].[Form].RecordSource = strSql
End Sub

Private Sub Вк_Заказчик_AfterUpdate()
If Not Me![Вк_Заказчик] Then
Me![СпЗаказчик].Enabled = True
Else
Me![СпЗаказчик].Enabled = False
Me![СпЗаказчик] = Null
Me.Requery
End If
End Sub

останавливается в том же месте (последняя сторка), пишет что не может найти форму SFD

и ObjectSource, и Name SFD

Subform/Subreport:SFD

Microsoft Access can't find the field 'Forms' referred to in your expression