Salut à tous,
je suis un debutant en programmation, j'ai realisé une application sous access 2003. le probleme est que je voudrais faire le comptage des données provenant d'une table selon le choix d'une zone de santé et la periode selon le format "mois/années".
le probleme est que le resultat du comptage tiens compte de tous les données dans la table. il n'arrive pas a faire l'exclusion voulu.
je cherche donc l'aide d'une personne pour deboguer ce probleme. car je dois d'urgence appreter l'application pour une presentation.
le processus du depouillement se deroule comme suit:
il y a une liste deroulante pour faire le choix de la zone de sante, une autre pour faire le choix de l'année
celle qui active le processus sont les listes deroulante mois.
le choix d'un mois, lance l'affichage dans les petites zones de text.
voici l'exemple de code pour la premiere colonne des mois
Public Sub Janv_AfterUpdate()
Dim Mabase As Database
Dim Monsql As Object
Dim Dynalist As Object
Dim CompteOui As Long
Dim CompteNon As Long
Dim tmpfievre As Boolean
Dim tmpdiarrhee As Boolean
Dim tmptoux As Boolean
Dim tmpcons1, tmpcons2, tmp1, tmp2 As Boolean
Set Mabase = CodeDb
zero = ""
nb = 0
CompteOui = 0
CompteOui2 = 0
CompteOui3 = 0
CompteOui4 = 0
CompteOui5 = 0
CompteOui6 = 0
CompteOui7 = 0
CompteOui8 = 0
CompteOui9 = 0
CompteOui10 = 0
CompteOui11 = 0
CompteOui12 = 0
CompteOui13 = 0
CompteOui15 = 0
CompteOui16 = 0
CompteOui17 = 0
CompteOui18 = 0
CompteOui19 = 0
CompteOui20 = 0
CompteOui21 = 0
CompteOui22 = 0
CompteOui23 = 0
CompteOui24 = 0
CompteOui25 = 0
CompteOui26 = 0
CompteOui27 = 0
CompteOui28 = 0
CompteOui29 = 0
CompteOui30 = 0
CompteOui31 = 0
CompteOui32 = 0
CompteOui33 = 0
CompteOui34 = 0
CompteOui35 = 0
CompteOui36 = 0
CompteOui37 = 0
CompteOui38 = 0
CompteNon = 0
CompteNon2 = 0
CompteNon3 = 0
CompteNon4 = 0
CompteNon5 = 0
CompteNon6 = 0
CompteNon7 = 0
CompteNon8 = 0
CompteNon9 = 0
CompteNon10 = 0
CompteNon11 = 0
CompteNon12 = 0
CompteNon13 = 0
CompteNon15 = 0
CompteNon16 = 0
CompteNon17 = 0
CompteNon18 = 0
CompteNon19 = 0
CompteNon20 = 0
CompteNon21 = 0
CompteNon22 = 0
CompteNon23 = 0
CompteNon24 = 0
CompteNon25 = 0
CompteNon26 = 0
CompteNon27 = 0
CompteNon28 = 0
CompteNon29 = 0
CompteNon30 = 0
CompteNon31 = 0
CompteNon32 = 0
CompteNon33 = 0
CompteNon34 = 0
CompteNon35 = 0
CompteNon36 = 0
CompteNon37 = 0
CompteNon38 = 0
Dim ResRap1 As Boolean
Dim ResRap2, FPN1, FPN11, ResRap22, ResRap11 As Boolean
ResRap1 = False
ResRap2 = False
'mois.RowSource = "SELECT FicheIndiv.Date FROM FicheIndiv WHERE (((FicheIndiv.Date) Like '*/*/2007'));"
nomRelais.RowSource = "SELECT ZoneSanté.[Zone]FROM ZoneSanté WHERE ((([Zone])=Forms!DepouillementZ![Zone]));"
Set Dynalist = Mabase.OpenRecordset("FicheIndiv", dbOpenTable)
Nom = nomRelais
'msgbox ("Le mois a" & Right((Dynalist("Date")), 7) & "caractere")
'msgbox ("Le relais s'appelle " & nom)
Dynalist.MoveFirst
Do Until Dynalist.EOF()
'For i = 0 To Me.mois.ListCount - 1
' lemois = Me.mois.ItemData(i)
'moi = Right(lemois, 7)
moi = Janv & "/" & mois
'MsgBox ("Le mois a" & moi & "caractere")
'Len(lemois) - 3
'Lemois = mois
'msgbox ("Le mois a" & moi & "caractere")
'lemois = Me.mois.Selected(i)
'msgbox ("Le mois est" & lemois)
'nb = nb + 1
' 1. IDENTIFICATION
If (Dynalist("N°Fiche")) <> zero And (Dynalist("Date")) <> zero And (Dynalist("Zone de santé")) <> zero And (Dynalist("Centre de santé")) <> zero And (Dynalist("Site de santé")) <> zero And (Dynalist("Zone de Santé")) <> zero And (Dynalist("Sexe")) <> zero And (Dynalist("Poids")) <> zero And (Dynalist("Statut Nutritionnel")) <> zero And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui = CompteOui + 1
DoEvents
Else
CompteNon = CompteNon + 1
DoEvents
End If
' 2. SECTION PLAINTES
If (Dynalist("Fièvre") = "1" And Dynalist("NJFièvre") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpfievre = True
ElseIf Dynalist("Fièvre") = "1" And IsNull(Dynalist("NJFièvre")) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpfievre = False
'msgbox ("Faux")
End If
If (Dynalist("Diarrhée") = "1" And Dynalist("NJDiarrhée") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpdiarrhee = True
ElseIf Dynalist("Diarrhée") = "1" And IsNull(Dynalist("NJDiarrhée")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpdiarrhee = False
End If
If (Dynalist("Toux") = "1" And Dynalist("NJToux") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmptoux = True
ElseIf Dynalist("Toux") = "1" And IsNull(Dynalist("NJToux")) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmptoux = False
End If
If (tmpfievre = True And tmpdiarrhee = True And tmptoux = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui2 = CompteOui2 + 1
ElseIf (tmpfievre = False Or tmpdiarrhee = False Or tmptoux = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon2 = CompteNon2 + 1
End If
'3. RECHERCHER DE SIGNES DE DANGER OU D'ALERTE
'If Dynalist("N1-2") <> zero And Dynalist("SNER") <> zero And Dynalist("EIBT") <> zero And Dynalist("EVT") <> zero And Dynalist("EC") <> zero And Dynalist("EI") <> zero And Dynalist("APP") <> zero And Dynalist("RDTS") <> zero And Dynalist("TM15J") <> zero And Dynalist("ESM") <> zero And Dynalist("EDPMMS") <> zero And Dynalist("ETA") <> zero And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
' CompteOui3 = CompteOui3 + 1
'Else
' CompteNon3 = CompteNon3 + 1
'End If
'4. FIEVRE
If Dynalist("Repfievre") = "2" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui4 = CompteOui4 + 1
ElseIf ((((Dynalist("C4A") = True Or Dynalist("C4B") = True) And (Dynalist("Repfievre") = "1" <> zero Or Dynalist("Fièvre") = "1")) And (Dynalist("FC2JT") = True Or Dynalist("FEC") = True Or Dynalist("SiPABP") = True Or Dynalist("REF1") = "1" <> zero Or Dynalist("PALU") = "Paludisme") <> zero)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui4 = CompteOui4 + 1
Else
CompteNon4 = CompteNon4 + 1
End If
'5. DIARRHEE
If Dynalist("Repdiar") = "2" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui5 = CompteOui5 + 1
ElseIf ((Dynalist("Repdiar") <> zero Or (Dynalist("SD") = True Or Dynalist("SS") = True Or Dynalist("DTL") = True Or Dynalist("SiTABDS") = True) Or (Dynalist("REF2") = zero) Or ((Dynalist("DIAS") <> zero)))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui5 = CompteOui5 + 1
ElseIf (Dynalist("Repdiar") = zero And (Dynalist("SD") = False And Dynalist("SS") = False And Dynalist("DTL") = False And Dynalist("SiTABDS") = False)) And (IsNull(Dynalist("REF2")) And IsNull(Dynalist("DIAS"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon5 = CompteNon5 + 1
End If
'6. TOUX OU RHUME
If ((((Dynalist("RepTouxR")) <> zero Or Dynalist("Toux") <> zero) And (Dynalist("MRPM") <> zero) Or (Dynalist("MVT50+") = True Or Dynalist("MVT40+") = True Or Dynalist("MVT50m") = True Or Dynalist("MVT40m") = True) And (Not (IsNull(Dynalist("ResRap"))) Or Dynalist("TOUR") <> zero))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui6 = CompteOui6 + 1
ElseIf ((IsNull(Dynalist("RepTouxR")) And IsNull(Dynalist("Toux")) And Dynalist("MRPM") = zero) And (Dynalist("MVT50+") = False And Dynalist("MVT40+") = False And Dynalist("MVT50m") = False And Dynalist("MVT40m") = False) And (IsNull(Dynalist("ResRap"))) And Dynalist("TOUR") = zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon6 = CompteNon6 + 1
End If
'7. MALNUTRITION
If (Dynalist("POIDFAIB") = True Or Dynalist("POIDSTAT") = True Or Dynalist("POIDNORM") = True Or Dynalist("OEDEMES") = True Or Dynalist("PASIGNMAL") = True Or Dynalist("AMAIGRIS") = True Or Dynalist("MALNUTRISEV") <> zero Or Dynalist("MALNUTRILEG") <> zero Or Dynalist("PASMALNUTRI") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui7 = CompteOui7 + 1
ElseIf (Dynalist("POIDFAIB") = False And Dynalist("POIDSTAT") = False And Dynalist("POIDNORM") = False And Dynalist("OEDEMES") = False And Dynalist("PASIGNMAL") = fla Or Dynalist("AMAIGRIS") = True Or Dynalist("MALNUTRISEV") <> zero Or Dynalist("MALNUTRILEG") <> zero Or Dynalist("PASMALNUTRI") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon7 = CompteNon7 + 1
End If
'8. RATTRAPAGE
If Dynalist("EOPESE") <> zero And Dynalist("EOVAC") <> zero And Dynalist("EOVIT") <> zero And Dynalist("EOP") <> zero And Dynalist("EOVitA") <> zero And Dynalist("EOV") <> zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui8 = CompteOui8 + 1
Else
CompteNon8 = CompteNon8 + 1
End If
'9. AUTRES PROBLEMES
If ((Dynalist("AUTREBLEM") = True And Dynalist("AutrePl") <> zero)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui9 = CompteOui9 + 1
ElseIf (Dynalist("AUTREBLEM") = True And IsNull(Dynalist("AutrePl"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon9 = CompteNon9 + 1
End If
'10. CONSEILS POUR LE CAS A REFERER
If Dynalist("CASREF") = "1" And (Dynalist("C10A") = True Or Dynalist("C10B") = True Or Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True Or Dynalist("C10F") = True Or Dynalist("C10G") = True) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui10 = CompteOui10 + 1
ElseIf Dynalist("CASREF") = "1" And (Dynalist("C10A") = False And Dynalist("C10B") = False And Dynalist("C10C") = False And Dynalist("C10D") = False And Dynalist("C10E") = False And Dynalist("C10F") = False And Dynalist("C10G") = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon10 = CompteNon10 + 1
End If
'11 TRAITEMENT
If ((Dynalist("PALU") = "1" And (Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True Or Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) Or (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True Or Dynalist("cocher27") = True Or Dynalist("cocher28") = True Or Dynalist("cocher29") = True)) Or (Dynalist("TOUR") = "1" And (Dynalist("cocher39") = True Or Dynalist("cocher40") = True)) Or (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True Or Dynalist("cocher37") = True Or Dynalist("cocher38") = True Or Dynalist("cocher39") = True)) Or (Dynalist("MALNUTRILEG") = "Malnutrition Légère" And (Dynalist("cocher31") = True Or Dynalist("cocher32") = True))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui11 = CompteOui11 + 1
ElseIf ((Dynalist("PALU") = "1" And (Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("cocher22") = False And Dynalist("cocher23") = False)) Or (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = False And Dynalist("cocher26") = False And Dynalist("cocher27") = False And Dynalist("cocher28") = False And Dynalist("cocher29") = False)) Or (Dynalist("TOUR") = "1" And (Dynalist("cocher39") = False And Dynalist("cocher40") = False)) Or (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False And Dynalist("cocher37") = False And Dynalist("cocher38") = False And Dynalist("cocher39") = False)) Or (Dynalist("MALNUTRILEG") = "Malnutrition Légère" And (Dynalist("cocher31") = False And Dynalist("cocher32") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon11 = CompteNon11 + 1
End If
'12 CONSEILS RATTRAPAGE
If (((Dynalist("EOP") = "1" Or Dynalist("EOV") = "1" Or Dynalist("EOVitA") = "1")) And Dynalist("C12") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui12 = CompteOui12 + 1
ElseIf (((Dynalist("EOP") = "1" Or Dynalist("EOV") = "1" Or Dynalist("EOVitA") = "1")) And Dynalist("C12") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon12 = CompteNon12 + 1
End If
'****************************************************
'CONCORDANCE ENTRE SIGNES/SYMPTOMES ET CLASSIFICATION
'****************************************************
''FIEVRE
If (Dynalist("RepFievre") = 1) Or Dynalist("Fièvre") = 1 And Dynalist("REF1") <> 1 And (Dynalist("FC2JT") = 1 Or Dynalist("FEC") = 1) And Dynalist("SiPABP") <> 1 And Dynalist("PALU") <> 1 And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui16 = CompteOui16 + 1
ElseIf (Dynalist("RepFievre") = "1" Or Dynalist("Fièvre") = "1") And Dynalist("REF1") <> "1" And (Dynalist("FC2JT") <> "1" And Dynalist("FEC") <> "1") And Dynalist("SiPABP") = "1" And Dynalist("PALU") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui16 = CompteOui16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = False And Dynalist("FEC") = False And Dynalist("PALU") = zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = False And Dynalist("FEC") = False And Dynalist("PALU") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = True And Dynalist("PALU") = zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
End If
''DIARRHEE
If Dynalist("RepDiar") = "1" And Dynalist("REF2") = "1" And (Dynalist("SD") = "1" Or Dynalist("SS") = "1" Or Dynalist("DTL") = "1") And Dynalist("SiTABDS") <> "1" And Dynalist("DIAS") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui17 = CompteOui17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("REF2") <> "1" And (Dynalist("SD") <> "1" Or Dynalist("SS") <> "1" Or Dynalist("DTL") <> "1") And Dynalist("DIAS") = "1" And Dynalist("SiTABDS") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui17 = CompteOui17 + 1
ElseIf Dynalist("RepDiar") = "1" And (Dynalist("SD") = "1" Or Dynalist("SS") = "1" Or Dynalist("DTL") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("REF2") = "1" And (Dynalist("SD") <> "1" Or Dynalist("SS") <> "1" Or Dynalist("DTL") <> "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("SiTABDS") <> "1" And Dynalist("DIAS") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("SiTABDS") = "1" And Dynalist("DIAS") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
End If
''PNEUMONIE
If Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50 And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui18 = CompteOui18 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") >= 40 And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui18 = CompteOui18 + 1
ElseIf Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50 And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") >= 40 And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf Dynalist("agemois") <= 12 And IsNull(Dynalist("MRPM")) And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf IsNull(Dynalist("agemois")) And IsNull(Dynalist("MRPM")) And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf ((Dynalist("age") >= 1 And Dynalist("MRPM") >= 40) Or (Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50)) And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
End If
'' TOUX/RHUME
If Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50 And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui20 = CompteOui20 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") < 40 And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui20 = CompteOui20 + 1
End If
If Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50 And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") < 40 And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf Dynalist("agemois") <= 12 And IsNull(Dynalist("MRPM")) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf IsNull(Dynalist("agemois")) And IsNull(Dynalist("MRPM")) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf ((Dynalist("age") >= 1 And Dynalist("MRPM") < 40) Or (Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50)) And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
End If
'MALNUTRITION
If ((Dynalist("AMAIGRIS") = "1" Or Dynalist("OEDEMES") = "1") And Dynalist("MALNUTRISEV") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
ElseIf ((Dynalist("POIDFAIB") = "1" Or Dynalist("POIDSTAT") = "1") And (Dynalist("MALNUTRILEG") = "1")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
ElseIf (Dynalist("POIDNORM") = "1" Or Dynalist("PASIGNMAL") = "1") And Dynalist("PASMALNUTRI") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
End If
If ((Dynalist("AMAIGRIS") = "1" Or Dynalist("OEDEMES") = "1") And Dynalist("MALNUTRISEV") = "0") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf ((Dynalist("AMAIGRIS") = "0" And Dynalist("OEDEMES") = "0") And Dynalist("MALNUTRISEV") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf ((Dynalist("POIDFAIB") = "0" Or Dynalist("POIDSTAT") = "0") And (Dynalist("MALNUTRILEG") = "1")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf ((Dynalist("POIDFAIB") = "1" And Dynalist("POIDSTAT") = "1") And (Dynalist("MALNUTRILEG") = "0")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf (Dynalist("POIDNORM") = "1" Or Dynalist("PASIGNMAL") = "1") And Dynalist("PASMALNUTRI") = "0" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf (Dynalist("POIDNORM") = "0" And Dynalist("PASIGNMAL") = "0") And Dynalist("PASMALNUTRI") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
End If
'CONCORDANCE ENTRE CLASSIFICATION ET TRAITEMENT/ACTION
'' SIGNES DE DANGER/ALERTE
If Dynalist("CASREF") = "1" And (Dynalist("C10A") = True Or Dynalist("C10B") = True Or Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True Or Dynalist("C10F") = True Or Dynalist("C10G") = True) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui22 = CompteOui22 + 1
ElseIf Dynalist("CASREF") = "1" And (Dynalist("C10A") = False And Dynalist("C10B") = False And Dynalist("C10C") = False And Dynalist("C10D") = False And Dynalist("C10E") = False And Dynalist("C10F") = False And Dynalist("C10G") = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon22 = CompteNon22 + 1
End If
''FIEVRE
If Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui23 = CompteOui23 + 1
ElseIf Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui23 = CompteOui23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
End If
''DIARRHEE
If Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui24 = CompteOui24 + 1
ElseIf Dynalist("DIAS") = "1" And Dynalist("cocher25") = False And Dynalist("cocher26") = False And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
ElseIf Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
ElseIf (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = False And Dynalist("cocher26") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
End If
'' PNEUMONIE
If (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui25 = CompteOui25 + 1
FPT1 = True
FPT1 = True
ElseIf (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon25 = CompteNon25 + 1
FPTN1 = True
FPTN1 = True
End If
'' FIEVRE + PNEUMONIE
If Dynalist("PALU") = "1" And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
If ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True))) And ((Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui26 = CompteOui26 + 1
ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui26 = CompteOui26 + 1
ElseIf ((Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
ElseIf ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
ElseIf (((Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
ElseIf ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
End If
End If
'' TOUX/RHUME
If Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui27 = CompteOui27 + 1
ElseIf Dynalist("cocher39") = False And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1
End If
'' MALNUTRITION
If Dynalist("MALNUTRILEG") = "1" And Dynalist("cocher31") = True And Dynalist("cocher32") = True And Dynalist("cocher45") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui28 = CompteOui28 + 1
ElseIf Dynalist("MALNUTRILEG") = "1" And (Dynalist("cocher31") = False Or Dynalist("cocher32") = False Or Dynalist("cocher45") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon28 = CompteNon28 + 1
End If
'***************************************
'CONCORDANCE ENTRE AGE ET DOSE
'***************************************
''REFERENCE
If Dynalist("CASREF") = "1" And (Dynalist("C10A") = True Or Dynalist("C10B") = True Or Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True Or Dynalist("C10F") = True Or Dynalist("C10G") = True) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui29 = CompteOui29 + 1
ElseIf Dynalist("CASREF") = "1" And (Dynalist("C10A") = False And Dynalist("C10B") = False And Dynalist("C10C") = False And Dynalist("C10D") = False And Dynalist("C10E") = False And Dynalist("C10F") = False And Dynalist("C10G") = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon29 = CompteNon29 + 1
End If
' SIGNE DE DANGER ET FIEVRE
'If Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
' SIGNE DE DANGER ET DIARRHEE
'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
' SIGNE DE DANGER AVEC FIEVRE ET DIARRHEE
'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True))) And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
' SIGNE DE DANGER SANS FIEVRE NI DIARRHEE
'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
'NOURRISSON 1 A 2 MOIS AVEC SIGNE DE DANGER
'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
'NOURRISSON AVEC FIEVRE
'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And Dynalist("Fièvre") = "Oui" And (Dynalist("C10B") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
'NOURRISSON AVEC DIARRHEE
'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True And (Dynalist("Diarrhée") = "Oui" Or Dynalist("RepDiar") = "Oui") And Dynalist("C10F") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
'NOURRISSON AVEC FIEVRE ET DIARRHEE
'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True))) And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
' SIGNE DE DANGER SANS FIEVRE NI DIARRHEE
'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
''FIEVRE
If Dynalist("cocher18") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") >= 2 And Dynalist("Agemois") < 7 And IsNull(Dynalist("Age"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher19") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") >= 7 And Dynalist("Agemois") < 12 And IsNull(Dynalist("Age"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher21") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And ((Dynalist("Agemois") >= 12 And Dynalist("Agemois") < 59 And IsNull(Dynalist("Age"))) Or ((Dynalist("Age") >= 1 And Dynalist("Age") < 5) And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12)) Or (Dynalist("Age") >= 1 And Dynalist("Age") < 5) And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher22") = True And Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") < 36 Or (Dynalist("Age") < 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") <= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher23") = True And Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") > 36 Or (Dynalist("Age") > 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") >= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And Dynalist("PALU") = "1" And Dynalist("cocher23") = True And (Dynalist("Agemois") >= 36 Or (Dynalist("Age") >= 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") >= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And Dynalist("cocher22") = True And Dynalist("PALU") = "1" And (Dynalist("Agemois") <= 36 Or Dynalist("Age") <= 3) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
End If
'partie non
If (Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 7) And Dynalist("PALU") = "1" And Dynalist("cocher18") = True And Dynalist("cocher22") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf ((Dynalist("AgeMois") >= 7 And Dynalist("AgeMois") < 12) And Dynalist("PALU") = "1" And Dynalist("cocher19") = True And Dynalist("cocher22") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf (((Dynalist("Age") < 3 And Dynalist("AgeMois") < 59) Or Dynalist("Agemois") >= 12) And Dynalist("PALU") = "1" And Dynalist("cocher21") = True And Dynalist("cocher23") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf (Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
End If
''DIARRHEE
If Dynalist("DIAS") = "1" And (Dynalist("Age") < 2 Or Dynalist("agemois") < 24) And Dynalist("cocher25") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui31 = CompteOui31 + 1
ElseIf Dynalist("DIAS") = "1" And (Dynalist("Age") > 2 Or Dynalist("agemois") > 24) And Dynalist("cocher26") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui31 = CompteOui31 + 1
End If
If Dynalist("DIAS") = "1" And Not ((Dynalist("Age") < 2 Or Dynalist("agemois") < 24)) And Dynalist("cocher25") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon31 = CompteNon31 + 1
ElseIf Dynalist("DIAS") = "1" And Not ((Dynalist("Age") > 2 Or Dynalist("agemois") > 24)) And Dynalist("cocher26") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon31 = CompteNon31 + 1
End If
''PNEUMONIE
If Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 6 And IsNull(Dynalist("Age")) And Dynalist("cocher34") = True And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 6 And IsNull(Dynalist("Age")) And Dynalist("cocher34") = False And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1
ElseIf (Dynalist("Age") < 3 Or Dynalist("AgeMois") >= 6) And Dynalist("cocher35") = True And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf (Dynalist("Age") < 3 Or Dynalist("AgeMois") >= 6) And Dynalist("cocher35") = False And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1
ElseIf Dynalist("Age") >= 3 And Dynalist("RESRAP") = "1" And Dynalist("cocher36") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf Dynalist("Age") >= 3 And Dynalist("RESRAP") = "1" And Dynalist("cocher36") = False And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1
End If
'e) Toux/Rhume
If Not (IsNull(Dynalist("Age"))) Or Not (IsNull(Dynalist("AgeMois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
If Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui34 = CompteOui34 + 1
ElseIf Dynalist("cocher39") = False And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1
End If
End If
''Malnutrition
If Dynalist("MALNUTRILEG") = "1" And Dynalist("cocher31") = True Or Dynalist("cocher32") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui35 = CompteOui35 + 1
ElseIf Dynalist("MALNUTRILEG") = "1" And (Dynalist("cocher31") = False And Dynalist("cocher32") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon35 = CompteNon35 + 1
End If
'' VISITE DE SUIVI EFFECTUEE
If Dynalist("VISITE") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui36 = CompteOui36 + 1
Else
CompteNon36 = CompteNon36 + 1
End If
'CONCORDANCE ENTRE SIGNES/SYMPTOMES, CLASSIFICATION ET ACTION LORS DU SUIVI
'cas du oui
If ((Dynalist("MereRev") = True Or Dynalist("MerePasRev") = True Or Dynalist("RevQuand") <> zero Or Dynalist("WhyPasRev") <> zero Or Dynalist("ETENFAGR") <> zero Or Dynalist("ENFPLIANTE") <> zero Or Dynalist("C13B") = True Or Dynalist("C13G1") = True Or Dynalist("C13G2") = True Or Dynalist("C13G3") = True Or Dynalist("RESPRAPIDE") <> zero Or Dynalist("Nbre de Mvts") <> zero Or Dynalist("dose") <> zero) And Dynalist("EIBT2") <> zero And Dynalist("EVT2") <> zero And Dynalist("EC2") <> zero And Dynalist("EI2") <> zero And Dynalist("APP2") <> zero And Dynalist("RDTS2") <> zero And Dynalist("EDPM") <> zero And Dynalist("FPMT") <> zero And Dynalist("DESHYDRA") <> zero And Dynalist("AECP") <> zero And Dynalist("SDSelles") <> zero And Dynalist("DIATLIQUID") <> zero And Dynalist("APANORMAL") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui37 = CompteOui37 + 1
End If
If ((Dynalist("MereRev") = True Or Dynalist("MerePasRev") = True Or Dynalist("RevQuand") <> zero Or Dynalist("WhyPasRev") <> zero Or Dynalist("ETENFAGR") <> zero Or Dynalist("ENFPLIANTE") <> zero Or Dynalist("C13B") = True Or Dynalist("C13G1") = True Or Dynalist("C13G2") = True Or Dynalist("C13G3") = True Or Dynalist("RESPRAPIDE") <> zero Or Dynalist("Nbre de Mvts") <> zero Or Not (IsNull(Dynalist("Nbre de Mvts"))) Or Dynalist("dose") <> zero) And (Dynalist("EIBT2") = zero Or Dynalist("EVT2") = zero Or Dynalist("EC2") = zero Or Dynalist("EI2") = zero Or Dynalist("APP2") = zero Or Dynalist("RDTS2") = zero Or Dynalist("EDPM") = zero Or Dynalist("FPMT") = zero Or Dynalist("DESHYDRA") = zero Or Dynalist("AECP") = zero Or Dynalist("SDSelles") = zero Or Dynalist("DIATLIQUID") = zero Or Dynalist("APANORMAL") = zero)) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon37 = CompteNon37 + 1
End If
Dynalist.MoveNext
Loop
ouiId.Value = CompteOui
nonId.Value = CompteNon
ouiId2.Value = CompteOui2
nonId2.Value = CompteNon2
ouiId.Value = CompteOui
nonId.Value = CompteNon
ouiId3.Value = AffSigne()
nonId3.Value = AffSigneN()
ouiId4.Value = CompteOui4
nonId4.Value = CompteNon4
ouiId5.Value = CompteOui5
nonId5.Value = CompteNon5
ouiId6.Value = CompteOui6
nonId6.Value = CompteNon6
ouiId7.Value = CompteOui7
nonId7.Value = CompteNon7
ouiId8.Value = CompteOui8
nonId8.Value = CompteNon8
ouiId9.Value = CompteOui9
nonId9.Value = CompteNon9
ouiId10.Value = CompteOui10
nonId10.Value = CompteNon10
ouiId11.Value = CompteOui11
nonId11.Value = CompteNon11
ouiId12.Value = CompteOui12
nonId12.Value = CompteNon12
ouiId16.Value = CompteOui16
nonId16.Value = CompteNon16
ouiId17.Value = CompteOui17
nonId17.Value = CompteNon17
ouiId18.Value = CompteOui18
nonId18.Value = CompteNon18
ouiId19.Value = AffFievreP()
nonId19.Value = AffFievrePN()
ouiId20.Value = CompteOui20
nonId20.Value = CompteNon20
ouiId21.Value = CompteOui21
nonId21.Value = CompteNon21
ouiId22.Value = CompteOui22
nonId22.Value = CompteNon22
ouiId23.Value = CompteOui23
nonId23.Value = CompteNon23
ouiId24.Value = CompteOui24
nonId24.Value = CompteNon24
ouiId25.Value = CompteOui25
nonId25.Value = CompteNon25
ouiId26.Value = CompteOui26
nonId26.Value = CompteNon26
ouiId27.Value = CompteOui27
nonId27.Value = CompteNon27
ouiId28.Value = CompteOui28
nonId28.Value = CompteNon28
ouiId29.Value = CompteOui29
nonId29.Value = CompteNon29
ouiId30.Value = CompteOui30
nonId30.Value = CompteNon30
ouiId31.Value = CompteOui31
nonId31.Value = CompteNon31
ouiId32.Value = CompteOui32
nonId32.Value = CompteNon32
ouiId33.Value = AffFievre()
nonId33.Value = AffFievreNon()
ouiId34.Value = CompteOui34
nonId34.Value = CompteNon34
ouiId35.Value = CompteOui35
nonId35.Value = CompteNon35
ouiId36.Value = CompteOui36
nonId36.Value = CompteNon36
ouiId37.Value = CompteOui37
nonId37.Value = CompteNon37
ouiId38.Value = CompteOui38
nonId38.Value = CompteNon38
End Sub
j'attend donc une aide d'urgence, car je dois rementtre le projet avant le 27 de ce mois .
merci a tous.
