Значит, опять же, имеем 2 формы связанные один-ко-многим.

Во 2 форме - есть данные по товару, допустим, и его цене. (ленточная форма)
Хотелось в 1 форме иметь данные по товару, у которого самая высокая цена. Можно ли в построителе выражений для поля использовать sqlязык? Или не так. Я могу построить запрос, но как указать текущую запись?
Допустим: select [Vid].[Vid] where ([Vid].[Proc]=max([Vid.Proc])) and ([Vid].[IDRam]=[текущая запись в главной форме]) Хотя это скорее всего неправильно, поскольку максимум будет искаться по всей таблице Вид а не в выборке для текущей записи Рам.
Помогите?

авторзначение нужного компонента...

CurrentRecord даст значение которое находится в окошке навигатора. А если и эта таблица подчиненная, как у меня, то там указывается не физический номер записи, а номер записи для текущей в главной форме. (вот написал, но кто знает, вроде понятно) Фактически, придется добавлять поле со значением ID? Не красиво.

автор[quot автор]Grauhch
имеем 2 формы связанные один-ко-многим.
жёстко... [/quot]

Ну таблицы связаны, а формы подчиненные...=)

Currentrecord точно не проходит:(
Если выводить поле то вроде есть. Надо только Мах правильно описать.
В принципе поле можно сделать и невидимым =-%

Вот так работает:
SELECT Vid.Vid
FROM Vid
WHERE (((Vid.Proc)=(select Max([Vid].[Proc]) from [Vid] where [Vid].[IDRam]=[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Поле15])) AND ((Vid.IDRam)=[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Поле15]));

Фуу. Привыкнешь к одной системе, так сложно в другую врубаться...

Однако в запросе это работает, а в значение поля вставит не получается...

Лучше поле, конечно, но если нельзя, мы и здесь чего нить придумаем

Sub UpdateDominant()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Dom As String
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Vid.Vid FROM Vid WHERE (((Vid.Proc)=(select Max([Vid].[Proc]) " & _
"from [Vid] where [Vid].[IDRam]=[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå15]))" & _
"AND ((Vid.IDRam)=[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå15]))")
Dom = rs!Vid
[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå13] = Dom


End Sub

"Слишком мало параметров, требуется 1" Все ж по книжке один в один!?

Что все таки надо формализовать?
Вообще, длина строки 262 символа. Может эта чухня все грузит? Но запрос сам по себе работает. Или SQL в VBA и SQL в Access не есть одно и тоже?

Поскольку меняю строку запроса на "select * from Vid" никто не ругается. АААА! Я понял! Это такая специальная фича, чтобы всякие идиоты, вроде меня, сидели дома и сосали чупу чупс :-Е

Сейсас попробовал открыть запрос:
Sub UpdateDominant()
Dim rs As DAO.Recordset
Dim Dom As String

Set rs = CurrentDb.OpenRecordset("FindDominant")
Dom = rs!Vid

[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå13] = Dom


End Sub

Так на выделенном поле ругается что опять нет параметров. Тут же открываю запрос руками - точно требует ввести значение поля15. Закрываю модуль - все само открывается. Может здесь над собакой надругаться и закопать к червям напрочь?

Сделал
Sub updateDominanter()
Dim rs As DAO.Recordset
Dim Dom As String
Dim I As String
Dim SQLS As String

I = [Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå15]
SQLS = "SELECT Vid.Vid FROM Vid WHERE (((Vid.Proc)=(select Max([Vid].[Proc]) from [Vid] where [Vid].[IDRam]=" + I + ")) AND ((Vid.IDRam)=" + I + "));"
Set rs = CurrentDb.OpenRecordset(SQLS)

Dom = rs!Vid
[Forms]![Razrez Form]![Litoral Form].[Form]![Ramka Form].[Form]![Ïîëå13] = Dom

И все пошло. Почему такой гимор? Почему открывание запроса в модуле ведет к потере данных формы? Попробовал на всякий случай - пошло. Ничего не понимаю:(