Tres acciones con un solo If

Dudas sobre Tablas, Consultas, Formularios, Informes...
Avatar de Usuario
bryger
Nivel 4
Mensajes: 106
Registrado: Mié Jul 06, 2016 12:24 pm

Tres acciones con un solo If

Mensajepor bryger » Dom Sep 16, 2018 6:38 pm

Buenas, tengo un problemita el cual no logro desifrar, tengo tres comandos, y un cuadro combinado, el cuadro combinado tiene tres opciones, y quiero que cuando se selecciones una de estas opciones me oculte dos comando y solo deje visible uno, me he pasado horas y nada esto es lo que he intentado

Código: Seleccionar todo

Private Sub elejircer_Change()
 If Me.elejircer = "CANCUN OJO DE AGUA" Then
 Me.jungle.Visible = False
 Me.Presidente.Visible = False
 Else
  Me.ojo.Visible = True
 End If
 If Me.elejircer = "CANCUN JUNGLE" Then
 Me.ojo.Visible = False
 Me.Presidente.Visible = False
 Else
 Me.jungle.Visible = True
 End If
 If Me.elejircer = "Presidente" Then
 Me.ojo.Visible = False
 Me.jungle.Visible = False
 Else
 Me.Presidente.Visible = True
 End If
 
   Me.Requery

End Sub


si podrian ayudarme les agradezco

Avatar de Usuario
Fayad
Colaborador
Mensajes: 245
Registrado: Mié Oct 28, 2015 9:43 pm

Re: Tres acciones con un solo If

Mensajepor Fayad » Dom Sep 16, 2018 6:51 pm

Hola!

Sobra el "Else"

Código: Seleccionar todo

Private Sub elejircer_Change()

 If Me.elejircer = "CANCUN OJO DE AGUA" Then
 Me.jungle.Visible = False
 Me.Presidente.Visible = False
  Me.ojo.Visible = True
 End If

 If Me.elejircer = "CANCUN JUNGLE" Then
 Me.ojo.Visible = False
 Me.Presidente.Visible = False
 Me.jungle.Visible = True
 End If

 If Me.elejircer = "Presidente" Then
 Me.ojo.Visible = False
 Me.jungle.Visible = False
 Me.Presidente.Visible = True
 End If

End Sub


Creo que así también funcionaría :

Código: Seleccionar todo

Private Sub elejircer_Change()

 If Me.elejircer = "CANCUN OJO DE AGUA" Then
 Me.jungle.Visible = False
 Me.Presidente.Visible = False
  Me.ojo.Visible = True

 ElseIf Me.elejircer = "CANCUN JUNGLE" Then
 Me.ojo.Visible = False
 Me.Presidente.Visible = False
 Me.jungle.Visible = True

 ElseIf Me.elejircer = "Presidente" Then
 Me.ojo.Visible = False
 Me.jungle.Visible = False
 Me.Presidente.Visible = True
 
 End If
 
End Sub
Salu2.

Avatar de Usuario
bryger
Nivel 4
Mensajes: 106
Registrado: Mié Jul 06, 2016 12:24 pm

Re: Tres acciones con un solo If

Mensajepor bryger » Dom Sep 16, 2018 7:32 pm

huy Muuuuuuuuuuuuchas Gracias
jajajajajaj

no lo puedo creeer solo sobraban los ELSE jajaja
Gracias eres un Maestro

Jorge Solorzano Dand
Nivel 1
Mensajes: 2
Registrado: Dom Sep 16, 2018 7:30 pm

Re: Tres acciones con un solo If

Mensajepor Jorge Solorzano Dand » Lun Sep 17, 2018 6:38 pm

Hola, No te des mala vida trabaja con:
Select Case testexpression
Case expressionlist1
statements
Case expressionlist1
statements
End Select


Volver a “Objetos Access”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados