Discussion :

[Massiliya]

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+

[Invité]

Bonjour

Rajoutes un m, mets en 4 en tout.

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

Philippe

[Massiliya]

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+

[Invité]

Re

4 m donnera toujours le mois complet.

Regardes l'aide de la fonction Format.

Philippe

[Massiliya]

D'accord très bien
merci