Re: [fr-users] base de données

Bonjour,
Il est possible d'utiliser une macro unique qui permet d'ouvrir 
n'importe quel formulaire.
Il faut indiquer dans les propriétés générales du *bouton* ouvrant le 
formulaire, le nom du formulaire dans la propriété *"complément 
d'information"*.
La macro ci-dessous est ensuite affectée à la propriété *"exécuter 
action"* de l'onglet évènements du bouton.
Le nom du formulaire est récupéré par la ligne de code "nomFormulaire = 
bouton.Model.tag"

*Sub OuvrirFormulaire(evt As Object)
rem ---------------ouvrir un 
formulaire----------------------------------------------------------------
    Dim bouton As Object, nomFormulaire As String
    bouton = evt.Source
    nomFormulaire = bouton.Model.tag
    LibOForm 
=ThisDatabaseDocument.FormDocuments.getByName(nomFormulaire).open
    LibOForm.currentController.frame.ContainerWindow.IsMaximized = true
End Sub*

Cordialement
Michel B.

Le 10/08/2014 09:31, Bernard Ribot a écrit :
> Le 10/08/2014 08:21, demande_aide_fr@libreoffice.org a écrit :
> > Bonjour
> >
> > Voici une nouvelle question envoyée à l'aide du formulaire de demande 
> > d'aide (http://fr.libreoffice.org/get-help/poser-une-question/).
> > Si vous répondez, merci de penser à utiliser la fonction "répondre à 
> > tous" de votre logiciel de courrier électronique de façon que le 
> > demandeur reçoive une copie de votre réponse.
> >
> >
> > Email: - gerard.daubois@laposte.net
> > Sujet: - base de données
> > Question: - Comment ouvrir et fermer un formulaire dans la base de 
> > données Liboffic.
> > Je débute en ooobasic par contre, j'ai beaucoup programmé en vba.
> >
> > Cordialement et merci pour votre réponse
> Bonjour,
>
> Pour ouvrir un formulaire à partir d'un autre formulaire, tu associes 
> cette macro à un bouton du formulaire "lanceur" :
>
> Sub OuvrirForm
> 'Etablit la connexion
> ThisDatabaseDocument.CurrentController.connect("","")
> 'Ouvre le formulaire nommé Table1
>    ThisDatabaseDocument.FormDocuments.getByName( "Table1" ).open
> End Sub
>
> Et pour fermer le formulaire "lancé" et retourner au formulaire 
> "lanceur" tu associes cette macri à un bouton :
>
> Sub QuitterForm
>   oFrame = thisComponent.CurrentController.getFrame()
>   oFrame.close( True )
> End Sub
>
> Bernard


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés