Discussion :

[jan.bat]

Bonjour, j'ai encore besoin de votre aide, et vous remercie par avance.

Ma table : "table"
Mon formulaire : "formulaire"
Etat 1 : "etat1"
Etat 2 : "etat2"
Etat 3 : "etat3"

Champ 1 : "champ1"
Champ 2 : "champ2"
Champ 3 : "champ3"

Dans mon formulaire j'ajoute un bouton pour imprimer un état ou des états

Je souhaite que si "champ1" à une valeur, alors on imprime "etat1", sinon on ne l'imprime pas
Et, si "champ2" à une valeur, alors on imprime "etat2", sinon on ne l'imprime pas
Et, si "champ3" à une valeur, alors on imprime "etat3", sinon on ne l'imprime pas

Et enfin, si ni "champ1" "champ2" "champ3" n'ont eu de valeur, alors afficher une boite de dialogue qui indique "rien à imprimer"

Pouvez-vous m'aider à composer cela ?

Bien à vous.

[tee_grandbois]

bonsoir,
sur clic du bouton du formulaire:
commencer d'abord par tester si aucun champ n'est rempli, si oui, afficher la boite message:

Code :

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

1
2
3
if isnull(me.Champ1) and isnull(me.Champ2) and isnull(me.Champ3) Then
    Msgbox "rien à imprimer"
end if

ensuite imprimer chaque état si le champ correspondant est renseigné:

Code :

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

1
2
3
4
5
6
7
8
' imprimer état 1
if not isnull(me.Champ1) then
    Docmd.Openreport "etat1"
end if
 
' imprimer état 2
if not isnull(me.Champ2) then
'... etc

[jan.bat]

Super, merci beaucoup, ça marche parfaitement !!

[tee_grandbois]

bonsoir,
si ça fonctionne n'oublie pas de clore la discussion (bouton )