Discussion :

[papagei2]

Bonjour ;

Je suis bloqué sur une étape de ma conception de base.
Merci de votre aide

Dans un formulaire quelconque, j'ai une liste déroulante de type "formulaire1", "formulaire2", "formulaire3".

Pour chacun de ces "formulaires", il existe un état disctinct.

Ce que je souhaite, c'est qu'en cliquant sur un bouton imprimer, l'état correspondant à la liste déroulante soit imprimé...

Suis-je clair ?

Merci encore

Sylvain

[Invité]

Bonjour

Que veux-tu dire par liste déroulante de type "Formulaire1", etc.

Philippe

[papagei2]

Bonjour et merci de votre réponse.

Effectivement, c'est pas clair.

En fait, c'est le contenu de la liste. Il s'agit de :

- "Stage interne"
- "Stage externe"
- "Mise à disposition"
- "Prestation extérieure"

Soit 4 états différents

Les données sont globalement similaires pour l'ensemble des états, seule la disposition et les libélés (étiquettes) des champs sont différents sur l'état. Le titre aussi change sur chaque état.

Suis-je plus clair ?

Merci

Sylvain

[Jeannot45]

Il te faudrait créer une procédure VBA sur l'évènement après mise à jour de la liste.

Exemple :

Code :

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

1
2
3
4
5
Select Case MalisteDeroulante
    case is = "Stage interne"
        DoCmd OpenReport "MonEtat"
    Case is =" ...
End Select

Bonne continuation

[papagei2]

Merci Jeannot45

Je pense effectivement que ça correspond à ce que je souhaite.
Je vais essayer ce soir et vous tioens au courant

Bon après midi

Sylvain

[papagei2]

Bonsoir ;

Me revoilà...
ça ne fonctionne pas...

quelque chose que je ne comprends pas...

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande198_Click()
Select Case INSERTION_TYPE
    Case Is = "Stage interne"
        DoCmd OpenReport "ConvStage"
    'Case Is = " ..."
End Select
 
End Sub

Convstage est le nom de mon formulaire. Dès que je le tape, c'est une erreur "erreur de complilation"...

Merci à celui ou celle qui peut m'aider

Sylvain

[papagei2]

Bonsoir

Voilà, je pense que j'ai touve...
La fonction est, sauf erreur de ma part :

Code :

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

DoCmd.OpenReport "ConvStage"

Isolée, elle fonctionne

Maintenant, dans cette commande, rien ne se passe :

Code :

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

1
2
3
4
5
6
Private Sub Commande198_Click()
Select Case INSERTION_TYPE
    Case Is = "Formation Externe"
        DoCmd.OpenReport "ConvStage"
End Select
End Sub

Une idée ?

Merci

SYlvain

[papagei2]

Il est tard...

Mais j'ai trouvé.
En fait, le contenu de la boite déroulante n'est pas "Formation Externe", mais la colone liée ! Le test était à faire sur 1...

Je m'y suis pris autrement, ne maîtrisant pas trop le VBA. C'est en macro que j'ai réussi à effectuer le test sur la boîte, avec une impression pour chaque résultat.

Merci à vous tous

Bonne nuit

Sylvain