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:

1. Utilisateur
2. DateMiseAjour

A l'aide du 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 !

Bonjour Pierre,

Voilà j'ai probablement dû faire une bêtise supplémentaire car après modification sur le formulaire lorsque je vais sur le sélecteur d'enregistrement et que j'essaye de passer au suivant mes deux champs "utilisateur" & "DateMiseAjour sont actualisé mais je reste bloqué sur l'enregistrement et n'arrive plus à passer au suivant ?.....

J'ai donc maintenant en propriétés du formulaire sur après MAJ:

Private Sub Form_AfterUpdate()
Me.Utilisateur = CurrentUser
Me.test = Now
End Sub

Et sur les 4 listes j'ai placé le code du style:

Private Sub Modifiable11_Enter()
Modifiable11.Requery
End Sub

Private Sub Form_AfterUpdate()
Me.Utilisateur = CurrentUser
Me.test = Now
End Sub

• Uniquement celui qui crée l'enregistrement
• Chacun qui crée ou modifie un enregistrement

Bonsoir Pierre,

Ok, j'ai résolu provisoirement le problème car il y a pas mal de code dans les propriété de ce formulaires et pour simplifier j'ai provisoirment tout effacé !

Il ne me reste plus que:

Private Sub Form_AfterUpdate()
Me.Utilisateur = CurrentUser
Me.test = Now
End Sub

Dans un 1er temp je rejoins la deuxième proposition à savoir le dernier utilisateur qui a créer ou modifier l'enregistrement avec la date de cette modification.

Et dans un second temp j'aurais bien voulu avoir uniquement une date dans un autre champ à laquelle l'enregistrement a été créer pour la 1ère fois.

Merci d'avance !

Bonjour Pierre,

Avec ce code là après modifictaion des donnée d'un enregistrement lorsque j'essaie de passer au suivant j'ai le message suivant:

Erreur d'exécution:2115. La macro ou la fonction attribuée à la propriété 'Avant Maj' ou 'Valide si' pour ce champ empêche ms-access d'enregistrer les données dans le champ.

Merci beaucoup !

Bonjour Pierre,

Je souhaite t'informer que pour moi il n'y acune urgence à trouver la solution à ce problème mais que malgré tout cela me ferait plaisir de pouvoir utiliser ce code qui avait fait l'objet d'une longue discussion sur Forum - Problèmes liés aux codes du site - Sujet n°362. Sans qui tout celà ne sera pas perdu puisque cela m'aura quand même permis de m'instruire d'avantage et apprendre qu'il y avait des mots réservés à Access à n'utiliser en aucuns cas du style "Date".

Soit, j'ai créer une nouvelle base avec comme table:

N° du type NuméroAuto / Utilisateur / DateMaj / Encodage

Puis j'ai créer un formulaire sur base de cette table et en propriétés de formulaires j'ai ajouté le code:

Private Sub Form_AfterUpdate()
        Me.Utilisateur = CurrentUser
        Me.DateMaj = Date
        Me.Dirty = False
End Sub

Et le problème persiste avec le même message:

Erreur d'exécution:2115. La macro ou la fonction attribuée à la propriété 'Avant Maj' ou 'Valide si' pour ce champ empêche ms-access d'enregistrer les données dans le champ.

Alors que ici, je suis certain de ne plus avoir de code douteux qui puisse interférer....

Quoi qu'il advienne, je te remercie pour ton professionnalisme à trouver des solutions provenant de tous les internautes s'intéressant de près ou de loin à access ainsi que toute ta patience et ton courage !

Peut-être d'autres visiteurs pourrons m'apporter la solution ou que peut-être tu auras un autre forum aussi performant que le tiens à me proposer ?.... Bien que je doute.... (J'ai déjà cherché et reviens toujours ICI )

Je te souhaite une excellente fin de week-end ainsi qu'une agréable semaine !