Erreur Ouverture OpenRecordset

[Johanne]

Bonjour à tous,
Je rencontre l'erreur suivante lors de l'execution de la ligne suivante :
Set rsImportCra = cnxEntract.OpenRecordset(strRequete, dbOpenDynamic)

If Err <> 0 Then
MsgBox "erreur:" & Err.Description

Exit Sub
End If
Le message d'erreur : Variable objet ou variable de bloc With non définie.
Erreur 91.
J'ai pourtant déclarer tous les objets :
Constante :
Public cnxEntract As Connection
Dans la fonction :
Dim rsImportCra As Recordset
Dim strRequete As String
strRequete contient bien quelque chose :
strRequete = "Select ANNEEMOIS,Sum(LIGNECRA.TOTALJOURPROJ) as NbreReel" _
& " FROM LIGNECRA, CRA " _
& " WHERE LIGNECRA.CRCLEUNIQUE = CRA.CRCLEUNIQUE" _
& " AND CRA.NUMMOIS>= " & NumMois & "" _
& " AND CRA.ANNEE>= " & NumAnnee & "" _
& " AND CRA.USCLEUNIQUE = " & uscleunique & "" _
& " AND LIGNECRA.PRCLEUNIQUE IN ( SELECT PROJET.PRCLEUNIQUE FROM PROJET WHERE PROJET.LIBELLEPROJET LIKE '" & UCase(idProjet) & "') " _
& " GROUP BY ANNEEMOIS " _
& " ORDER BY ANNEEMOIS"

Et pourtant...
Quelqu'un pourrait il m'aider ?
Merci d'avance

 

[Michel_M]

Bonjour,

Ta question aurait plus de chance d'aboutir sur l'excellent site: www.self-access.com

néanmoins comme tu sembles être en ADO

essaies la ligne suivante à placer devant la ligne openrecordset

Set rsImportCra = new recordset

tiens moi au courant

A+
Michel

 

[Vincent]

Salut Johanne,

Il me semble que tu devrais declarer egalement la session et la base :
Dim MySession as workspace
Dim MyBd as database

Set MySession=DBEngine.Workspaces(0)
Set Db = Session.OpenDatabase(DbName)

de cette maniere tu declares ensuite ton recordset

set rsImportCra=Db.OpenRecordset(strRequete)


Tiens moi au courant ...

A+

Vincent