Discussion :

[glooping]

*Bonjour*

Comment mettre plusieurs lignes de code différentes dans un même Then?
Merci

[Access Newbie]

Hum ... tu pourrais déja dire bonjour ...

Code :

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

1
2
3
If MaCondition Then
...(mes lignes de codes)...
END IF

[glooping]

Je veux bien mais il me met toujours
"Erreur de compilation :
Attendu : numéro de ligne ou étiquette ou instruction ou fin d'instruction"

[Domi2]

Bonjour,

Sans code, c'est facile de t'aider !

Domi2

[glooping]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
if "option3" = vrai then
    (DoCmd.OpenForm "form entree"
      Forms![Form Entrée]![motif]="Ne réponds pas"
      DoCmd.Close acForm, "entree")
      Else : if "option5"=vrai then
                 (DoCmd.OpenForm "form entree"
                  Forms![Form Entrée]![motif]="Pas interressé"
                  DoCmd.Close acForm, "entree")
                  Else DoCmd.OpenForm "form entree"
                        Forms![Form Entrée]![motif]="Autre..."
                        DoCmd.Close acForm, "entree")
End if
End if

[Jean-Philippe André]

bonjour,
les parenthèses ne sont pas nécessaires dans ce cas ci :
essaie avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if "option3" = vrai then
    DoCmd.OpenForm "form entree"
    Forms![Form Entrée]![motif]="Ne réponds pas"
    DoCmd.Close acForm, "entree"
Else 
    if "option5"=vrai then
                 DoCmd.OpenForm "form entree"
                  Forms![Form Entrée]![motif]="Pas interressé"
                  DoCmd.Close acForm, "entree"
     Else 
                  DoCmd.OpenForm "form entree"
                  Forms![Form Entrée]![motif]="Autre..."
                  DoCmd.Close acForm, "entree"
    End if
End if