Buenas, estoy realizando una aplicación donde tengo un formulario con
un control ficha con varias paginas y dentro de una de ellas tengo un
conjunto de campos de texto y cuadros combinados con unas opciones
fijas ( del estilo aceptar, rechazar ...) y deseo que ocultar estos
cuadros combinados cuando los cuadros de textos esten vacios.
Habia pensado algo como esto:
Private Sub TabCtl0_Change()
Dim Obj(2) As Object
For i = 1 To i = 10
Set Obj(1) = Me.Controls("Campotext" & i)
Set Obj(2) = Me.Controls("CuadroComb" & i)
Call invisiblecampo(Obj(1), Obj(2))
Next i
End Sub
Private Sub invisiblecampo(T1 As Object, T2 As Object)
If IsNull(T1.Value) = True Then
T2.Visible = False
Else
T2.Visible = True
End If
End Sub
Pero cuando llega por primera vez a T2.visible=False ,por que hay algo
en el campo de texto, me da un error.
Muchas gracias de antemano a todos.
Leer las respuestas