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 :

format date anglais et français en vba


Sujet :

VBA Access

  1. #1
    Membre actif

    Homme Profil pro
    Inscrit en
    Septembre 2007
    Messages
    503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Septembre 2007
    Messages : 503
    Points : 292
    Points
    292
    Billets dans le blog
    1
    Par défaut format date anglais et français en vba
    bonjour,
    j'utilise un form de recherche (type tuto caféine) qui est basé sur une date.
    le problème est que j'ai l'impression qu'access ne sait pas s'il doit prendre le format jj/mm/aaaa (format de date de ma table) ou le format (mm/jj/aaaa)
    par exemple quand je demande de renvoyer a partir du 10/03/2008, je n'ai aucun résultat (alors qu'il devrait y en avoir)
    par contre si je demande le 15/02/2008, ça fonctionne parfaitement (il n'y a pas d'ambiguité, vu que le 15è mois n'existe pas)
    je joins mon code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Private Sub Commande6_Click()
    On Error GoTo Err_
     Dim sql As String
     Dim SQLWhere As String
     
    sql = "SELECT [N° échantillon], semaine, [date réception], client, nature, espèces, NIRS, organismes FROM réception Where réception.[N° échantillon] is not null "
    sql = sql & "And réception.client like '*" & client & "*'"
    sql = sql & "And réception.[date réception]" & ">#" & date & "#"
    SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
    sql = sql & ";"
    Debug.Print sql
    Me.lblStats.Caption = DCount("*", "réception", SQLWhere) & " / " & DCount("*", "réception")
    Me.lstresult.RowSource = sql
    Me.lstresult.Requery
    Exit_:
    Exit Sub
     
    Err_:
    MsgBox Err.Description
    Resume Exit_
    End Sub

  2. #2
    Membre du Club
    Inscrit en
    Mars 2008
    Messages
    154
    Détails du profil
    Informations personnelles :
    Âge : 37

    Informations forums :
    Inscription : Mars 2008
    Messages : 154
    Points : 66
    Points
    66
    Par défaut
    Bonjour elnipal,
    As tu essayé de préciser le format de date à utilisé? par exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    "... Datetest = #" & Format(Datetest, "MM/dd/yyyy") & "# ...."

  3. #3
    Membre actif

    Homme Profil pro
    Inscrit en
    Septembre 2007
    Messages
    503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Septembre 2007
    Messages : 503
    Points : 292
    Points
    292
    Billets dans le blog
    1
    Par défaut
    ok, merci ça marche

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

Discussions similaires

  1. formatage date anglais vers français
    Par delavega dans le forum ASP
    Réponses: 4
    Dernier message: 04/07/2014, 18h02
  2. Format date (anglais / français)
    Par delavega dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 04/01/2012, 15h39
  3. Format date dans un TextBox en Vba
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 05/12/2008, 09h44
  4. Pb format date anglais/Français
    Par VBBBA dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 29/07/2007, 22h46
  5. Format Date Anglais/Français
    Par macben dans le forum Oracle
    Réponses: 4
    Dernier message: 22/08/2005, 11h12

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