Test sur trois valeurs

jadami Messages postés 107 Statut Membre -  
jadami Messages postés 107 Statut Membre -
Bonjour,

Je voudraiS faire un test sur trois valeurs de mon formulaire mais je ni arrive pas. 
'--- teste si la case départ est cocher et la date départ vide
     If Me.txtMillLicence <= 2018 Or IsNull(txtMillLicence) Or Me.txtDateDépart <> "" Or IsNull(txtDateDépart) And Me.Cocher97 <> 0 Then
     
'--- Boite de dialogue par Api
     reponse = MessageBox(Me.hwnd, "Il y à une anomalie sur cette fiche. " _
                           & vbCrLf & vbCrLf & "Veuillez vérifier les champs : ? " _
                           & vbCrLf & vbCrLf & "MilLicence " & Me.txtMillLicence _
                           & vbCrLf & "Date de Départ " & Me.txtDateDépart _
                           & vbCrLf & "Départ " & Me.Cocher97, _
               ap_AppTitle(), mb_yes + MB_ICONEXCLAMATION)

     If reponse = vbYes Then  '2
               strMessage = "Anomalie sur la fiche"
               Me.lblMessage.Caption = strMessage
               Me.lblMessage2.Caption = strMessage
     Exit Sub
     End If 
     End if

FONCTIONNEMENT
1- Si le ctrl Texte txtMilLicence <=2018 , txtDateDépart contient une date et la case à cocher est cocher(-1) aucun Message, le code continue.

2- Si le ctrl Texte txtMilLicence < >2018 ou ne contient pas de valeur, txtDateDépart ne contient pas une date ou la case à cocher est décocher(-1) un Message doit signaler une anomalie.

3- Si une des trois valeurs est manquante un Message doit signaler une anomalie.

Merci pour votre aide

Salutations
A voir également:

5 réponses

Réponse 1 / 5
jordane45 Messages postés 40050 Statut Modérateur 4 758
 
Bonjour

As tu essayé de regrouper tes conditions avec des parenthèses ?
0
Réponse 2 / 5
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonsoir, pourquoi n'expliques-tu pas ce que tu obtiens?
peut-être en faisant: 
If Me.txtMillLicence > 2018 Or IsNull(txtMillLicence) Or Me.txtDateDépart <> "" Or IsNull(txtDateDépart) Or Not Me.Cocher97  Then
0
Réponse 3 / 5
jadami Messages postés 107 Statut Membre
 
Bonsoir,

Merci pour vos réponses.

En faisant la ligne de code j'ai un message dans tous les cas de figure.

je joins des images des différents cas que j'aimerai traiter

Cas 1 et Cas 2 aucun message ne doit apparaître.
Cas 3 Cas 4 et Cas 5 Un message d'anomalie doit apparaître.

Salutations
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
tes exemples me semblent en contradiction avec ton explication de départ.
0
jadami Messages postés 107 Statut Membre > yg_be Messages postés 24281 Statut Contributeur
 
Désolé, toutes mes excuses, mais j'ai dû mal expliquer la problématique.

Cependant les exemples sont des cas réels que je voudrais résoudre.

Salutations
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > jadami Messages postés 107 Statut Membre
 
des exemples ne suffisent pas à décrire ce que tu veux obtenir.
0
jadami Messages postés 107 Statut Membre > yg_be Messages postés 24281 Statut Contributeur
 
Bien je vais essayer cette description:

A partir de mon formulaire je sélectionne sur une liste déroulante un adhérent.

Si pour celui-ci :

Cas 1
la case MilLicence =2018, que la case départ n'est pas cochée et la Date de départ est vide, alors cet adhérent s'affiche.

Cas 2
la case MilLicence <>2018, que la case départ est cochée et la Date de départ est renseignée, alors cet adhérent s'affiche.

Cas 3
la case MilLicence = 2018, que la case départ est cochée et la Date de départ est vide alors, pour cet adhérent doit s'afficher un message qui signale une anomalie (La case départ et cocher).

