Discussion :

[pedrus16]

Bonjour,

J'ai cherché un peu partout mais tout ce que j'ai trouvé c'est ce genre de code.

Code :

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

1
2
3
4
5
Set rep = CurrentDb.OpenRecordset("req courrier nouveau", dbOpenSnapshot)
 
    If rep.EOF Then
          'Mon code
    End If

Malheureusement, il ne fonctionne pas : Le code est quand même exécuté même si la requête ne retourne rien (et ça j'en suis sûr).

Je ne vois pas où se trouve l'erreur dans ce code ou si il faut utiliser complètement autre chose. si vous pouviez éclairer ma lanterne là dessus je vous en serait très reconnaissant.

[al_bert]

Bonjour,

essais peut-être avec la propriété RecordCount du recordset. Par exemple :

Code :

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

1
2
3
4
5
If rep.RecordCount = 0 then
   msgbox "Résultat NULL"
else
   msgbox "Résultat non NULL"
end if

En fait, la propriété RecordCount te permettra de compter le nombre d'enregistrement(s) retourné(s) par ta requête.

Bonne journée!

[tom@tom]

je crois que ton code ne s'exécute QUE s'il n'y a PAS d'enregistrement à ta requête.
je pense que cela devrait marcher :

Code :

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

1
2
3
    If not(rep.EOF) Then
          'Mon code
    End If

Explication :
EOF signifie End Of File (fin de fichier), il prend la valeur Vrai quand la fin du fichier est atteinte.
s'il n'y pas d'enregistrement du tout dans la requête, alors la fin du fichier est atteinte dès l'ouverture.

Ainsi le if ci dessus permet de tester si tu n'as PAS atteint la fin du fichier.

[pedrus16]

Merci beaucoup. Effectivement avec un Not ça fonctionne mieux. J'aurais peut-être dû me renseigner sur ce .EOF avant de l'utiliser n'importe comment