Discussion :

[theolivier]

Bonjour,

J'ai un état ouvert sur lequel il y a un bouton.
En cliquant sur ce bouton j'aimerais qu'il s'applique un filtre, l'idée étant d'obtenir immédiatement les enregistrements de l'année en cours en se référant au champ [Datecontrat] :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Commande39_Click()
Dim anneeencours, finanneeencours  As String
anneeencours = "01012014"
finanneeencours = "31122014"
Me.FilterOn = True
Me.Filter = "[Datecontrat] BETWEEN #" & Format(anneeencours, "mm/dd/yyyy") & "# AND #" & Format(finanneeencours, "mm/dd/yyyy") & "#"
End Sub

Ce code ne fonctionne pas, pourriez-vous m'aider ?

Merci d'avance.

[madefemere]

Bonjour,

Il faut inverser l'ordre pour l'application de ton filtre :
D'abord définir le filtre et l'appliquer. Inverser les lignes 5 et 6.

Ta déclaration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim anneeencours, finanneeencours  As String

n'est pas bonne. anneeencours est variant dans ton écriture.

Bonne continuation

[theolivier]

Merci, j'ai modifié le code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Commande39_Click()
Dim anneeencours As Variant
anneeencours = "01012014"
finanneeencours = "31122014"
Me.Filter = "[Contratdepret] BETWEEN #" & Format(anneeencours, "mm/dd/yyyy") & "# AND #" & Format(finanneeencours, "mm/dd/yyyy") & "#"
Me.FilterOn = True
End Sub

Mais cela ne fonctionne toujours pas.
Peut-être y a t il un autre code pour appliquer ce filtre entre 2 dates ?
Merci.

[theolivier]

Quelques erreurs rectifiées et cela fonctionne avec le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Commande39_Click()
Dim anneeencours As Variant
anneeencours = "01/01/2014"
finanneeencours = "31/12/2014"
Me.Filter = "[Contratdepret] BETWEEN #" & Format(anneeencours, "mm/dd/yyyy") & "# AND #" & Format(finanneeencours, "mm/dd/yyyy") & "#"
Me.FilterOn = True
End Sub

Merci pour votre aide.