Cas 4
la case MilLicence = Vide que la case départ est cochée et la Date de départ est vide alors, pour cet adhérent doit s'afficher un message qui signale une anomalie (MilLence vide, date départ vide).

Cas 5
la case MilLicence <> 2018 que la case départ n'est pas cochée et la Date de départ est renseignée, alors pour cet adhérent doit s'afficher un message qui signale une anomalie (MilLence vide , date départ vide).

Cas 6
Les trois champs sont vides, alors pour cet adhérent doit s'afficher un message qui signale une anomalie (MilLence vide , date départ vide case départ décochée).

Salutations
0
Réponse 4 / 5
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
je te suggère de commencer par ceci: 
If (Me.txtMillLicence = 2018 and  (Me.txtDateDépart = "" Or IsNull(Me.txtDateDépart)) And not Me.Cocher97 )
or
(Me.txtMillLicence <> 2018 and  Me.txtDateDépart <> "" And Me.Cocher97 ) then
'c'est bon
else
'ah non
end if
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
jadami Messages postés 107 Statut Membre
 
Bonsoir,

Je joins ces lignes de code qui me permettent de résoudre les six cas. 

'--- teste sur MillLicence, Case départ et la Date départ
     'Cas 1 ou 2 On ne fait rien
     If (Me.txtMillLicence = 2018 And (Me.txtDateDépart = "" Or IsNull(Me.txtDateDépart)) And Me.Cocher97 = 0) _
        Or _
       (Me.txtMillLicence <> 2018 And Me.txtDateDépart <> "" And Me.Cocher97 = -1) Then
       MsgBox "1 ou 2 cas"
       
     'Cas 3
     ElseIf (Me.txtMillLicence = 2018 And (Me.txtDateDépart = "" Or IsNull(Me.txtDateDépart)) And Me.Cocher97 = -1) Then
         Call MessageAnomalie
         Exit Sub
        
     'Cas 4
     ElseIf (IsNull(txtMillLicence) And (Me.txtDateDépart <> "" Or IsNull(Me.txtDateDépart)) And Me.Cocher97 = -1) Then
         Call MessageAnomalie
         Exit Sub

     'Cas 5
     ElseIf (Me.txtMillLicence <> 2018 And Me.txtDateDépart <> "" And Me.Cocher97 = 0) Then
         Call MessageAnomalie
         Exit Sub

     'Cas 6
     ElseIf (IsNull(txtMillLicence) And (Me.txtDateDépart <> "" Or IsNull(Me.txtDateDépart)) And Me.Cocher97 = 0) Then
         Call MessageAnomalie
         Exit Sub
     End If


Sub MessageAnomalie()

Dim strMessage As String

'--- Boite de dialogue par Api
     reponse = MessageBox(Me.hwnd, "Il y à une anomalie sur cette fiche. " _
                           & vbCrLf & vbCrLf & "Veuillez vérifier les champs : ? " _
                           & vbCrLf & vbCrLf & "MilLicence : " & Me.txtMillLicence _
                           & vbCrLf & "Date de Départ : " & Me.txtDateDépart _
                           & vbCrLf & "Départ : " & Me.Cocher97 & " " & " ( -1 = COCHER ou DEPART  ***  0 = NON COCHER ou PRESENT )", _
               ap_AppTitle(), MB_OK + MB_ICONEXCLAMATION)
               

        If Not reponse = vbYes Then
           strMessage = "Anomalie sur la fiche"
           Me.lblMessage.Caption = strMessage
           Me.lblMessage2.Caption = strMessage
        End If
End Sub

Je pense qu’on pourrait supprimer le 1er if des cas 1 et 2 car si c’est ok je n’ai aucune action à faire ?

Est-ce que le code pourrait être amélioré ?

De même je voudrais faire les mêmes tests à l’ouverture du formulaire en parcourant les enregistrements : est-ce faisable ? et est-ce que je dois ouvrir un autre post ?

Salutations
0