в общем есть табличная форма вида: поле1, поле2, поле3, ВычПоле (вычисляется функцией во внешнем модуле)

И надо ее напечатать. Я делаю отчет, но ВычПоле для всех записей в отчете получается одно и то же (т.е. вычисление только для первой записи) и дальше оно повторяется. По идее выход - в создании поля в таблице на которой основана форма и записывать туда вычисление для каждой записи, тогда и отчет без проблем. Подскажите плиз как это организовать.

Какая разница, в форме все работает! А работает потому что это вычполе считается для каждой записи табличной формы

Ну вот тебе функция:

Public Function otr_ch()
Dim pos, hours, minutes As Integer, mystr As String
hours = 0
minutes = 0
For i = 1 To 31
mystr = Forms!форма1.TABL1.Form(CStr(i))
pos = InStr(mystr, ".")
If pos <> 0 Then
hours = hours + Val(Left(mystr, pos - 1))
minutes = minutes + Val(Mid(mystr, pos + 1))
End If
Next i
otr_ch = hours + minutes \ 60
End Function

В общем есть поля от 1 до 31 в них часы и минуты сколько отработал чел в этот день. Функция считает сколько часов отработал сотрудник за месяц. Но это неважно. В форме как-то идет привязка к записи.

А для отчета у меня та же функция (форма понятно остается открытой)
и считает только первую запись.

openrecordset... movenext... #?@дец. А попроще нельзя как я предложил?

paparome
А кто вам сказал, что указатель в форме прыгает вместе с вашей функцией?
Стоит форма на одной записи - вот по ней и считает


НО КАК-ТО ЖЕ ОНО СЧИТАЕТ ПРАВИЛЬНО ДЛЯ ВСЕХ ЗАПИСЕЙ

А как из табла? Для контрола вычполя формы ставлю =myfunc(). Если я правильно понял приведенный код будет вместо моего. Ну какой смысл делать мувнекст, если оно и так считает нормально?

Set rst = CurrentDb.OpenRecordset("...")

на этой строке выскакивает type mismatch. Может быть потому что пишу во внешнем модуле?

У меня уже крыша едет
У меня записи добавляются запросом т.е. поле1, поле2,
otr_ch(поле1 например), .... поле10, поле11

т.е. запись еще не добавлена select не катит

КОРОЧЕ:
куда ставить =otr_ch()