Bonjour,
Voir le message précédent sur cette liste avec un code testé récemment :
http://fr.openoffice.org/servlets/ReadMsg?list=prog&msgId=2220711
[EMAIL PROTECTED] a écrit :
Bonjour encherchant sur internet comment faire pour qu'un bouton m'ouvre un
formulaire j'ai trouvé cela :
Sub ouverture_formulaire
oDesktop = createUnoService ("com.sun.star.frame.Desktop")
Dim loadArgs(0) as new com.sun.star.beans.PropertyValue
loadArgs(0).Name = "showen"
loadArgs(0).Value = true
oDocument = oDesktop.LoadComponentFromURL(convertToURL("T:\gestion
maintenance RN\Piece.odb"), "_blank", 0, loadArgs())
oForms = oDocument.FormDocuments
oForm = oForms.getByName("Form gestion piece technique")
rem oConnection =oDocument.Datasource.getConnection("","")
Dim formArgs(0) as new com.sun.star.beans.PropertyValue
rem formArgs(0).Name = "ActiveConnection"
rem formArgs(0).Value = oConnection
oFormDoc = oForms.LoadComponentFromURL("Form gestion piece technique",
"_blank", 0, formArgs())
oDocument.dispose
End Sub
Donc j'utilise openoffice 2.0, j'ai une base de donnée "Piece.odb" qui
contient un formulaire "Form accueil" avec des boutons pour lancer d'autres
formulaire par exemple "Form gestion piece technique". J'ai donc écrit le
code si dessus le formulaire se lance bien puis disparait de l'écran.
Quelqu'un peut il éclairer mes lanternes ???
me dire aussi ce que fait oDocument.dispose ?
Par avance merci.
BOUCHET Frédéric
tel : 04-77-43-31-50
DDE42/SER/CIGT
http://www.hyrondelle.net
Etat des routes : 04-77-37-00-37
E-Mail : [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Alain Nowak - StarXpert
6, rue Eugène Varlin - 75010 Paris
Tel : 01 53 35 18 37
http://www.starxpert.fr
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
