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+