[Résolu][Base] ouverture d'un 2eme formulaire

[masirkkisoi]

Bonjour à tous,

J'aimerais avoir un formulaire "menu" qui permet d'ouvrir d'autres formulaires en cliquant sur un bouton, j'ai consulté ce fil http://user.services.openoffice.org/fr/ ... c6355.html mais je ne comprends pas à quoi sert la variable oEvent dans le dernier message, malgrès cela j'ai copier le code suivant dans ma macro :

Code : Tout sélectionner

Sub OuvrirCompteOrdo

ThisDatabaseDocument.FormDocuments.getByName( "NouveauCompteOrdonnateur" ).open 
End Sub

mais quand j'éxecute le code il m'affiche une erreur : "Varaible d'objet non définie"

Pouvez-vous m'aider s'il-vous-plaît ?

[Dude]

Salut,

J'aimerais avoir un formulaire "menu" qui permet d'ouvrir d'autres formulaires en cliquant sur un bouton

L'extension Switchboard permet de faire cela : http://user.services.openoffice.org/fr/ ... 18&t=17589

[masirkkisoi]

Merci Dude pour cette solution mais comment je fais fais si je veux créer un lien à partir d'un formulaire et non d'un swichboard ?

[jeanmimi]

comment je fais fais si je veux créer un lien à partir d'un formulaire

Un bouton qui au clic ouvre le deuxième formulaire en activant la macro ?

[masirkkisoi]

oui

[jeanmimi]

L'exemple joint très simple pourrait correspondre à ce que tu veux faire.

[pancho]

Bonjour,

Si tu as plusieurs bouton dans ton menu, il est aussi possible de mettre en place une macro générique pour l'ouverture d'un formulaire quelconque, et de passer en paramètre le nom du formulaire à ouvrir.

Explications :
Mettre le nom du formulaire à ouvrir dans le contrôle du bouton dans le champ complément d'information.
Dans le même contrôle, sous l'évènement bouton de la souris relaché, mettre la macro suivante :

Code : Tout sélectionner

Sub OuvrirFormulaire(evt As Object)
	Dim dbDoc As Object, lesFormulR As Object, docFormulaire2 As Object
	Dim bouton As Object, nomFormulaire As String
	
	bouton = evt.Source
	nomFormulaire = bouton.Model.tag ' on récupère le nom du formulaire à ouvrir qui se trouve dans le champ complément d'information du bouton
	
	dbDoc = ThisDatabaseDocument
	lesFormulR = dbDoc.FormDocuments
	if lesFormulR.hasByName(nomFormulaire) then
		docFormulaire2 = lesFormulR.getByName(nomFormulaire)
		docFormulaire2.open
	else
		MsgBox ("Formulaire inconnu : " & nomFormulaire, 16)
	end if
End Sub

[masirkkisoi]

Wahou c'est super ça fonctionne nikel Merci bien !

En plus ça va me résoud 2 problèmes d'un coup !