Utilisation de If et ElseIF

Version imprimable

Bonjour,

Je n’arrive pas à régler le code pour remplir ces différentes conditions.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
If (Me.cmbCode > 1 And Me.txtMillLicence = CONS_ANNEE_N Or IsNull(Me.txtMillLicence) 
                                    And (Me.txtDateDépart = "") Or IsNull(Me.txtDateDépart) 
                                    And Champ_Montant > 0 And Me.Cocher97 = -1) Then
                                    Me.lblMessage.Caption =  "Renouvelé"
              
ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = CONS_ANNEE_N Or IsNull(Me.txtMillLicence) 
                                           And (Me.txtDateDépart = "") Or IsNull(Me.txtDateDépart) 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) Then
                                           Me.lblMessage.Caption = "Chèque à saisir"

ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = CONS_ANNEE_N Or IsNull(Me.txtMillLicence)
                                           And (Me.txtDateDépart = "" Or IsNull(Me.txtDateDépart)) 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) 
                                           And Champ_DateAdhésion <= 364 Then
                                           Me.lblMessage.Caption = "Nouveau"

ElseIf (Me.cmbCode > 1 And Me.txtMillLicence <> CONS_ANNEE_N 
                                           And (Me.txtDateDépart <> "") And Me.Cocher97 = -1) Then
                                           Me.lblMessage.Caption = "Non Renouvelée"             

End if

Pouvez-vous Svp m’aider.

Salutations

bonjour,
on veut bien aider à la condition que les règles du forum sont bien respectées http://club.developpez.com/regles/#LIII-C
il faudrait donner un peu plus d'informations: s'agit-il d'erreur de syntaxe ou de compilation dans le code, si oui quelle est l'erreur, ou s'agit-il de résultats incorrects ?

1) pour commencer si le code posté est ton code actuel je vois déjà qu'il manque le caractère de continuation de ligne, le souligné (_) pour indiquer que la ligne d'instruction continue à la ligne suivante:
Code:

1 2 3 4 5 If (Me.cmbCode > 1 And Me.txtMillLicence = CONS_ANNEE_N Or IsNull(Me.txtMillLicence) _ And (Me.txtDateDépart = "") Or IsNull(Me.txtDateDépart) _ And Champ_Montant > 0 And Me.Cocher97 = -1) Then Me.lblMessage.Caption = "Renouvelé" 'etc.
2) ensuite, on peut simplifier certaines expressions :
Code:

1 2 If (Me.cmbCode > 1 And Me.txtMillLicence = CONS_ANNEE_N Or IsNull(Me.txtMillLicence) _ And (Me.txtDateDépart = "") Or IsNull(Me.txtDateDépart) _
peut s'écrire comme cela :
Code:

1 2 If (Me.cmbCode > 1 And Me.txtMillLicence = Nz(Me.txtMillLicence, CONS_ANNEE_N) _ And Nz(Me.txtDateDépart, "") = "" _
cela permet de diminuer le nombre de conditions.

3) Comme tes conditions sont nombreuses, je te conseille de mettre par écrit toutes les cas de ton algorithme pour t'y retrouver avant de le coder.

04/04/2019, 09h41
jmde

Bonjour,

Merci pour la réponse.

Toutes mes excuses, je ne pensais pas avoir enfreint les règles du Forum.

Pour les lignes de continuation c’est un oubli de ma part lors de l’écriture
du message.

Pour la simplification et le conseil j’en prends bien note.

Je n’ai pas d’erreur de syntaxe ou de compilation, par contre suivant les cas
je n’ai pas le Message Souhaité (Renouveler, chèque a saisir, Nouveau, Non renouvelé)

Salutation.
04/04/2019, 20h26
tee_grandbois

bonsoir,

Citation:

Je n’ai pas d’erreur de syntaxe ou de compilation, par contre suivant les cas
je n’ai pas le Message Souhaité (Renouveler, chèque a saisir, Nouveau, Non renouvelé)

vu le nombre de conditions ce n'est pas étonnant ...
Aurais-tu un exemple précis qui ne renvoie pas le bon texte ?
As-tu essayé le mode débogage pour essayer de trouver d'où vient l'anomalie ?

bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = Nz(Me.txtMillLicence, CONS_ANNEE_N) 
                                           And Nz(Me.txtDateDépart,"") = "" 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) Then
                                           Me.lblMessage.Caption = "Chèque à saisir"

ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = Nz(Me.txtMillLicence, CONS_ANNEE_N)
                                           And Nz(Me.txtDateDépart,"") = "" 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) 
                                           And Champ_DateAdhésion <= 364 Then
                                           Me.lblMessage.Caption = "Nouveau"

ces 2 instructions ElseIf sont rigoureusement les mêmes à part la condition sur Champ_DateAdhésion sur la seconde, mais comme la première est moins restrictive, le code y passera toujours, il faudrait donc inverser l'ordre ou ajouter la condition inverse de And Champ_DateAdhésion <= 364

23/05/2019, 10h02
jmde

Bonjour tee_grandBois,

Citation:

ajouter la condition inverse de And Champ_DateAdhésion <= 364

Ajouter la condition inverse c'est faire cela :

Code:

And (Champ_DateAdhésion <= 364 or Champ_DateAdhésion > 364)

Salutations

bonsoir,
houla ! cela faisait un bout de temps depuis mon dernier post... Je ne sais plus trop ce qu'il en est de mes propositions...

Citation:

Ajouter la condition inverse c'est faire cela :

Code:

And (Champ_DateAdhésion <= 364 or Champ_DateAdhésion > 364)

pas vraiment, je pensais plutôt à cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = Nz(Me.txtMillLicence, CONS_ANNEE_N) 
                                           And Nz(Me.txtDateDépart,"") = "" 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) Then
                                           And Champ_DateAdhésion > 364 Then
                                           Me.lblMessage.Caption = "Chèque à saisir"
 
ElseIf (Me.cmbCode > 1 And Me.txtMillLicence = Nz(Me.txtMillLicence, CONS_ANNEE_N)
                                           And Nz(Me.txtDateDépart,"") = "" 
                                           And Champ_Montant > 0 And Me.Cocher97 = 0) 
                                           And Champ_DateAdhésion <= 364 Then
                                           Me.lblMessage.Caption = "Nouveau"

puisque les 2 conditions sont les mêmes excepté la condition sur Champ_DateAdhésion