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 :

[Fonction][VBA]incompréhension sur datediff


Sujet :

VBA Access

  1. #1
    Nouveau membre du Club
    Inscrit en
    Août 2004
    Messages
    36
    Points
    30
    Détails du profil
    Informations forums :
    Inscription : Août 2004
    Messages : 36
    Points : 30
    Par défaut [Fonction][VBA]incompréhension sur datediff
    Bonjour,

    je souhaite faire apparaitre dans une zone de liste les lignes dont la soustraction entre la date d'émission d'une facture et la date du jour est égale à un nombre de jour.
    Je n'ai pas de problème pour obtenir les données quand je demande une égalité, par contre je n'obtiens rien quand j'utlise un "supérieur ou égale".

    Si quelqu'un a une idée, je l'en remercie d'avance:

    Explication:
    echeance = nombre de jour entre la date d'émission et la date du jour
    Date_Emmission = date d'émission de la facture
    txt_dateEcheance.Value= date du jour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub txt_echeance_AfterUpdate()
    Dim echeance As String
    echeance = txt_echeance.Value
     
    Me.lstResults.RowSource = sql() & "and datediff('D',SuiviClient!Date_Emmission,'" & txt_dateEcheance.Value & "')='" & echeance & "';"
    Me.lstResults.Requery
     
    End Sub

  2. #2
    Membre expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Points
    3 228
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Points : 3 228
    Par défaut
    Logiquement je mettrai
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.lstResults.RowSource = sql() & " and datediff('D',SuiviClient!Date_Emmission,#" & Format$(txt_dateEcheance.Value,"mm/dd/yy") & "#)>=" & echeance & ";"
    Ca marche?

  3. #3
    Nouveau membre du Club
    Inscrit en
    Août 2004
    Messages
    36
    Points
    30
    Détails du profil
    Informations forums :
    Inscription : Août 2004
    Messages : 36
    Points : 30
    Par défaut
    ca marche ! merci beaucoup !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 27
    Dernier message: 18/06/2014, 15h12
  2. Besoin d'aide sur les fonctions vba
    Par merveil014 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/06/2014, 09h11
  3. Fonction qui fonctionne sur VBA mais pas sur excel
    Par bol45 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/03/2014, 13h33
  4. [VBA] Excel : Appel de fonction au clique sur un boutton
    Par nanu dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/09/2006, 20h30
  5. [VBA-E]Executer fonction VBA sur Excel sans activer la macro
    Par marie10 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 19/01/2006, 15h34

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