Gracias Matías por tu respuesta:
Entre líneas....
Matías Salomón escribió:
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é
Lamentablemente, OpenOffice me reporta que el objeto no tiene .Focus
como método o Atributo.
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.
En que ambiente utilizas el ctrl + espacio ?, yo uso Win2000 con OOo.org
2.4 y esa función no me muestra nada.
Saludos!
--
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]
