
Comprobar si existe pantalla
Publicado por Rafael (9 intervenciones) el 28/06/2001 14:56:22
Hola a tod@s:
Estoy haciendo una aplicación que dependiendo de si se ha activado una
pantalla u otra hace una cosa u otra. El código viene a ser algo así:
Case "Existe Pantalla"
On Error GoTo no_existe
AppActivate instrucciones.Recordset.Fields("parametro")
If instrucciones.Recordset.Fields("parametro1") = "avanzar"
Then
-
-
End If
no_existe:
AppActivate instrucciones.Recordset.Fields("parametro2")
Pues bien, en el caso de que la pantalla existe, va todo bien, pero si no
existe, pasa completamente y sigue en las instrucciones de la panatlla
existe.
Por de pronto, la instrucción On Error GoTo, no ha funcionado, y después, en
la ayuda de Microsoft, en la instrucción AppActivate, te indica que si no
encuentra la pantalla del parámetro, 'arbitrariamente' activa cualquier
otra¿?.
¿Alguien sabe cómo forzar a que si de verdad no está activa la pantalla vaya
a las instrucciones que tengo para ese caso y no a las otras?
Nota.- Para probar he puesto dos etiquetas debajo del On Error.... y siempre
va a la primera etiqueta que encuentra.
Perdón por extenderme tanto.
Gracias desde ya.
Rafael
Estoy haciendo una aplicación que dependiendo de si se ha activado una
pantalla u otra hace una cosa u otra. El código viene a ser algo así:
Case "Existe Pantalla"
On Error GoTo no_existe
AppActivate instrucciones.Recordset.Fields("parametro")
If instrucciones.Recordset.Fields("parametro1") = "avanzar"
Then
-
-
End If
no_existe:
AppActivate instrucciones.Recordset.Fields("parametro2")
Pues bien, en el caso de que la pantalla existe, va todo bien, pero si no
existe, pasa completamente y sigue en las instrucciones de la panatlla
existe.
Por de pronto, la instrucción On Error GoTo, no ha funcionado, y después, en
la ayuda de Microsoft, en la instrucción AppActivate, te indica que si no
encuentra la pantalla del parámetro, 'arbitrariamente' activa cualquier
otra¿?.
¿Alguien sabe cómo forzar a que si de verdad no está activa la pantalla vaya
a las instrucciones que tengo para ese caso y no a las otras?
Nota.- Para probar he puesto dos etiquetas debajo del On Error.... y siempre
va a la primera etiqueta que encuentra.
Perdón por extenderme tanto.
Gracias desde ya.
Rafael
Valora esta pregunta


0