Discussion :

[atlantideD]

bonjour, j'ai un bouton qui me permet d'ouvrir un état voir formule ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande81_Click()
Select Case Texte66
'Si valeur de client égale X ou Y ou Z
    Case "AFL", "THT", "VIR", "AFR", "AF", "MAU", "MK", "VGA", "VS"
        DoCmd.OpenReport "BLpoolé", acViewPreview
'Dans tous les autres cas....
    Case Else
        DoCmd.OpenReport "BLMoteursclients", acViewPreview
 
End Select
End Sub

Comment rajouter une formule à la précédente pr que le formulaire (où est le bouton) se ferme en cliquant sur le bouton.

Le bouton devra alors executé : la fermeture du formulaire, puis la formule ci dessus

merci d avance....

[Renardo]

Je pense qu'il faut que tu execute la formule et ensuite que tu ferme le formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande81_Click()
SELECT Case Texte66
'Si valeur de client égale X ou Y ou Z
    Case "AFL", "THT", "VIR", "AFR", "AF", "MAU", "MK", "VGA", "VS"
        DoCmd.OpenReport "BLpoolé", acViewPreview
DoCmd.Close acForm ,  "NomFormulaire" 
'Dans tous les autres cas....
    Case Else
        DoCmd.OpenReport "BLMoteursclients", acViewPreview
 DoCmd.Close acForm ,  "NomFormulaire"
End SELECT
End Sub

[atlantideD]

c'est parfait, ca marche
Merci