Discussion :

[dinette]

Bonjour,

J'ai de nouveau besoin de votre aide.

Merci de me dire comment je peux insérer la date de dernière mise à jour dans un état

Merci beaucoup de votre aide.

[cafeine]

Hello,

mise à jour de quoi ?
si c'est une table, il faudra un champ qui stocke automatiquement la date courante lors de la mise à jour ...
ensuite un DMax() devrait convenir.

[dinette]

Hello,

Je voudrais récupérer la date de la dernière sauvegarde, et c'est cette date là que je n'arrive pas à récuperer.

Merci de votre aide.

[cafeine]

../..
si c'est une table, il faudra un champ qui stocke automatiquement la date courante lors de la mise à jour ...
ensuite un DMax() devrait convenir.

[dinette]

Hello,

Mais le soucis c'est que j'ai environ 70 états et que pour chaque état je dois connaitre la dernière sauvegarde.

C'est pas possible avec du vba dans l'état.

Merci de votre aide.

[cafeine]

Hm hm,

ce n'est pas un problème d'état, c'est un problème de table.

Vu que tu ne précises pas grand chose, as-tu dans tes tables un champ qui stocke la date de mise à jour ?
- si oui : utilise un DMax()
- si non : crée ce champ ...

Si tu demandes à Access la date de mise à jour d'état ce sera la date de modification de la structure de l'état mais pas des données.

[dinette]

le problème est que mes états sont statiques, et ils ne sont pas du tout liés à des tables.

Donc j'ai vraiment besoin de savoir à chaque fois qu'il a une modification sur l'état (donnée ou structure), c'est à dire à chaque fois qu'on clique sur le bouton "Enregistrer".

Merci de votre aide.

[Heureux-oli]

Tu es revenue à tes 70 états et non pas un quelques uns avec les données dans une table.

Avec quelques états et les données dans les tables, il suffit de mettre un champ dans la table et de mettre ce champ à jour lors de chaque modification des données.
Et le tout au travers d'un formulaire.

[tee_grandbois]

Bonsoir,
regarde ici : http://access.developpez.com/faq/?pa...#dateModifForm
si çà fonctionne pour les formulaires, cela doit fonctionner aussi pour les états, il suffit juste de remplacer "Forms" par "Reports"

[tee_grandbois]

Désolé,
c'est vrai qu'il y a un bug dans le code du lien (c'est écrit en bas mais,selon moi, on devrait l'enlever de la FAQ) : çà renvoie la date de création (même en Acces 2003)

[Sierra.77]

Une solution simple pour connaître la date et l'heure de mise à jour d'un état (ou de toute autre objet de la base de données) est d'utiliser le code VBA suivant :

Code :

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

CurrentDb.Containers("Reports").Documents("Mon Etat").LastUpdated

Où "Mon Etat" est l'état d'où on désire l'information.

Sinon le code suivant affiche les noms de tous les états avec leur date de dernière mise à jour :

Code :

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

1
2
3
4
5
    Dim i As Long
 
    For i = 1 To CurrentDb.Containers("Reports").Documents.Count
        Debug.Print CurrentDb.Containers("Reports").Documents(i - 1).Name, CurrentDb.Containers("Reports").Documents(i - 1).LastUpdated
    Next

J'espère que j'ai pu être utile.

[tee_grandbois]

Salut et Joyeux Noel

Une solution simple pour connaître la date et l'heure de mise à jour d'un état (ou de toute autre objet de la base de données) est d'utiliser le code VBA suivant :

Code :

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

CurrentDb.Containers("Reports").Documents("Mon Etat").LastUpdated

Mais le bug (dont je parle et le lien aussi) est que LastUpdated renvoie la date de création ...

[Sierra.77]

Désolé pour l'information que j'ai précédement écrite, cela m'apprendra à ne pas faire de tests préalables.

Concernant ce bug, il semble venir de la table "MSysObjects" où les dates de création et de dernière mise à jour sont identiques pour les états.

Néanmoins, j'ai trouvé un autre code qui, celui-ci fonctionne :

Code :

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

CurrentProject.AllReports("Mon Etat").DateModified

Ou pour afficher les dates de création et de mise à jour de tous les états :

Code :

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

1
2
3
4
5
6
7
    Dim acobjLoop As AccessObject
 
    For Each acobjLoop In CurrentProject.AllReports
        With acobjLoop
            Debug.Print .Name & " - Created " & .DateCreated & " - Modified " & .DateModified
        End With
    Next acobjLoop

Pour information, j'ai fait des tests sur Access 2003, j'ignore donc la validité de ces codes sur les versions précédentes.

[dinette]

Bonjour,

Pouvez vous m'expliquer comment j'insère ce code dans un état.

Merci d'avance de vos réponses,

Bonne année 2007 à tous,

[Sierra.77]

Pour afficher cette information directement sur l'état, il faut créer une zone de texte et inscrire à la propriété "Source contrôle" la ligne suivante :

Code :

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

=CurrentProject.AllReports(Report.Name).DateModified

Ainsi la date et l'heure de la dernière modification seront afficher à l'emplacement de ce contrôle.

J'espère que j'ai pu répondre à la question.