в обработчике ошибок пишет
SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And (( тСвязкаЗначРаздел.кодРаздел)=21 )) ORDER BY тЗнач.значТ;
по крайней мере на первый взгляд..... (вроде всё нормально.....)
скопировать и вставить в "источник данных" не удаётся, т.к. из ВБА у меня не копируется текст....(вместо русского пишет иероглифы...)
а ошибку опять пишет на строке фВводЗначений_все.Form.RecordSource=sss

за крокозябл- большая спа
вставил, запрос выполнился как надо.....
после изменения раздела опять вылетает ошибка в
[фВводЗначений_все].Form.RecordSource = sss

сделал так.... всё по английски.... те же проблемы....
[vvod_znacheni].Form.RecordSource
ща попробую ми....
пишу
ме.RecordSource = sss
после смены раздела пишет
Выражение после обновления, введёное в поле свойства события , вызывает ошибку: variable not defined


* Результатом выражения не явл. имя макроса, имя функции пользователя или строка [Процедура обработки событий].
* Ошибка при вычислении функции, события или макроса.

сил моих больше нет......
ща материться начну........
тока вот на кого......(не на себя же........)

-(((((((
Пишу так:
Private Sub раздел_AfterUpdate()

Dim sss As String
Dim fld As Variant
fld = Forms!vvod_znacheni!раздел

If Not IsNull(fld) Then

sss = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM [тЗнач] INNER JOIN [тСвязкаЗначРаздел] ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=" & Forms![vvod_znacheni]!раздел & ")) ORDER BY тЗнач.значТ;"
Else:
sss = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM [тЗнач] INNER JOIN [тСвязкаЗначРаздел] ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) ORDER BY тЗнач.значТ;"
End If
Debug.Print sss

[vvod_znacheni].Form.RecordSource = sss


Forms![vvod_znacheni].SetFocus
Forms![vvod_znacheni].Requery

Forms![vvod_znacheni]![фпДеревоВБок1 подчиненная форма].SetFocus
Forms![vvod_znacheni]![фпДеревоВБок1 подчиненная форма].Form.Controls("зависит_от").SetFocus
Forms![vvod_znacheni]![фпДеревоВБок1 подчиненная форма].Form.Controls("зависит_от").Requery
Пишет ошибку- не могу нашти поле [l] и строка останавливается на
[vvod_znacheni].Form.RecordSource = sss

Если вставляю значение sss в источник строк и нажимаю конструктор- всё работает.......
есть одно предположение.. когда я делал обновление подформы с помощью тогоже контролла(см. жирный текст)- код заработал только при ("зависит_от").

...................... у меня нет слов.......

нет......
ввожу значение в контрол он пишет не могу найти...
затем удаляю это значение и перехожу на др контрол...- он выдаёт то же самое сообщение......

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

неужели ВБ....... победил разум человека..................!!??!!

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

Private Sub proizv_AfterUpdate()
If Not IsNull([Forms]![tFiltrastia]![proizv]) Then
[tFiltrastia]![tPraseListVvoda].Form.Recordsourse = "SELECT тПрайслистВвода.*, тПрайслистВвода.производитель FROM [тПрайслистВвода] WHERE (((тПрайслистВвода.производитель)=" & [Forms]![tFiltrastia]![proizv] & " ));"
Else
[tFiltrastia]![tPraseListVvoda].Form.Recordsourse = "SELECT тПрайслистВвода.*, тПрайслистВвода.производитель FROM [тПрайслистВвода];"
End If
Forms![tFiltrastia].SetFocus
Forms![tFiltrastia]![tPriseListVvoda].SetFocus
Forms![tFiltrastia]![tPriseListVvoda].Requery
End Sub

Гуру ,морнстры, зубры аксессовики неужели теперь поможет тока мыло и верёвка?????

Что такое и где живет:
proizv - имя поля со списком в табл tFiltrastia
tFiltrastia -таблица с контролом proizv и подчин формой tPraseListVvoda
tPraseListVvoda - подчин форма формы tFiltrastia не связана с главной
тПрайслистВвода - таблица , на основе которой строится пф tPraseListVvoda

Recordsourse .....хм... это опечатка в проге......
исправил.... но суть не изменилась...........................