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:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16Private 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
