Discussion: Format du mois

  1. #1
    Membre habitué Avatar de Massiliya
    Femme Profil pro
    Ingénieur en génie industriel
    Inscrit en
    mars 2017
    Messages
    159
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Ingénieur en génie industriel
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2017
    Messages : 159
    Points : 145
    Points
    145

    Par défaut Format du mois

    bonjour
    SVP j'ai besoin d'aide
    Mon problème et le suivant:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim rsqtymois As Recordset
        Set rsqtymois = CurrentDb.OpenRecordset("select * from [quantité par mois]", dbOpenDynaset)
        Dim crit As String
        crit = "[Mois]=""" & Format(Now, "mmm") & """"
        Debug.Print crit
        rsqtymois.FindFirst (crit)
        If rsqtymois![Nombre de changement par mois] = 1 Then
              Me.nbrechangement = rsqtymois![Nombre de changement par mois] & " changement"
        Else
              Me.nbrechangement = rsqtymois![Nombre de changement par mois] & " changements"
        End If
        rsqtymois.Close
        Set rsqtymois = Nothing
    J'ai écrit ce code pour afficher le nombre de changements dans le mois courant
    le problème est dans l'instruction crit = "[Mois]=""" & Format(Now, "mmm") & """" en effet le debug.print me donne par exemple pour le mois de juillet "juil" alors que dans ma table quantité par mois j'ai "juillet"
    Donc en cherchant ce critère dans la table il n'existe pas
    J'ai essayer ce code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    rsqtymois.FindFirst (like *crit)
    mais la syntaxe est incorrecte
    Avez-vous une idée comment je peux procéder?
    Merci d'avance
    A+
    While the grass grows, the steer starves

  2. #2
    Rédacteur/Modérateur

    Avatar de Philippe JOCHMANS
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2005
    Messages
    19 531
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Communication - Médias

    Informations forums :
    Inscription : mai 2005
    Messages : 19 531
    Points : 47 287
    Points
    47 287

    Par défaut

    Bonjour

    Rajoutes un m, mets en 4 en tout.

    m = 7
    mm = 07
    mmm = juil
    mmmm = juillet

    Philippe
    Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
    Vous pouvez consulter mes articles sur Access et PowerPoint et n'oubliez pas de consulter les FAQs MS Office

  3. #3
    Membre habitué Avatar de Massiliya
    Femme Profil pro
    Ingénieur en génie industriel
    Inscrit en
    mars 2017
    Messages
    159
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Ingénieur en génie industriel
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2017
    Messages : 159
    Points : 145
    Points
    145

    Par défaut

    Citation Envoyé par Philippe JOCHMANS Voir le message
    Bonjour

    Rajoutes un m, mets en 4 en tout.

    m = 7
    mm = 07
    mmm = juil
    mmmm = juillet

    Philippe
    Merci philippe ça marche très bien
    juste une autre question
    est ce que ça donne toujours le mois complet (pour septembre, octobre...) ou ça donne un certain nombre de caractère !! en d'autre terme est ce que j'aurais besoin de rajouter un 5ième m hhh??
    A+
    While the grass grows, the steer starves

  4. #4
    Rédacteur/Modérateur

    Avatar de Philippe JOCHMANS
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2005
    Messages
    19 531
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Communication - Médias

    Informations forums :
    Inscription : mai 2005
    Messages : 19 531
    Points : 47 287
    Points
    47 287

    Par défaut

    Re

    4 m donnera toujours le mois complet.

    Regardes l'aide de la fonction Format.

    Philippe
    Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
    Vous pouvez consulter mes articles sur Access et PowerPoint et n'oubliez pas de consulter les FAQs MS Office

  5. #5
    Membre habitué Avatar de Massiliya
    Femme Profil pro
    Ingénieur en génie industriel
    Inscrit en
    mars 2017
    Messages
    159
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Ingénieur en génie industriel
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2017
    Messages : 159
    Points : 145
    Points
    145

    Par défaut

    D'accord très bien
    merci
    While the grass grows, the steer starves

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

Discussions similaires

  1. Trier les données par date au format jour mois année...
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/08/2007, 11h41
  2. date au format aa-mois-yy
    Par VBBBA dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 13/06/2007, 19h01
  3. Réponses: 5
    Dernier message: 20/02/2007, 17h52
  4. Recuperer une date au format annee/mois
    Par Pogny dans le forum Access
    Réponses: 5
    Dernier message: 10/08/2006, 13h39
  5. [VBA-E] format date/mois en entier : résultat bizarre
    Par illight dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/07/2006, 15h05

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