На рисунке видно всё.
Нужно, чтобы в нижнюю строку вписывалось максимальное значение.
Как пользоваться Мах правильно? Я пишу:
=Max ([text1] ; и так далее до [text111])
Но он, сволочь, не понимает меня :)

Может МАХА использовать?

Нет, я в форме их сам сделал.

То есть вставить процедуру, что Вы написали к каждый текстбокс в AfterUpdate, а что делать потом?
В строке MAX IN?

у МЕНЯ НЕ ПОЛУЧАЕТСЯ....
Что я не так сделал?

В каждый текствох в афтерапдейт я написал

=MyMax()

После этого в строку IN я написал на Бейсике

Private Sub MAX_IN_AfterUpdate()
Private Function MyMax()
Dim n As Byte, tmp As Double

With Me
For n = 1 To 11
if tmp < .("text" & n) Then
tmp = .("text" & n)
End If
Next
End With

Me.MaxText = tmp

End Function

Ничего не появляется.

Старики, обьясните тупому на пальцах Ж)

В строке IN в афтерапдейт нужно написать.....
Дословно плиз. :)
Вот что у меня(см рис.)
Как только я стераю Private Sub MAX_IN_AfterUpdate() ,
то сразу меняется что-то, и и афтерапдейт ничего в строке не содержит!

Не убивай и не кидай помидорами....не получается....

В строку MaxTextIN я захожу в афтерапдейт, нажимаю на кнопку, стераю все нахрен и пишу

Private Function MyMax(dum As String)
Dim n As Byte, tmp As Double

With Me
For n = 1 To 11
If tmp < .Controls("text" & dum & n) Then
tmp = .Controls("text" & dum & n)
End If
Next
End With

Me("MaxText" & dum) = tmp

End Function


в каждой текстбоксе написано в афтерапдейте =MyMax("IN")

Кстати, модуль почему-то не сохраняется....

Rivkin Dmitry
Так не надо это!
Функцию помещаешь в модуль свободно. Она вызывается из контролов

Это как? Я нажимаю MaxTextIN, захожу в афтерапдейт (Code Builder), выскакивает Вижуал Бейсик с надписью

Private Sub MaxTextIN_AfterUpdate()

End Sub

Я стераю Private Sub MaxTextIN_AfterUpdate() а потом вставляю

Private Function MyMax(dum As String)
Dim n As Byte, tmp As Double

With Me
For n = 1 To 11
If tmp < .Controls("text" & dum & n) Then
tmp = .Controls("text" & dum & n)
End If
Next
End With

Me("MaxText" & dum) = tmp

End Function


Что неправильно?

Не получается, старик.
Попробуй ты сделать.
Файл скачай и пришли сюда, ок.
Спасибо, что такой терпеливый :)

Вот зип файл

paparomeЧто не так?


paparome
spivak
Я не такой спец, чтоб сразу все понять.
Я Диме файл послал, надеюсь он сделает.
Весь день сделать не могу эту фигню

Я тебе функцию написал?
Вот и пользуй ее :) - Как в начале хотел

Как там у тебя було:
=MyMax(txt1; txt2; ...; txtN)


Я все-таки подожду, Дима прислать файл должен.

paparome spivak paparomeКак хотишь :)
Я тебе почти "универсал" слобал - а тебе не нравиться :(

Ладно, тогда будь по-терпеливее.

Расскажи что куда всавлять нужно.

Сделать в файле можешь? Думаю разберусь только на примере реальном.
Скачай файл, который был мною послан для Димы.
Блин:
- Вставляешь мою функцию в любой "свободный" модуль.
- Затем смотришь свой первый пост: авторЯ пишу:
=Max ([text1] ; и так далее до [text111])- И делаешь как и раньше хотел, только вместо Max , пишешь MyMax

В чем трудность?

Вставляешь мою функцию в любой "свободный" модуль - что это такое?