Función habilita botón en módulo
Publicado por Gonzalo (2 intervenciones) el 01/09/2011 17:56:43
Tengo un formulario donde se llena una infinidad de datos, lo que necesito hacer es reutilizar una función que dependiendo si existe o no un archivo asociado a un registro me habilite o deshabilite un botón, esto independiente del formulario de donde se le llame
Hasta ahora lo que tenia era un solo formulario que necesitaba de esta función.
En el módulo tengo lo siguiente:
function BtnTss()
if Existearchivo = true
Forms!CtlSitios!TSS.Enabled = True
else
Forms!CtlSitios!TSS.Enabled = false
end if
end function
-------------------------------------------------------------
Lo que necesito es que independiente del formulario me funcione la función, de alguna forma sé que puedo solucionarlo con lo siguiente en cada formulario que necesite guardar su nombre y llamarlo en la funcion( variable Pública)
FormActual = "Forms!" & Me.FormName
por lo tanto mi módulo debería quedar algo así, pero no me funciona, intenté con docmd.setproperty FormActual&"!TSS" , 0, 0
function BtnTss()
if Existearchivo = true
Forms!&FormActual&!TSS.Enabled = True
else
Forms!&FormActual&!TSS.Enabled = false
end if
end function
Alguna ayuda????
Hasta ahora lo que tenia era un solo formulario que necesitaba de esta función.
En el módulo tengo lo siguiente:
function BtnTss()
if Existearchivo = true
Forms!CtlSitios!TSS.Enabled = True
else
Forms!CtlSitios!TSS.Enabled = false
end if
end function
-------------------------------------------------------------
Lo que necesito es que independiente del formulario me funcione la función, de alguna forma sé que puedo solucionarlo con lo siguiente en cada formulario que necesite guardar su nombre y llamarlo en la funcion( variable Pública)
FormActual = "Forms!" & Me.FormName
por lo tanto mi módulo debería quedar algo así, pero no me funciona, intenté con docmd.setproperty FormActual&"!TSS" , 0, 0
function BtnTss()
if Existearchivo = true
Forms!&FormActual&!TSS.Enabled = True
else
Forms!&FormActual&!TSS.Enabled = false
end if
end function
Alguna ayuda????
Valora esta pregunta


0