Gestion des modifs avec Form_BeforeUpdate

Version imprimable

Bonjour à tous... j'espère que les fêtes ont été bonnes !!! :D

j'aimerai gérer les modifications apportées à un client soit avec un bouton perso soit avec Form_BeforeUpdate.

J'ai un formulaire affichant les infos d'un client, certaines de ces infos sont modifiables. J'ai un bouton+vba pour enregistrer les modifications éventuelles.... avec un champ date_modif
J'utilise donc :
Code:

1 2 3 strSQL = "UPDATE t_client SET ..." CurrentDb.Execute strSQL, dbFailOnError
Ce bouton/code marche très bien.... :)

Le problème se trouve au niveau du Form_BeforeUpdate.
Code:

1 2 3 4 5 6 7 8 Private Sub Form_BeforeUpdate(Cancel As Integer) ' changement de client > demande à l'utilisateur s'il faut enregistrer les modifs If MsgBox("Voulez-vous confirmer la modification ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then Me.Undo Cancel = True End If End Sub
- soit il redemande s'il faut enregistrer après avoir utiliser le bouton
- soit il m'indique qu'il y a un conflit d'écriture.... :?

Dans tous les cas, je n'arrive pas en enregistrer la date_modif avec Form_BeforeUpdate...

Comment faire correctement cet UPDATE dans les 2 manières ?
Merci d'avance

@+ Tchup :wink:

04/01/2006, 12h12
Tchupacabra

:help: s'il vous plait.... y a bien quelqu'un qui serait gérer ce genre d'événement !

@+ :roll:
04/01/2006, 18h08
Frank

Fais une recherche avancée sur les mots clés

Citation:

conflit d'écriture

En lieu et place de BeforeUpdate j'utiliserais bien le code du bouton pour tout faire.

Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Bouton_Click() 
 
    ' changement de client > demande à l'utilisateur s'il faut enregistrer les modifs 
    If MsgBox("Voulez-vous confirmer la modification ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then 
        Me.Undo 
        Cancel = True 
    Else
          strSQL = "UPDATE t_client SET ..." 
          CurrentDb.Execute strSQL, dbFailOnError
    End If 
End Sub