Discussion :

[Tofalu]

En utilisant les objets Documents de la librairie DAO, il est possible d'obtenir des informations relatives aux formulaires.

Pour la date de dernière modification :

Public Function GetDateUpdatedForm(strFormName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedForm = oDb.Containers("Forms").Documents(strFormName).LastUpdated
End Function

Sub test()
MsgBox GetDateUpdatedForm("Formulaire1")
End Sub

[Arkham46]

A préciser :
Le LastUpdated renvoie la date création pour Access 2000.
Pour 2003 ça marche, pour 97 je ne sais pas.

[Tofalu]

Sérieux ?

[Arkham46]

Sérieux ?

Ben oui regarde dans le message :
http://www.developpez.net/forums/sho...d.php?t=154223
Y a un lien vers le site de Microsoft qui explique la limitation de DAO à ce sujet, et effectivement ça marche sur 2003 mais pas sur 2000.

[Tofalu]

En effet

[Lou Pitchoun]

Salut,
J'ai testé avec Access 97, ça fonctionne.
@++

[Tofalu]

Salut,
J'ai testé avec Access 97, ça fonctionne.
@++

[Nessie37]

Bonjour,

Euh...où faites-vous afficher cette date de dernière modif ?
N'y connaissant rien mais m'essayant, j'ai procédé ainsi :
création zone de texte avec en événement le code fourni (adapté, j'espère, à mon form).
Vous ne devinerez jamais le résultat :
NADA (ça ne m'étonne pas de moi)

Un appui de votre part please.

[Lou Pitchoun]

Salut,

A tester sur l'évènement 'sur ouverture du dit formulaire :

Code :

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

Me.Mazonedetexte = GetDateUpdatedForm(Me.Name)

[Nessie37]

Toujours chou blanc !
Le métier rentre

Au passage j'adore ton pseudo

[Lou Pitchoun]

Toujours chou blanc !

J'ai quand même testé après coup : ça fonctionne.
Tu as mis bien copié collé la fonction dans un module, inséré un champ texte sans source de données ?

Au passage j'adore ton pseudo

[Nessie37]

Bonjour Lou.

Comme je ne suis pas très fortiche, je me suis contentée de copier la formule, que j'ai mise en Open_Form, en essayant de la comprendre et donc de remplacer ce qui devait l'être par les éléments de mon form alors, si tu le veux bien, je vais revoir ça avec toi :

J'ai créé une zone de texte ("texte203") dans mon form ("CONSULTATION / MODIFICATION");
Je coince au niveau de la syntaxe et ne suis pas sûre d'avoir tout bien remplacé.
Quand je mets en open_form

Code :

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

Me.Texte203 = GetDateUpdatedForm(Me.CONSULTATION / MODIFICATION)

ça coince

....

[Lou Pitchoun]

Salut,

Le problème que tu rencontres est lié au fait que le nom de ton formulaire contient des espaces.

Pour remédier à ce problème, il te faut encadrer le nom de ton formulaire entre crochets.

Code :

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

Me.Texte203 = GetDateUpdatedForm(Me.[CONSULTATION / MODIFICATION])

Je te conseille la lecture de cet article sur les conventions de nommage afin de gagner pleins d'avantages et de palier à de nombreux inconvénients.

[Nessie37]

Je l'ai fait ça. J'ai testé [CONSULTATION / MODIFICATION] et ça ne va pas.
J'ai en surbrillance tout le code. L'erreur est 2465, "impossible de truver le champ 'l' auquel il est fait référence dans votre expression"

Ok mais et pour le code

Code :

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

1
2
3
4
5
6
7
8
9
Public Function GetDateUpdatedForm(strFormName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedForm = oDb.Containers("Forms").Documents(strFormName).LastUpdated
End Function
 
Sub test()
MsgBox GetDateUpdatedForm("Formulaire1")
End Sub

Où dois-je remplacer le nom de mon form car je vois (strFormName As String) puis MsgBox GetDateUpdatedForm("Formulaire1")

[micniv]

Salut,

MsgBox GetDateUpdatedForm("Formulaire1")

alors tu remplaces Formulaire1 par le nom de ton form

[Nessie37]

C'est fait !

Rien à faire, bug toujours au même niveau

[Lou Pitchoun]

Je n'étais pas bien réveillé ce matin...

mais :

Code :

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

Me.Mazonedetexte = GetDateUpdatedForm(Me.Name)

J'ai bien mis Me.Name et pas Me.Nomduformulaire

[Nessie37]

Ah ?!

[Nessie37]

Eh bien...roulement de tambour....

ça marche, en tout cas ça me donne une date, celle du 30/10/2007.

Que dois-je en déduire ? Car pour moi, le fait d'avoir ajouté ce code today fait partie de la modification de mon form.
Ou peut-être s'agit-il de la modif des enregistrements du form et non du form lui-même...


Merci Loulou !