No funciona
Publicado por Federico (7 intervenciones) el 26/12/2008 13:34:48
Hola a todos, en el evento Click de un boton llamado Boton1 tengo el sig. codigo
If Me.Text = "Pacientes" Or Me.Text ="Pacientes (ALTAS)" Or Me.Text = "Pacientes (MODIFICACIONES)" then
Msgbox("Para ingresar al menu debe ser consultado")
Else
If Me.text="Pacientes (CONSULTA)" then
Boton2.visible = True
Boton3.visible = True
End If
End if
Hasta aca esta todo bien si consulto un paciente puedo ingresar al menu.
Ahora en el Boton2 le agregue el sig. codigo
If Me.Label1.text="Activo" then
Msgbox("MENSAJE1")
End If
If Me.Label1.text="Inactivo" then
Msgbox("MENSAJE2")
End If
If Me.Label1.text="Bloqueado" then
Msgbox("MENSAJE3")
End If
Una vez consultado el paciente este Label1 puede estar " " (Vacio) o con el texto "Activo" o "Inactivo" o "Bloqueado" pero al realizar el click en el Boton2 no pasa nada, alguien me puede pasar el codigo o modificar este mismo.
Muchas gracias
If Me.Text = "Pacientes" Or Me.Text ="Pacientes (ALTAS)" Or Me.Text = "Pacientes (MODIFICACIONES)" then
Msgbox("Para ingresar al menu debe ser consultado")
Else
If Me.text="Pacientes (CONSULTA)" then
Boton2.visible = True
Boton3.visible = True
End If
End if
Hasta aca esta todo bien si consulto un paciente puedo ingresar al menu.
Ahora en el Boton2 le agregue el sig. codigo
If Me.Label1.text="Activo" then
Msgbox("MENSAJE1")
End If
If Me.Label1.text="Inactivo" then
Msgbox("MENSAJE2")
End If
If Me.Label1.text="Bloqueado" then
Msgbox("MENSAJE3")
End If
Una vez consultado el paciente este Label1 puede estar " " (Vacio) o con el texto "Activo" o "Inactivo" o "Bloqueado" pero al realizar el click en el Boton2 no pasa nada, alguien me puede pasar el codigo o modificar este mismo.
Muchas gracias
Valora esta pregunta


0