IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

[VBA] Date pour access


Sujet :

VBA Access

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut [VBA] Date pour access
    Bonjour,

    Pour des mouvements sur ma base access, je souhaite insérer un attribut date qui donne la date et l'heure de mouvements (en fonction de la date système)
    Pour cela, mon attribut fait référence à un code VBA:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Option Compare Database
    Dim résultat
    Public Function date_actuelle()
    résultat = Now
    date_actuelle = résultat
    End Function
    Seulement, la date change automatiquement pour des mouvements antérieurs à mes nouveaux enregistrements dans la base.
    Comment faire pour qu'il ne me modifie pas la date des enregistrements précédents, pourtant listés dans la même table que les nouveaux enregistrements?
    Merci

  2. #2
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut [Résolu] Date access
    Bonjour,

    Pour tous ceux que ça peut aider, c'est finalement trouvé moi même la solution toute bête (il fallait juste y penser) qui modifie la date pour les changements ici sur un champ stock_actuel (ainsi, tous les enregistrements antérieurs gardent leur date de modification.

    Code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Option Compare Database 
    Dim résultat As Date 
     
    Public Function date_actuelle(stock_actuel As Variant) As Date 
    If IsNull(stock_actuel) = True Then résultat = Now 
    date_actuelle = résultat 
    End Function

  3. #3
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut Réinitialisation de date non désirée
    Bonjour,

    la solution que j'ai trouvé ne fonctionne pas complètement à la fermeture et la réouverture de la requête.
    En effet, même si sur deux enregistrements successifs la date et l'heure sont bien différentes, à la réouverture, tous les enregistrements sont réinitialisés à la valeur de date et heure de la réouverture, alors que le champ (stock_actuel) est rempli (condition if non respectée). Comment éviter que la base les réinitialisent.
    Merci de vos réponses.

Discussions similaires

  1. [SQL-VBA]tri par date dans access
    Par Mickey_Mouse dans le forum VBA Access
    Réponses: 5
    Dernier message: 06/02/2007, 09h49
  2. livre vba pour access
    Par Destiny dans le forum Access
    Réponses: 4
    Dernier message: 08/01/2007, 13h18
  3. [VBA] Requête + date pour travailler avec des recordsets
    Par snoopy69 dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 14/08/2006, 15h15
  4. Format des dates pour acces à une BD MS Access..
    Par hagler dans le forum Bases de données
    Réponses: 10
    Dernier message: 03/10/2005, 18h16
  5. Réponses: 3
    Dernier message: 06/09/2005, 10h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo