Bonjour au Forum,
Dans un formulaire j'ai placé un bouton me permettant de mettre à jour un sous formulaire avec les valeurs du formulaire à l'aide de la fonction recordset. Cela fonctionne très bien (merci madefemere). J'ai voulu réitérer l'opération avec un autre formulaire basé sur la même table mais il me dit : "This error occurs when an event has failed to run because Microsoft Office Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired."
Je ne comprends pourquoi j'obtiens une erreur sur l'un et pas sur l'autre.
Code du bouton du premier formulaire :
Code du bouton du deuxième formulaire :
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 Private Sub Btn_Valider_Click() With Me.[SF_Validation_Mission_Manager].Form.Recordset While Not .EOF 'Passe en mode modification .Edit 'Affecte la date et la case à coché ![Validation Manager] = Me![Validation Manager] ![Statut_Demande] = Me![CboStatut_Demande] 'Met à Jour .Update 'Passe au suivant .MoveNext Wend End With End Sub
Merci à celui ou celle qui m'aidera à trouver la solution.
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 Private Sub Btn_Valider_Click() With Me.[SF_Validation_1erProlong_Manager].Form.Recordset While Not .EOF 'Passe en mode modification .Edit 'Affecte la date et la case à coché ![1er_prolong_Validation_Manager] = Me![1er_prolong_Validation_Manager] ![1er_prolong_Statut_Demande] = Me![Cbo1er_prolong_Statut_Demande] 'Met à Jour .Update 'Passe au suivant .MoveNext Wend End With End Sub
Cordialement
Partager