si mi memoria no me falla estás muy cerca
Dim. ....(omito la declaración de variables).....
oModelo = oEv.Source.Model
sCodCapitulo = oModelo.Text
If sCodCapitulo = "" Then
msgbox "Digite un valor", 0 ,"Error en Entrada de Datos"
oModelo.Focus 'Línea que agergué
Exit Sub
End if
end sub
Fijate que si ponés el foco en el objeto, antes de hacer el msgbox, no lo vas a
notar, porque le ponés el foco al objeto y después te lo roba el msgbox, y no
se si se va a "acordar" que antes el foco lo tenía el text. Como sea, fijate
ahí, y si eso no te anda volvé a escribir.
Consejo, si escribís el nombre del objeto y apretás ctrl + espacio, te aparece
una lista de métodos y propiedades, y en algunas IDEs viene la descripción de
lo que hace cada una.
Saludos!
----- Mensaje original ----
De: Manuel Andres Ramirez <[EMAIL PROTECTED]>
Para: [email protected]
Enviado: martes 9 de septiembre de 2008, 16:21:06
Asunto: [dev] Consulta Basic - Dirigir el foco a una campo de texto
Amigos, de la lista.
Antes que nada agradecer a Ariel y Mauricio por su invaluable aporte a
los que como yo, aunque conocemos algo de programación, no tenemos una
compresión completa de la programación en nuestro querido OpenOffice.org
Estoy realizando un pequeño aplicativo en Base, pero tengo unas dudas
que quisiera me pudieran orientar.
Quiero validar que el usuario digite información en un campo de texto
para ello utilizo la siguiente macro que se lanza al modificarse o al
perder el foco el campo de texto:
sub BuscaCapitulo(oEv)
Dim. ....(omito la declaración de variables).....
oModelo = oEv.Source.Model
sCodCapitulo = oModelo.Text
If sCodCapitulo = "" Then
msgbox "Digite un valor", 0 ,"Error en Entrada de Datos"
Exit Sub
End if
end sub
Pero quiero asegurarme que el foco vuelva nuevamente al campo de texto
que estoy validando. algo como un "setfocus" o un "objeto.focus.enable =
true", pero mis conocimientos de la api de OOo no es muy profunda.
Mil Gracias por su orientación.
--
Manuel Andrés Ramírez P.
Administrador Informático
GNU/Linux Registered User:412887
Visite:www.obtengalinux.org
"El placer más noble es el júbilo de comprender"
(Leonardo Da Vinci)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Yahoo! Cocina
Recetas prácticas y comida saludable
http://ar.mujer.yahoo.com/cocina/
