Bonsoir Pierre,
J'ai un formulaire qui à 4 zones de listes déroulantes pour rechercher des enregistrement spécifiques dans un formulaire.
Depuis peux grâce à tes précieux conseils sur le Forum - Problèmes liés aux codes du site - Sujet n°362 j'ai rajouté deux champs:
- Utilisateur
- DateMiseAjour
A l'aide du code:
Code :Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.DateMiseAjour = Date
Me.Utilisateur = CurrentUser
End Sub
Ce qui me permet un contrôle sur la date et l'utilisateur qui a mis les données à jour.
Ce code est placé sur les propriété du formulaire "Avant Maj" et depuis j'ai régulièrement le message du style:
Code :Erreur d'exécution'-2147352567 (80020009)'
Update ou CancelUpdate effectué sans appeler AddNew ni Edit.
lors de l'utilisation de mes liste déroulantes.
Je suppose qu'il ne s'agit que d'une manipulation d'actualisation des données mais où et comment ?...
Ci-dessous le style de code que j'ai pour mes 4 listes sur après MAJ:
Code :Private Sub Modifiable11_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[N° CLIENT] = " & Str(Nz(Me![Modifiable11], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Merci d'avance et bonne soirée !