Hola,
por supuesto usted no puede fijar un campo a un valor si contiene ya una fórmula para el cálculo. En este caso necesita ser un campo vacío y desatado. Y como esto no es un campo ahorrado usted puede utilizar el código arriba en el suceso actual de la forma que ocurre en cualquier cambio de registro en la forma principal.
También, este código no trabajará si usted no tiene por lo menos tres expedientes en su subform.
1. quitar
= [subform del qryRandomSalesPersonNext]. ¡Forma! EmpID
del txtRandom
2. copiar este código en su forma principal:
Form_Current secundario privado ()
Rs déviles como DAO.Recordset
Fijar los rs = yo. [subform del qryRandomSalesPersonNext]. Form.RecordsetClone
rs.MoveFirst
Si Me.txt al azar = Me.FIRSTOwner entonces
rs.MoveNext
Si Me.txt al azar = Me.SECONDOwner entonces
rs.MoveNext
Terminar si
Terminar si
Si no (rs.EOF o rs.BOF) entonces
Me.txt al azar = rs. Campos (“EmpID”)
Terminar si
Fijar los rs = nada
Terminar el submarino
entonces debe trabajar.
Aclamaciones,
Cristiano