Error al ejecutar un formulario
Estoy ejecutando un formulario (x) con el formulario(y)luego este se cierrapara ejecutar el formulario(z). El formulario(z) debe controlar manipular los objetos del formulario(x), el problema esta en eso... Me sale un error que no existe el objeto, pero cuando ejecuto vía comando esto me sale bien, manipulando y controlando objetos más no el problema que te plantee al principio...
Te agradezco anticipademente por tu pronta respuesta, gracias.
Te agradezco anticipademente por tu pronta respuesta, gracias.
1 Respuesta
Respuesta de miron
1
Te remito un código que te hice para manipular formulario no relacionados desde cualquier formulario, únicamente necesitas saber el nombre.
Function FormDeactivateForm(cNameForm)
LOCAL loForm as string
LOCAL valret as variant
FOR EACH loForm IN application.Forms
IF TYPE("loForm") == "O" AND loForm.Baseclass == "Form" AND Upper(loForm.name) == Upper(cNameForm)
*-- Aqui puedes tratar a loform como si estuvieras en el form
*-- por ejemplo
ValRet=loForm.txtfecha.Value
Exit
*-- También ejecutar acciones
LoForm. SumaCampos()
Endif
Endif
Endfor
RETURN Valret
EndFunc
Si es todo.
Function FormDeactivateForm(cNameForm)
LOCAL loForm as string
LOCAL valret as variant
FOR EACH loForm IN application.Forms
IF TYPE("loForm") == "O" AND loForm.Baseclass == "Form" AND Upper(loForm.name) == Upper(cNameForm)
*-- Aqui puedes tratar a loform como si estuvieras en el form
*-- por ejemplo
ValRet=loForm.txtfecha.Value
Exit
*-- También ejecutar acciones
LoForm. SumaCampos()
Endif
Endif
Endfor
RETURN Valret
EndFunc
Si es todo.
