Discussion :

[Commandeur]

Bonjour,

Dans un formulaire j'ai créer un filtre avec multi-criteres :

Mais je n'arrive pas a le finir :

Code :

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

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
30
31
32
33
34
35
36
37
Private Sub CmdFiltre_Click()
f = ""
If Not IsNull(Me.Rarticle) And Me.Rarticle <> "" Then
f = "ARTICLE LIKE ""*" & Me.Rarticle & "*"""
End If
If Not IsNull(Me.Rof) And Me.Rof <> "" Then
If f <> "" Then
f = f & " AND N°of LIKE ""*" & Me.Rof & "*"""
Else
f = "N°of LIKE ""*" & Me.Rof & "*"""
End If
End If
If Not IsNull(Me.Rserie) And Me.Rserie <> "" Then
If f <> "" Then
f = f & " AND IdentificationN°Serie LIKE ""*" & Me.Rserie & "*"""
Else
f = "IdentificationN°Serie LIKE ""*" & Me.Rserie & "*"""
End If
End If
If Not IsNull(Me.Rbl) And Me.Rbl <> "" Then
If f <> "" Then
f = f & " AND N°BL LIKE ""*" & Me.Rbl & "*"""
Else
f = "N°BL LIKE ""*" & Me.Rbl & "*"""
End If
End If
 
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f = f & " AND clng([date_saisie]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
Else
f = "clng([date_saisie]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
End If
End If
 
Me.Filter = f
Me.FilterOn = True

Voici mes champs :
ARTICLE
N°of
N°serie
IdentificationN°Serie
date_saisie.

Mon problème c'est les dates ne fonctionne pas, j'ai un message d'erreur quant les dates sont renseignées ; 94 utilisation incorrecte de Null

Merci de votre aide

[Jean-Philippe André]

Salut,

idealement, regarde le contenu de ta variable f avant de l'attribuer au filtre (Msgbox ou Debug.Print)

tu y deceleras immediatement a quel niveau la valeur n'est pas correcte =]

[Commandeur]

Desole je n'ai pas compris ta solution,

C'est dans cette partie du code qui bloque

Code :

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

1
2
3
4
5
6
7
8
9
 
 
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f = f & " AND clng([date_saisie]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
Else
f = "clng([date_saisie]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
End If
End If

[Jean-Philippe André]

Oui, ca j'avais compris

apres ces lignes, peux tu nous dire ce qui est afficher dans la fenetre d'execution par

Code :

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

Debug.Print f

stp

[Commandeur]

Désolé je suis pas trop expert en vba :

Pour ta commande je ne sais pas ou la place dans mon code ,

Voic le photo du debugage :



Merci

[Jean-Philippe André]

OK, alors selon moi le probleme n'est pas au niveau des dates, mais au niveau des guillements que tu utilises a la place des apostrophes
essaie en remplacant

Code :

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

f = "ARTICLE LIKE '*" & Replace(Me.Rarticle,"'","''") & "*'"