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:
Mnu est la Clé de la base
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
Requête1 est le nom de la requête dans access.
Merci de votre Attention.
Partager