Bonsoir Pierre et avant tout merci de m'accorder un peus de ton temps....
Voilà, si je pense que effectivement mes champs Utilisateur et DateMaj font partie de la source du formulaire puisqu'ils font partie de ma table client qui est en source du formulaire.
Si je place le code sur "avant mise à jour" du formulaire celui-ci répond correctement pour autant que je n'utilise pas mes menu déroulants pour changer d'enregistrement....
Si après modification d'un enregistrement j'essaye de passer à un autre enregistrement à l'aide d'un de mes 4 menus déroulant j'en reviens au point de départ comme sité comme problème dans l'énoncé de se sujet, à savoir un message d'erreur du type:
Citation : AlainErreur d'exécution'-2147352567 (80020009)'
Update ou CancelUpdate effectué sans appeler AddNew ni Edit.
Je joins ci-dessous un détails de la totalité des codes de ce formulaire:
Mes 4 menus déroulants sont:
- Modifiable11
- Modifiable17
- Modifiable76
- Modifiable166
Code :Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.datemiseajour = Date
Me.Utilisateur = CurrentUser
End Sub
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
Private Sub Modifiable11_Enter()
Modifiable11.Requery
End Sub
Private Sub Modifiable166_Enter()
Modifiable166.Requery
End Sub
Private Sub Modifiable17_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[N° CLIENT] = " & Str(Nz(Me![Modifiable17], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Modifiable17_Enter()
Modifiable17.Requery
End Sub
Private Sub Modifiable76_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[N° CLIENT] = " & Str(Nz(Me![Modifiable76], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Modifiable166_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[N° CLIENT] = " & Str(Nz(Me![Modifiable166], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Modifiable76_Enter()
Modifiable166.Requery
End Sub
Merci et bonne soirée !!!
© 2004-2013 
