j'utilse une base de donnée access sur la qelle un de mes formulaire refuse de faire la mise à jour des modificationd effectuées sur les données.
Aprés quelques investigation je constate qu'il y a un bug dans le script de sorite de ce dernier à l'ndroit colorier en jaune dans le code ci-après;
Pourriez-vous s'il vous plait m'aider à le déboguer?

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
Private Sub Form_Unload(Cancel As Integer)
    Dim dbsCourante As DAO.Database
    Dim Param_Q As DAO.QueryDef
    Dim Jeu As DAO.Recordset
        
    
    Set dbsCourante = CurrentDb()
    Set Param_Q = dbsCourante.QueryDefs("Max_prix")
    Param_Q.PARAMETERS("Code article") = Forms![Modification détail de prix]![SSF_MdDet]![Code détail de prix]
   
    Set Jeu = Param_Q.OpenRecordset()
    If Not Jeu.EOF Then
     Jeu.MoveFirst
   Forms![Modification détail de prix]![SSF_MdDet]![Max_Prix] = Jeu![MaxDePrix]
    End If
End Sub