4/1/2014

Macro, formulaire et bouton pour ouvrir ou fermer un formulaire

Créez 2 formulaires : SAISIE_COUREUR et SAISIE_RESULTAT

Nous allons créer des boutons dans ces deux formulaires et qui vont nous permettre de naviguer de l'un à un autre.

Étape 1 - Création des boutons

Dans le formulaire sans sous-formulaire SAISIE_COUREUR, insérez un bouton. Dans les options de ce bouton, dans l'onglet "Général", dans l'option "Titre", remplacez le texte "Bouton" par "Saisir des résultats".
Procédez de même pour ajouter un bouton "Saisir des coureurs" dans le formulaire SAISIE_RESULTAT.

Étape 2 - Création du code d'ouverture d'un formulaire dans une macro

Nous allons utiliser un code écrit dans le langage OpenOffice Basic qui permet d'ouvrir et de fermer les deux formulaires. Ne cherchez pas pour l'instant à comprendre précisément ce code. Nous y reviendrons à la fin de l'exercice.

Ouvrir le gestionnaire des macros : "Ouvrir/Macros/Gérer les macros/OpenOffice.org Basic..."

Double-cliquez sur "Mes macros/Standard" -> bouton "Gérer" -> bouton "Nouveau"

Choisir "ouvrir_fermer_formulaires" comme nom de module

Cliquez sur le bouton "Éditer"

Le code contient déjà trois lignes. Remplacez-les par le code ci-dessous :

REM Macro nécessaire pour ouvrir un formulaire quelconque
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

function getFormsTC() as variant
getFormsTC = thisComponent.Parent.getFormDocuments
end function

function getConnectionTC() as variant
getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection
end function

REM Macro ouvrant le formulaire particulier 'Saisie résultat ou coureur'. Il faut une macro pour chaque formulaire que vous voulez ouvrir depuis un autre formulaire.

sub Open_Form_SAISIE_RESULTAT( oev as variant )
sFormName = "SAISIE_RESULTAT"
OpenForm( getFormsTC, getConnectionTC, sFormName )
end sub

sub Open_Form_SAISIE_COUREUR( oev as variant )
sFormName = "SAISIE_COUREUR"
OpenForm( getFormsTC, getConnectionTC, sFormName )
end sub

Étape 3 - Associer les macros aux boutons

Dans le formulaire "SAISIE_COUREUR", modifier les propriétés du bouton. Dans l'onglet "Événements", dans l'option intitulée "Bouton de souris enfoncé", cliquez sur les "..." puis sur "Macro/Mes macros/Standard". Double-cliquez sur "ouvrir_fermer_formulaire" puis "onClickOuvrirForm1". Validez avec le bouton "OK"
Sortez du mode création et testez le bouton

Procédez de même dans le deuxième formulaire en utilisant la fonction "onClickOuvrirForm2".

Quelques explications sur le code

Le code précédant est composé de 2 macros. On les reconnait car elles commencent par Sub et finissent par End Sub.

L'ouverture du premier formulaire se fait grace à la macro "Open_Form_SAISIE_COUREUR" (resp. "onClickOuvrirForm2").

Pour adapter ces lignes de code à un autre formulaire, vous devez copier/coller les lignes de la macro "Open_Form_SAISIE_COUREUR" et changez le nom du formulaire "SAISIE_COUREUR" par le nom du nouveau formulaire.