Bonjour tout le monde,

Voici un code que j'ai réussi à faire marcher sur une base de données plus simple mais sur celle-là, il n'y a pas moyen. Je comprends pas quelqu'un aurait-il une idée?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function kEUR(CdEnt, CODE_SOUS_CATEGORIE_DE_DEPENSE)
 
Dim BD As DAO.Database, QDF As QueryDef
Dim RS As DAO.Recordset
nombd = "C:\Regroupement.mdb"
Set BD = OpenDatabase(nombd)
Set QDF = BD.QueryDefs("Requete_Test_Alex")
QDF.Parameters(0) = CdEnt
QDF.Parameters(1) = CODE_SOUS_CATEGORIE_DE_DEPENSE
 
Set RS = QDF.OpenRecordset 'alimente la fonction keur du champ keur du RS
kEUR = RS!kEUR
 
End Function