Народ в ВБА можно ли писать русские названия форм и как это правильно сделать???
хочу- если поле со списком не нулл- фильтровать(в запросе поставить условие отбора) иначе - оставить запрос как есть
и.. нужны ли 2 последние строки с setfocus и requery
подскажите плз...

Private Sub раздел _AfterUpdate()

Dim fld As Variant
fld = Forms!фВводЗначений_все!раздел

If Not IsNull(fld) Then

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

Else:
фВводЗначений_все.Form.RecordSource = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) ORDER BY тЗнач.значТ;"
End If


Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery

End Sub

со скобочками
[фВводЗначений_все].Form.RecordSource
так же пишет ошибку в этой строке.....-(((
в базе уже много завязано...... русский придётся оставить.....-(

Выкинуть .Form не помогло тоже............

Без скобок пишет- Variable not defined
со скобками пишет- не удаётся найти поле 'l'

не совсем хорошо програмирую
я
msgbox [фВводЗначений_все].RecordSource
вставил перед
[фВводЗначений_все].Form.RecordSource = "SELECT .....
то ошибка останавливается на msgbox [фВводЗначений_все].RecordSource

форма открыта.........
А я что - я болею :) Меня даже сама мысль страшит - искать отличия в четырех абзацах нерусского похожего текста! :) - это вы про что???

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

Хелп, хелп, хелп!!!!!!
правда у меня была похожая беда.........я ставил на поле
AfterUpdate()
Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery
, хотел обновлять таблицу при переходе на другое значение в другой таблице.....
обновления не было.......
таблица стала обновляться только при нажатии кнопки на этой же таблице или при нажатии кнопки вперёд или назад с тем же кодом на другой таблице..........
Может у меня аксесс глючный...(не дистрибутив) или всё таки руки...???

в обработчике ошибок пишет
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 .....хм... это опечатка в проге......
исправил.... но суть не изменилась...........................