Access - Botón de Opción

   
Vista:

Botón de Opción

Publicado por cenemeco (2 intervenciones) el 14/04/2009 21:12:47
Buenas tardes a todos los de este foro. En un formulario de Access tengo un botón de opción que al activarlo me abre varios campos, textos o etiquetas, (el código reducido es el que abajo muestro), funciona bien, pero el problema es el siguiente: Al abrir el formulario el botón esta desactivado, que es lo que yo quiero, sin embargo los campos o etiquetas que no deberían mostrase hasta que se active el botón aparecen ya activados, o sea visibles. Para que no aparezcan he de activarlo y desactivarlo, pero lo que quiero es que cuando abra el formulario estos campos o textos no se muestren hasta que no active el botón. Gracias de antemano por vuestra desinteresada ayuda.

Private Sub Opción102_BeforeUpdate(Cancel As Integer)
If Me.Opción102 = True Then
Me.Texto94.Visible = True
Else
Me.Texto94.Visible = False
End If
If Me.Opción102 = True Then
Me.Pasaporte.Visible = True
Else
Me.Pasaporte.Visible = False
End If
If Me.Opción102 = True Then
Me.Etiqueta73.Visible = True
Else
Me.Etiqueta73.Visible = False
End If
If Me.Opción102 = True Then
Me.Etiqueta74.Visible = True
Else
Me.Etiqueta74.Visible = False
End If
End Sub
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

RE:Botón de Opción

Publicado por Jefferson (381 intervenciones) el 15/04/2009 00:04:23
En propiedades de esos campos o textos en Visible = No
y aparte simplifica el codigo, puesto que no hacen falta tantos if

Private Sub Opción102_BeforeUpdate(Cancel As Integer)
If Me.Opción102 = True Then
Texto94.Visible = True
Pasaporte.Visible = True
Etiqueta73.Visible = True
Etiqueta74.Visible = True
Else
Texto94.Visible = False
Pasaporte.Visible = False
Etiqueta73.Visible = False
Etiqueta74.Visible = False
End If
End Sub

desde Venezuela
Jefferson
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