[AC-2007] Filtre sur date dans un formulaire [Résolu]

[frabeau]

Bonjour,

J'ai crée un formulaire avec plusieurs filtres possibles (champs indépendants).
Tous les filtres marche sauf celui sur la date. Après avoir cherché un peu partout je pense qu'il y a un problème de format de date.
Si quelqu'un à la solution, merci.

Voici le code associé :

Code sql :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CmdFiltre_Click()
f = ""
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = "art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
IF f <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
Else
f = "commande = """ & Me.Rcde & """"
End IF
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
IF f <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
Else
f = "Client LIKE ""*" & Me.Rclt & "*"""
End IF
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
IF f <> "" Then
f = f & " AND date liv = """ & Me.Rdate & """"
Else
f = "date liv = """ & Me.Rdate & """"
End IF
End IF
Me.Filter = f
Me.FilterOn = True
End Sub

[rob1son76]

Pour déclaré une date tu dois mettre des dièses.

Code :

1
2
3
4
5
IF f <> "" Then
f = f & " AND date liv = " & " # & Me.Rdate & # "
Else
f = "date liv = " & " # & Me.Rdate & # "
End IF

Après je ne suis pas très sur du nombre de double cote que tu dois mettre.

[frabeau]

Merci pour le tuyau.

En outre sur le dernier END if j'ai un message "Erreur de compilation End if sans bloc If.

[frabeau]

Je pense que le dernier End if est de trop. Par contre nouveau bug :
"Erreur de syntaxe (opérateur absent) dans l'expression : "date liv = # & Me.Rdate & # "

[fbtsra]

Bonjour,

La bonne syntaxe est :

Code :

1
2
 
f = "[date liv]=#" &  Me.Rdate & "#"

Bcdt

[frabeau]

Bonjour,

J'ai modifier le code mais il y a toujours le même message d'erreur.
Quand je clic sur débogage, dans le code il se positionne sur Me.Filter = f;
Pour info, je suis vraiment novice en matière de sql.
Merci de votre aide.

Code sql :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CmdFiltre_Click()
f = ""
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = "art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
IF f <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
Else
f = "commande = """ & Me.Rcde & """"
End IF
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
IF f <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
Else
f = "Client LIKE ""*" & Me.Rclt & "*"""
End IF
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
IF f <> "" Then
f = f & " AND date liv = " & " # & Me.Rdate & # "
Else
f = "date liv = #" & Me.Rdate & "#"
End IF
End IF
Me.Filter = f
Me.FilterOn = True
End Sub

[fbtsra]

J'ai oublié les crochets indispensables compte tenu du nom du champ :

Code :

f = "[date liv]=#" &  Me.Rdate & "#"

+ pensez à modifier la ligne 22 aussi.

Bcdt

[frabeau]

Top du top. Cela fonctionne, merci beaucoup et bonne journée.

[frabeau]

J'ai été un peu trop enthousiaste.
Le filtre sur la date seule fonctionne. Mais si je veux filtrer sur la date et un autre champ (Client), nouvelle erreur : erreur de synthaxe (opérateur absent) dans l'expression Client LIKE "KUZMIN*" AND date liv = # & Me.Rdate #

[fbtsra]

+ pensez à modifier la ligne 22 aussi.

à modifier donc.


Bcdt

[frabeau]

Cette fois-ci c'est ok.

Merci.