Bonjour le forum,
voilà je galère depuis plus d'un mois pour exécuter ma requête de mise à jour que j'ai réalisé dans la base de donnée Access; via mon projet vb6
j'ai trouvé ce bout de code sur le net mais ça calle ci-joint:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
Dim rq As QueryDef
Dim rst As Recordset
 
Set bd = OpenDatabase("G:\GestionFoyer\Menage.mdb")
Set rq = bd.QueryDefs("Requête1")
rq.Parameters("Num") = ptrparam&             'à ce niveau deéclare.. Error(8085) Fonction nz non défini dans l'expression
rq.Parameters("Menage") = ""                    
 'la fonction nz utilisée dans reqête1 access est:Nz(SomDom(" [Debit]";"Depenses";"Num <=" & [Num]))-Nz(SomDom(" [Credit] ";"Depenses";"Num<=" & [Num]))
Set rst = rq.OpenRecordset
 
'=================================
End Sub
Mnu est la Clé de la base
Requête1 est le nom de la requête dans access.
Merci de votre Attention.