Bonjour,
Le 02/12/06, Apache 46 <[EMAIL PROTECTED]> a écrit :
Christine je te remercie pour ta collaboration mais je suis profane en
la matière, je bidouille un peu et en plus je n'ai aucune formation
informatique.
Je te transmet l'erreur à la ligne user, password.
Pour information mon rapport se nomme CAISSE
Si tu peux voir de quoi il en retour en espérant ne pas trop t'embêter.
Je vais garder précieusement les information que tu m'a envoyées.
Sub OuvrirRapport()
dim optFichier(2) as new com.sun.star.beans.PropertyValue
monDoc = thisComponent
lesReports = monDoc.Parent.ReportDocuments
monReport = lesReports.getByName("NomRapport")
optFichier(0).Name = "ActiveConnection"
optFichier(0).Value = monDoc.Parent.DataSource.getConnection("","")
La section ci-dessous ne sert à rien (elle était placée en commentaires, cfr
le mail précédent ou une apostrophe était placée devant.
user, password A cette ligne il me répond :" Syntax error BASIC symbole
inattendu :,.
Tu peux donc enlever la ligne "user,password."
Je pense que ça devrait aller mieux après ça ;-)
Bon recherche
Yves
optFichier(1).Name = "OpenMode"
optFichier(1).Value = "open"
lesReports.loadComponentFromURL(monReport.Name, "", 0, optFichier())
-----------------
Avec tous mes remerciement amicalement HR
End Sub
Christine Brou a écrit :
> ' Ouvrir un formulaire à partir d'un autre
>
> Sub OuvrirFormulaire()
> dim optFichier(2) as new com.sun.star.beans.PropertyValue
>
> monDoc = thisComponent
> lesForm = monDoc.Parent.FormDocuments
> monForm = lesForm.getByName("NomFormulaire")
>
> optFichier(0).Name = "ActiveConnection"
> optFichier(0).Value =
> monDoc.Parent.DataSource.getConnection("","") '
> user, password
> optFichier(1).Name = "OpenMode"
> optFichier(1).Value = "open"
>
> lesForm.loadComponentFromURL(monForm.Name, "", 0, optFichier())
>
> End Sub
>
>
> 'Ouvrir un rapport à partir d'un formulaire
>
> Sub OuvrirRapport()
> dim optFichier(2) as new com.sun.star.beans.PropertyValue
>
> monDoc = thisComponent
> lesReports = monDoc.Parent.ReportDocuments
> monReport = lesReports.getByName("NomRapport")
>
> optFichier(0).Name = "ActiveConnection"
> optFichier(0).Value = monDoc.Parent.DataSource.getConnection("","")
'
> user, password
> optFichier(1).Name = "OpenMode"
> optFichier(1).Value = "open"
>
> lesReports.loadComponentFromURL(monReport.Name, "", 0, optFichier())
>
> End Sub
>
> Pour les requêtes je ne sais pas, mais tu peux créer un formulaire
> sur ta
> requête et ouvrir le formulaire
>
> Tu assignes les macros sur l'événement "Lors du déclenchement" de tes
> boutons
>
> Christine
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
web site : http://www.molenbaix.com
