Conditions entre les champs

[chernirachid]

Bonjour,
j'ai une requete d'heures et d'une seule date du la journée meme, je veux faire de tel sorte que si j'appuis sur le bouton quit, un message m'indique qu'il reste encore du monde et ceci par rapport a cette requette qui ne fonctionne pas

 strSql = "SELECT * " & _
"FROM evacuation "
  If (Not IsNull(lundi1) And IsEmpty(lundi2)) Or (Not IsNull(mardi1) And IsEmpty(mardi2)) Or (Not IsNull(mercredi1) And IsEmpty(mercredi2)) Or (Not IsNull(jeudi1) And IsEmpty(jeudi2)) Or ((vendredi1) <> "" And IsEmpty(vendredi2)) Or (Not IsNull(samedi1) And IsEmpty(samedi2)) Or (Not IsNull(dimanche1) And IsEmpty(dimanche2)) Then
 
 If MsgBox("yous avez encore du monde à l'interieure..." _
                   & vbCrLf & "retour au fiche d'evacuation" & _
                   vbCrLf & vbCrLf & "Voulez-vous continuer ?", vbExclamation + vbYesNo + vbDefaultButton2, _
                   "continuer") = vbYes Then
 
 End If
   Else
    MsgBox "Merci bye", vbCritical, "Message de Rachid Cherni"
 
Quit
 
 End If

... et toujours me donne la 2 eme reponse malgres qu'il ya un champs 1 qui est l'heure d'entrée plein et champs 2 qui est l'heure de sortie vide. Merci