Discussion :

[jmde]

Bonjour,

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

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
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

[tee_grandbois]

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 :

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

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 :

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

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 :

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

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.

[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.

[tee_grandbois]

bonsoir,

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 ?

[tee_grandbois]

bonsoir,

Code :

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

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

[jmde]

Bonjour tee_grandBois,

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

Ajouter la condition inverse c'est faire cela :

Code :

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

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

Salutations

[tee_grandbois]

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...

Ajouter la condition inverse c'est faire cela :

Code :

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

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

pas vraiment, je pensais plutôt à cela:

Code :

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

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