Discussion :

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

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

[triaguae]

Bonjour,

1-si le but est de faire vos conditions sur le code

Code :

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

1
2
strSql = "SELECT * " & _
"FROM evacuation "

, c'est raté, car à aucun moment dans le code, elle n'est exécutée
2-les tests de conditions qui sont faits ici vont aller chercher dans des contrôles du formulaire dans lequel vous êtes; mais je ne crois comprendre que ce n'est pas le cas

Il faut donner la structure de vos tables de départ, afin de mieux comprendre!

[chernirachid]

Merci pour votre réponse, voici ma requête dans la pièce jointe que je cherche la condition si sortie est vide me donne un message sinon il quitte. Merci

Joyeuses fetes