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