Discussion :

[jojodid]

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

[marot_r]

Désolé mais l'erreur n'est pas mise évidence dans ton post peux-tu indiquer où elle se trouve ?

A+