Test sur un recordset

Bonjour à tous,

Sous access 2000, j'ai un module VBA qui m'effectue divers traitements.
A un moment j'utilise un recordset. Ma requete SQL me récupére un seul enregistrement. Je veux donc tester si "res" est null ou non :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim db As DAO.Database Dim res As DAO.Recordset Set db = CurrentDb() ... Sql = ("Select Equipment.IDEQUIPMENT from Equipment where IDEQUIPMENT ='" & IdEq & "'") Set res = CurrentDb.OpenRecordset(Sql) 'Set res = db.OpenRecordset(Sql) If Not res Is Null Then ... End If

---

Cependant, dans mon If, un message d'erreur apparait
" Object requis"
Je pense que je n'utilise pas bien ma variable "res" mais je ne vois pas comment l'utiliser autrement...
J'ai été voir dans la FAQ mais elle ne m'a pas beaucoup aidé (la référence DAO est bien activé)

Merci d'avance pour vos réponses

Bon j'ai trouvé la réponse ici :

http://warin.developpez.com/access/d...artie_5#L5.3.1

J'ai donc :

Code:

---

1 2	If Not res.EOF Then End If

---

Si res.EOF est = à faux, alors j'ai bien un enregistrement !