Merci Thibault,
Mes connaissances en macros ne vont pas très loin.
J'ai deux formulaires T_Menu et T_Meteo.
Je veux ouvrir T_Meteo en cliquant sur un bouton de T_Menu.
J'ai récupéré la macro dans un exemple ayant la même structure.
Voici l'exemple que j'essaye de transposer:
REM ***** BASIC *****
' ouverture des formulaires
' se fait par appel d'une fonction
Sub onClickOuvrirFmTbClients( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbClients")
end sub
Sub onClickOuvrirFmTbRegion( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbRegion")
end sub
Sub onClickOuvrirFmTbDestinataires( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbDestinataires")
end sub
Sub onClickOuvrirFmTbProduits( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbProduits")
end sub
Sub onClickOuvrirFmTbLivraisonProduits( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbLivraisonProduits")
end sub
function OpenForm( formContainer as variant, oConnection as variant,
sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end function
Que faut-il faire?
Cordialement Papy
Thibault Vataire a écrit :
Bonjour,
Quel est l'objectif de votre fonction "OpenForm".
Actuellement elle ne fait rien d'autre que créer une PropertyValue et renseigner ses
différentes propriétés, mais cela ne va rien affiche à l'écran. Il est donc normal que
"rien ne se passe".
Cordialement,
T. Vataire
----- Mail Original -----
De: "Jean Sympa" <jsy...@free.fr>
À: "Prog" <prog@fr.openoffice.org>
Envoyé: Jeudi 16 Juillet 2009 11h42:35 GMT +02:00 Harare / Pretoria
Objet: [prog] Prog Macro liée à un bouton, inactive
Bonjour à toutes et à tous,
Macro liée à un bouton, inactive
Sur un formulaire j'ai placé le Bouton Dictons méteorologique pour ouvrir le formulaire M_Meteo.
J'ai lié la macro à l'événement Bouton de souris enfoncé.
En cliquant sur le bouton, il ne se passe rien.
Où est l'erreur?
Que faire?
Avec mes remerciements
Cordialement
Papy Prog
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
