Discussion :

[le_niak]

Bonjour,

Voici mon code qui me génére l'erreur suivante :
Too Few Parameters expected 3.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Selection_Click()
 
Dim rs2 As DAO.Recordset
Dim Risk As Integer
IDRisk3 = Me.lstResults16
IDCompo3 = Forms!Risks2.IDCompo2
IDFund3 = Forms!Risks2.IDfund2
 
MsgBox IDRisk3
MsgBox IDCompo3
MsgBox IDFund3
 
 
If CurrentProject.AllForms("Risks2").IsLoaded = True Then
    CurrentDb.Execute "Update NAV Set ID_Risk = IDRisk3 Where (ID_Compo=IDCompo3 and ID_Fund=IDFund3)"
End If
 
DoCmd.Close acForm, "Risks3"
 
End Sub

Ce que je ne comprends pas c'est que IDRisk3,IDCompo3 et IDFund3 contiennent bien une valeur.


Merci

[tazmania]

Dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CurrentDb.Execute "Update NAV Set ID_Risk = IDRisk3 Where (ID_Compo=IDCompo3 and ID_Fund=IDFund3)"

Tes variables ne sont pas prises en compte.
A vérifier la syntaxe mais la technique serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "Update NAV Set ID_Risk = IDRisk3 Where (ID_Compo=" & IDCompo3 & "and ID_Fund=" & IDFund3 & ")"

[le_niak]

Merci pour ta rapidité.
Je suppose que je dois aussi modifier la syntaxe pour le IDRisk3?

Merci

[tazmania]

Oui en effet, je l'avais oublié celui là

[le_niak]

En tout cas merci
Ca fonctionne