Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Pasar subformulario a funcion

Access - Pasar subformulario a funcion

Volver
Nuevo Tema
<<>>
 
Vista:

Pasar subformulario a funcion

Publicado por Federico (1 intervención) el 03/05/2018 11:05:13
Hola muy buenas.

Me estoy volviendo un poco loco, buscando la solución y no doy con ellas.
Me gustaría pasar un subformulario a una función, ya que dependiendo del nombre del subformulario que le paso, desactiva unos campos, los cuales se llaman igual en todos .

Hago algo así:

1
2
3
4
5
6
desactivar_campos (FRM_SUBFORMULARIO1)
 
Private Sub desactivar_campos_pestanas(subformulario As SubForm)
    subformulario.Form.Campo1.Enabled = False
    subformulario.Form.Campo2.Enabled = True
End Sub

donde FRM_SUBFORMULARIO1, FRM_SUBFORMULARIO2, FRM_SUBFORMULARIO3 los paso al procedimiento, pero me da error 13, no coinciden los tipos.

¿Alguien sabe como lo puedo hacer ?

Muchas gracias !!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 5
Ha aumentado su posición en 8 puestos en Access (en relación al último mes)
Gráfica de Access

Pasar subformulario a funcion

Publicado por marcelo (3 intervenciones) el 10/05/2018 00:38:51
Espero te sirva.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub DesactivarCampos(vieneDe as string)
 
select case vieneDe
Case "Formulario1":
     subformulario1.Form.Campo1.Enabled = False
Case "Formulario2":
     subformulario1.Form.Campo2.Enabled = False
end select
 
end sub
 
Private Sub cmdXXXX_Click()
   call DesactivaCampos("Formulario1")
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar