[AC-2007] Suite au passage 2003 vers 2007 prob sur Set rs_bq = db.OpenRecordset(rq_bq, dbOpenDynaset) [Résolu]

[Bernard67]

Bonjour le forum,

Suite au passage de 2003 à 2007, j'ai un problème sur le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim db As Database
Dim rs_bq As Recordset
Dim rs_det As Recordset
Dim rq_bq As String
Dim rq_det As String
Dim stDocName As String
 
Dim anc_bq As String
 
Set db = Application.CurrentDb
 
DoCmd.RunSQL ("delete * from tbl_temp_input")
 
DoEvents
 
DoCmd.OpenQuery "rqt_creation_input", acViewNormal, acEdit
 
rq_bq = "SELECT T_IMPORT_ETA.BANQUE " & _
        "FROM (T_POSTE RIGHT JOIN T_IMPORT_ETA ON T_POSTE.Code_Poste = T_IMPORT_ETA.POSTE) LEFT JOIN T_CORRESPONDANT ON T_IMPORT_ETA.BANQUE = T_CORRESPONDANT.Code_Banque " & _
        "GROUP BY T_IMPORT_ETA.BANQUE " & _
        "ORDER BY T_IMPORT_ETA.BANQUE"
 
Set rs_bq = db.OpenRecordset(rq_bq, dbOpenDynaset)
 
If rs_bq.RecordCount = 0 Then
    MsgBox "Il n'y a aucune banque à traiter ", vbOKOnly
    Exit Sub

Le blocage se trouve sur cette ligne car rs_bq est toujours egal à 0

Code :

Set rs_bq = db.OpenRecordset(rq_bq, dbOpenDynaset)

Après de moult recherches, je n'arrive pas à trouver la solution, alors que sur 2003 tout fonctionne correctement.
Merci pour l'aide.

[jpcheck]

salut,

en precisant de quel type de recordset il s'agit, tu auras une piste
ADODB ou DAO.Recordset

Vu le code utilise, je penche pour du DAO

[Bernard67]

Bonjour jpcheck, le forum.

Effectivement tu as raison, c'est DAO.Recordset.
La modif est faite et tout fonctionne comme avant sur 2003.

Merci encore et bon WE.
Cordialement