Discussion :

[alineleleu]

Bonjour,

Dans ma base de données Access, j'ai une table avec un champ "Mise à jour". J'aimerais que, dans ce champ, s'inscrive automatiquement la date à laquelle la table est mise à jour, c'est-à-dire à chaque modification d'un des champs de la table.

J'ai essayé de mettre =Date() dans valeur par défaut du champ mais cela me met la date à laquelle une nouvelle ligne est créée. Cette date ne change plus après modification.

J'ai également essayé d'insérer le code suivant dans mon formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Mise_a_jour_BeforeUpdate(Cancel As Integer)
Me![Mise_a_jour] = Date
End Sub

Encore une fois, cela ne fonctionne pas. Le champ "Mise à jour" ne se remplit pas automatiquement.

Est-ce que quelqu'un a la solution à mon problème?

Merci d'avance!

[Jean-Philippe André]

Salut,

ce que tu cherches correspond en fait aux triggers (déclencheurs)

un exemple de ce que tu peux faire est disponible dans le tuto :
http://warin.developpez.com/tutoriel...s/?page=page_2

[alineleleu]

Merci beaucoup. J'ai lu attentivement ce tuto et ai essayé de l'appliquer pour mettre mon champ "Mise à jour" à jour lors de chaque nouvel enregistrement.

Malheuresement je n'y suis pas arrivée. C'est la première fois que j'utilise les triggers.

Peut-être as-tu déjà été amené à le faire dans l'une de tes base de données? Si oui, est-il possible de m'indiquer la démarche à suivre car je suis un peu perdue?

Merci beaucoup!

[alineleleu]

Est-ce que quelqu'un s'y connait en triggers?

Merci d'avance!

[Smoky184]

Salut Aline,

Sur quelle table fais tu les modifications ?
Comment valides tu les modifications ? Bouton ? Champs par champs ?

Le mieux je pense serait de passer par du VBA à l'enregistrement sur Clique. quelque chose comme :

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
16
17
18
19
20
21
22
23
24
25
Private Sub Form_BeforeUpdate(Cancel As Integer)
'On empèche l'enregistrement automatique
End Sub
 
Private Sub Enregistrer_Click()
'On enregistre sur clique du bouton Enregistrer
Enregistrement = Me.N° 'On récupère le N° d'enregistrement
 
If Me.Dirty Then 'Si modification message d'avertissement
    If MsgBox("Souhaitez-vous modifier l'enregistrement ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then 'Si annulation des modifs
        DoCmd.RunCommand acCmdUndo 'On annule les Modifs faites
        DoCmd.Close acForm, "Formulaire_Modification" 'On ferme le formulaire
    Else 'Sinon
        DoCmd.RunCommand acCmdSaveRecord 'On enregistre les Modifs
 
        SqlModif = "UPDATE [Table] SET Table.[Mise_a_jour] = Date() Where Table.[N°] =" & Enregistrement & ";" 'On génère une requête SQL pour le champ MAJ
 
        DoCmd.SetWarnings False 'On vire les avertissements
        DoCmd.RunSQL SqlModif 'On envoi la requête SQL
        DoCmd.SetWarnings True 'On remet les avertissements
 
        DoCmd.Close acForm, "Formulaire_Modification" ' On ferme le Formulaire
    End If
End If
End Sub

Pour ce cas de figure il faut prendre en compte plusieurs choses :

• Le formulaire ne doit pas être continu
• On doit avoir le champ "N°" (invisible) pour savoir quel enregistrement on modifie
• Ondoit avoir un bouton "enregistrer" pour éviter les enregistrement directes

Si besoin j'ai toujours ton application dont je peut me servir pour d'éventuels exemples.

CDT, Nicolas

---

EDIT :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = True 'Petit oubli
End Sub

Cordialement, Nicolas

[alineleleu]

Comment faire si je veux que la date de tous les champs se mette à jour?

[paidge]

Re-bonjour,
Je crois que tu as un problème de vocabulaire...
Une table est composée de champs (ou d'attributs suivants les écoles). Ce sont les colonnes lors de l'affichage des données d'une table.
Chaque ligne de la table correspond à ce qu'on appelle un enregistrement (record en anglais). Un enregistrement est donc, bien sûr, composé aussi des différents champs de la table.
A mon avis (mais je peux me tromper), ta question est :

Comment faire si je veux que la date de tous les enregistrements se mette à jour?

Et bien tu as déjà la réponse donnée par Smoky :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_AfterUpdate()
    CurrentDb.Execute "UPDATE MaTable SET [Mise_a_jour]= Date();"
End Sub

[alineleleu]

Tout à fait, enregistrement!