Hi,
конечно вы не можете установить поле к значению если они уже содержат формулу для вычисления. В этот случай для этого нужно быть пустым и unbound полем. И по мере того как это не будет сохраненное поле вы можете использовать Кодего выше в рядовом событии формы происходит на любом рекордном изменении в главным образом форме.
Также, это Кодий не будет работать если вы не имеете хотя бы 3 показателя в вашем subform.
1. извлекайте
= [subform qryRandomSalesPersonNext]. Форма! EmpID
от txtRandom
2. скопируйте это Кодего в вашу главным образом форму:
Приватное Sub Form_Current ()
Тусклые rs как DAO.Recordset
Установите rs = я. [subform qryRandomSalesPersonNext]. Form.RecordsetClone
rs.MoveFirst
Если Me.txt случайно = Me.FIRSTOwner после этого
rs.MoveNext
Если Me.txt случайно = Me.SECONDOwner после этого
rs.MoveNext
Закончитесь если
Закончитесь если
Если не (rs.EOF или rs.BOF) после этого
Me.txt случайно = rs. Поля («EmpID»)
Закончитесь если
Установите rs = ничего
Закончите подводную лодку
после этого она должна работать.
Приветственные восклицания,
Кристиан