Discussion :

[Jiben59]

Bonjour la communauté,

j'espère que vous allez bien par ce grand froid.

Je me tourne vers vous, car je n'arrive pas à trouver une réponse à une de mes questions sur internet.

Je souhaiterais indiquer dans mon formulaire de tableau de bord, la date de ma dernière connexion sur ma base de données.

Je me suis demandé s'il n'existait pas une solution alternative, en indiquant la date lorsqu'on a fermé la base de données via un code VBA.

Le but est d'obtenir dans mon formulaire la phrase suivante " Dernière connexion le XX février 2018".

Merci aux internautes qui m'apporteront leurs sciences, et leurs savoirs sur Access.

Dans l'attente de vous lire, bonne journée à vous.

Bien cordialement,
Benjamin.

[titi95]

Bonsoir

1 Il faut mettre un champ dans une table pour conserver la date du jour
2 créer une requête Mise à jour

Code :

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

1
2
UPDATE NomTable SET NomTable .DernièreUtilisation = Date()
WHERE (((NomTable .Id)=1));

3 exécuter la requête lors de la fermeture du formulaire principal ou d'accueil

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Close()
    ...  
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "r_DernièreUtilisation"
    DoCmd.SetWarnings True
    ...
End Sub

Tu peux ainsi récupérer la valeur pour l'affecter à une Zone de Texte


Titi95

[Zekraoui_Jakani]

Outre la solution donnée par Titi95, il existe d'autres solutions alternatives. En utilisant la fonction "NOW()", par exemple, tu peux la stocker dans un table ou l'afficher sur ton formulaire, ça te donnera une piste à exploiter; Tu peux aussi exploiter la fonction "LastUpdated" ou "LastModified".

[titi95]

Bonjour Zekraoui_Jakani

Outre la solution donnée par Titi95, il existe d'autres solutions alternatives. En utilisant la fonction "NOW()", par exemple, tu peux la stocker dans un table ou l'afficher sur ton formulaire, ça te donnera une piste à exploiter

Je ne vois pas la différence avec ma proposition qui est de : stocker la date du jour dans une table pour pouvoir la récupérer à l'ouverture. ???

Titi95

[Jiben59]

Bonsoir

1 Il faut mettre un champ dans une table pour conserver la date du jour
2 créer une requête Mise à jour

3 exécuter la requête lors de la fermeture du formulaire principal ou d'accueil


Tu peux ainsi récupérer la valeur pour l'affecter à une Zone de Texte


Titi95

Bonsoir à vous,

alors j'ai essayé de suivre ta démarche Titi95.

Dans un premier temps j'ai créé ma table "T_DerCox" avec une clé primaire Id et un autre champ nommé "DerUtilisation" avec un type de données "Texte court".

Dans un second temps, j'ai créé ma requête de mise à jour :

Code :

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

1
2
UPDATE T_DerCox SET T_DerCox.DerUtilisation = Date()
WHERE (((T_DerCox.Id)=0));

Et dans un troisième temps, je me demande s'il faut créé un module ou intégrer le VBA dans une procédure évènementielle du champ texte ?

Je vous remercie pour votre aide.

Bien cordialement,
Benjamin.

[titi95]

Bonsoir

Il faut créer un premier enregistrement dans la table avec une date "bidon".

Dans ta requête il faut tester la valeur de l'ID ce CET enregistrement. Tu as mis 0 actuellement. Vérifie.
En effet, si l'ID est en Num Auto, il est égal à 1.

Pour la suite, un petit rappel :
Tu fait exécuter ta requête au moment de la fermeture du dernier formulaire (en général Accueil, présentation...)

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Close()
    ...  
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "r_DernièreUtilisation"
    DoCmd.SetWarnings True
    ...
End Sub

A chaque fermeture, la date du jour va venir écraser la précédente (toujours dans le 1er enregistrement de la table)

Ainsi tu peux récupérer cette date dans la table, par exemple sur le formulaire d'accueil de ta base. Dis moi où.

Titi95

[adlinformatik]

A part créer une table locale (cad dans le cas de l'utilisation d'une base dorsale) qui enregistre les dates (et les heures si tu veux) de la dernière connexion, y a pas d'autres solutions a ma connaissance.

C'est une très simple table, d'un champs unique de type Date, sans avoir besoin d'une clé primaire, et sa modification se fait a l'ouverture de la base ou du formulaire en question,
l’édition du champs se fait soit en sql soit en VBA (recordsets)
et tu crée une fonction de type DateDernConx = Dlookup("NomDuChampsDate", "NomDeTaTable"), même pas besoin de mettre nz, car on est sûr d'avoir toujours une date valide dans ce champs
et dans ton form tu crée une zone de texte qui a comme valeur source la fonction : DateDernConx()

Voila

[Jiben59]

Bonjour à vous,

je vous informe qu'après avoir écouté vos conseils, j'ai bien la date qui apparaît dans mon formulaire.
Cependant, je n'ai seulement la date qui s'affiche et non l'heure avec alors que j'ai mis un champ date général dans la table.

Est-ce que c'est l'utilisation de Date() dans le SQL qui peut poser ce problème ?

Je vous remercie pour votre aide.

Dans l'attente de vous lire, bonne journée.

Bien cordialement,
Benjamin.