Discussion :

[lucienkany]

Bonjour,
J'ai une erreur dans l'exécution du code ci-dessous, précisément sur la ligne

Code :

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

.Filter = strFiltre

NB: Quand j'enlève les filtres sur les dates, tout fonctionne correctement mais lorsqu'il y a des données dans un des champs date, il y a un bug.

Voici le code complet

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
38
39
40
41
42
43
44
45
46
47
48
Option Compare Database
'Filtrer le sous fourmulaire Details sur plusieurs champs
 
Private Sub Rechercher_Click()
Dim strFiltre As String
'Filtre sur Siciete
strFiltre = ""
If Not IsNull(Me.cmbSociete) Then
strFiltre = "([CodeSociete]='" & Me.cmbSociete & "')"
End If
 
'Filtre sur phase
 
If Not IsNull(Me.cmbPhase) Then
 If strFiltre <> "" Then strFiltre = strFiltre & " AND "
 strFiltre = strFiltre & "([CodePhase]='" & Me.cmbPhase & "')"
 End If
 
'Filtre sur produit
If Not IsNull(Me.cmbProduit) Then
 If strFiltre <> "" Then strFiltre = strFiltre & " AND "
 strFiltre = strFiltre & "([CodeProduit]='" & Me.cmbProduit & "')"
End If
 
'Filtre sur Declarant
If Not IsNull(Me.cmbDeclarant) Then
 If strFiltre <> "" Then strFiltre = strFiltre & " AND "
 strFiltre = strFiltre & "([CodeDeclarant]='" & Me.cmbDeclarant & "')"
End If
 
'Filtre sur Date Debut
If Not IsNull(Me.TxtDateDeb) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
 strFiltre = strFiltre & "([DateDeclaration]>='" & DateUS(Me.TxtDateDeb) & "')"
End If
 
'Filtre sur Date Fin
If Not IsNull(Me.txtDateFin) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
 strFiltre = strFiltre & "([DateDeclaration]<='" & DateUS(Me.txtDateFin) & "')"
End If
 
'FILTRER LE SOUS FORMULAIRE
With Me.frmDetails.Form
.Filter = strFiltre
.FilterOn = True
End With
End Sub

Pouvez-vous me dire pourquoi les filtres sur date font planter ce code?

D'avance merci.

[Philippe PONS]

Les dates se mettent entre # dans une requête alors peut être que:

Code :

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

If strFiltre <> "" Then strFiltre = "#" & strFiltre & "# AND "

fonctionnerais mieux!!