[AC-2000] Test sur un recordset [Résolu]

[Tydher]

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

[Tydher]

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 !