Bonjour,

Je m'arrache les cheveux !
Help !!!

J'ouvre une requête en vba, celle-ci renvoie bien au moins un enregistrement lorsque je la teste avec une requête, mais mon Rst.EOF me renvoie systématiquement True.
Or cela me bloque pour la suite.

Je ne comprends pas du tout pourquoi.

Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
        Dim Rst1 As New Recordset
        Dim str_sql1 As String
 
        str_sql1 = "SELECT F.<> FROM 4_Fa AS F WHERE (((F.Date) Like """ & "*" & AnneeEnCours & """));"
 
        Rst1.Open str_sql1, connec, adOpenDynamic, adLockOptimistic
 
        If Rst1.EOF = True Then MsgBox "Bip"
J'ai donc bien un retour "Bip" systématique.

Est-ce que quelqu'un aurait une idée ?

Vraiment merci d'avance.
Tipstitou