bonjour
SVP j'ai besoin d'aide
Mon problème et le suivant:
J'ai écrit ce code pour afficher le nombre de changements dans le mois courant
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
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:
mais la syntaxe est incorrecte
Code : Sélectionner tout - Visualiser dans une fenêtre à part rsqtymois.FindFirst (like *crit)
Avez-vous une idée comment je peux procéder?
Merci d'avance
A+
Partager