Discussion :

[Youpi59]

Bonjour,

Je souhaiterai votre aide sur le point suivant.
J'ai une base access 2007 dans laquelle il y a 3 tables. J'ai un formulaire qui est lancé au démarrage de la base dans lequel j'ai crée trois boutons qui permettent d'ouvrir chacun des formulaire liés aux tables.

Je souhaiterai en fait cliquer sur un bouton qui m'afficherai un groupe d'options dans lequel je sélectionnerai un des trois formulaires a ouvrir.

En vous remerciant

[lelensois16]

Bonjour ,

Voici la démarche à suivre :

On suppose que tous les formulaires ont un nom commencant par sf

1 - Créer un groupe d'option gpoNomForm
2 - l'alimenter en requete via la table MySysOb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT Name
FROM MSysObjects
WHERE ((Left([Name],1)<>"~") And (Left([Name],4)<>"MSys") And ([Type] In (1,4,6))) And Left(Name,2) = "sf"
ORDER BY [DateUpdate] DESC;

3 - Créer un bouton
4 - Sur ce bouton ,utiliser un évenement On_Click avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.openForm ( Me.gpoNomForm.Selection )

Cordialement

[Youpi59]

Bonjour lelensois16

Merci pour ta réponse, mais j'avoue être un peu perdue dans la démarche proposée.

1 - Créer un groupe d'option gpoNomForm - comment le creer?
2 - l'alimenter en requete via la table MySysOb - quelle est cette table Mysysob?

[Invité]

Bonjour

Un peu de lecture : http://starec.developpez.com/tuto/groupeoptions/

Philippe

[Youpi59]

Merci,

je vais lire tout ca et reviens si besoin

[lelensois16]

Dans un premier temps , j'opterais pour une zone de liste modifiable ( plus facile à créer ) mais vous disiez que vous préferez un groupe d'option ...

Par ailleurs , voici un lien intéressant sur MSysObj
http://access.mvps.org/accessfr/queries/qry0002.htm

Je viens de savoir que la req SQL peut etre simplifiée ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;

[Youpi59]

Re

J'ai fais le groupe d'option avec les trois cases a cocher qui me renvoie vers le formulaire choisi.
Par contre je souhaiterai cliquer un bouton qui m'affiche ce groupe d'options comme une message box. Je cliquerai sur l'option souhaitée, le formulaire s'ouvre et l'affichage du groupe d'options se fermerai.

Merci

[lelensois16]

Re ,

Un MsgBox ne peut pas contenir de groupe d'option ( sauf un userform )
Dans cette situation , il faut jouer avec la propriété Visible du groupe d'option.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Me.gpoNomForm.Visible = True ' groupe d'option visible 
Me.gpoNomForm.Visible = False 'groupe d'option cachée