Discussion :

[nico.chev]

Ca marchait et ca ne marche plus sans aucune raison apparente, l'erreur est ne erreur 2001

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
' Filtre sur Statut
If Not IsNull(Me.cmbStatut) Then
    If Me.cmbStatut = "Non cloturer" Then       'Si le filtre est égal à "Non cloturer"
        If strFiltre <> "" Then                 'Si le filtre n'est pas vide
            strFiltre = strFiltre & " AND " & "(((tbl_Action_Ticket.[Action]) Like 'Créer le') And  " _
            & " ((DCount(" & Chr(34) & "Action" & Chr(34) _
            & ", " & Chr(34) & "tbl_Action_Ticket" & Chr(34) & ", " & Chr(34) _
            & "[Action] like 'Cloturer le' and [Job Id]=" & Chr(34) & " & [Job Id])) = 0))"
        Else                                    'Si le filtre est vide
            strFiltre = "(((tbl_Action_Ticket.[Action]) Like 'Créer le') And  " _
            & " ((DCount(" & Chr(34) & "Action" & Chr(34) _
            & ", " & Chr(34) & "tbl_Action_Ticket" & Chr(34) & ", " & Chr(34) _
            & "[Action] like 'Cloturer le' and [Job Id]=" & Chr(34) & " & [Job Id])) = 0))"
        End If
    Else                                        'Si le filtre est différent de "non cloturer"
        If strFiltre <> "" Then                 'Si le filtre n'est pas vide
            strFiltre = strFiltre & " AND " & "([Action] LIKE '" & Me.cmbStatut & "')"
        Else                                    'Si le filtre est vide
            strFiltre = "([Action] LIKE '" & Me.cmbStatut & "')"
        End If
    End If
End If
 
With Me.sform_sidi.Form
.Filter = strFiltre
.FilterOn = True    ------------------------>erreur ici
End With
strFiltre = ""
End Sub

si quelqu'un a une idée.....

[Arkham46]

salut,

erreur 2001? oui d'accord mais y a pas une description de l'erreur?

sinon affiche la valeur de strFiltre pour voir s'il n'y a pas une erreur de syntaxe dedans.