base de données

fr-users
#1

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

#2

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

#3

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.

#4

Merci Michel.
Excellent ! ça m'éviterait d'avoir à dupliquer "ma" macro chaque fois que j'ai un nouveau formulaire à ouvrir.
Je vais l'essayer.

Bernard

#5

Re-bonjour Michel,

J'ai essayé ta macro qui fonctionne mais j'aimerais que le formulaire ne s'ouvre pas pas maximisé. J'ai essayé (au pif, je ne connais rien en LO Basic) : ...IsMaximized = false, ... IsMinimized = trur et même d'enlever carrément la ligne, rien n'y fait.

Autre chose : ce serait possible une macro indépendante de la base de données ? En lui fournissant "base.formulaire" dans "compléments d'information". Ce serait pour mettre la macro dans les macros communes (Mes macros) comme je peux le faire avec la macro QuitterForm.

Bernard

#6

Bonjour,
En ce qui concerne la propriété IsMaximized tu peux effectivement supprimer la ligne mais comme dans LO les formulaires sont des objets writer, pour retrouver une fenêtre normale il faut revenir en mode édition et la sauvegarder telle que tu le souhaite.
Pour utiliser une macro dans la totalité des applications LO, elle doit être sauvegardée dans la bibliothéque "Mes Macros".
En cas de changement de version ou bien de déplacement vers une autre machine il faut récupérer le dossier basic du dossier roaming>user>4 et l'installer au nouvel emplacement.
Tu trouvera une foule de renseignements sur le site : wiki.documentfoundation.org/Documentation/Publications/fr
et pour LO basic la bible : "Programmation OpenOffice et LibreOffice de Bernard Marcelly et Laurent Godart"
Cordialement
Michel B.

#7

Bonjour Michel,

Bonjour,
En ce qui concerne la propriété IsMaximized tu peux effectivement supprimer la ligne mais comme dans LO les formulaires sont des objets writer, pour retrouver une fenêtre normale il faut revenir en mode édition et la sauvegarder telle que tu le souhaite.

C'est fait déjà comme cela et avec la macro que j'utilise actuellement je n'ai pas de problème, les dimensions sont conservées lors de l'ouverture. Mais avec la tienne, la fenêtre est systématiquement maximisée, même si je supprime la ligne en question. C'est dommage, j'aurai bien aimé pouvoir l'utiliser.

Pour utiliser une macro dans la totalité des applications LO, elle doit être sauvegardée dans la bibliothéque "Mes Macros".

Oui, je sais. Comme je te disais, j'y ai déjà enregistré la macro de fermeture qui est indépendante du document dans lequel elle est utilisée.

En cas de changement de version ou bien de déplacement vers une autre machine il faut récupérer le dossier basic du dossier roaming>user>4 et l'installer au nouvel emplacement.

Je sauvegarde ce dossier régulièrement.

Tu trouvera une foule de renseignements sur le site : wiki.documentfoundation.org/Documentation/Publications/fr
et pour LO basic la bible : "Programmation OpenOffice et LibreOffice de Bernard Marcelly et Laurent Godart"

Si un jour j'ai plein de courage :slight_smile:

Bonne journée,
Bernard