Discussion :

[HookerSeven]

Re-Bonsoir,

Je me confontre à un nouveau problème :

Je souhaite réalise mon filtre sur plusieurs contrôles à la fois.

Du coup le code d'Arkham26 :

Code :

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

1
2
        Me.Filter = [Regul2001].ControlSource & " = False"
        Me.FilterOn = True

Devrait devenir quelquechose comme cela, je pense :

Code :

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

1
2
Me.Filter = (([Forms]![FSuiviChargeHC]![Regul2001].ControlSource & " = False") And ([Forms]![FSuiviChargeHC]![PV2001].ControlSource & " = True")) 'écrit sur une seule ligne !
Me.FilterOn = True

Mais là !
Erreur :

Erreur numéro 13 : Icompatibilité de type !

Merci de votre aide.

[HookerSeven]

Je précise que les deux contôles sont des checkbox.

Est-ce que l'on peut réaliser un filtre sur le controlesource de plusieurs contrôles et si oui quel est la syntaxe correcte ?

Merci d'avance.

[HookerSeven]

Une petite idée ??

[HookerSeven]

Bonsoir,

Toujours rien à me mettre sous la dent ???

Bon j'espère comme même avoir une réponse un jour.

Même si elle est fausse merci de me répondre cela m'aiguillera !

@+

[Arkham46]

le me.filter est un texte, pas un test booleen

donc le AND doit être dans la chaîne de caractère

[HookerSeven]

Bonsoir Arkham46,

Merci de ta réponse,

J'ai essayé de le mettre entre guillemets et erreur :

Code :

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

1
2
Me.Filter = [Regul2001].ControlSource & " = False AND" & [PV2001].ControlSource & " = True"
Me.FilterOn = True

Et là erreur:

Immpossible de lui attribuer la valeur "= False AND".

Sinon j'ai essayé cela :

Code :

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

1
2
Me.Filter = [Regul2001].ControlSource & " = False " & "AND" & [PV2001].ControlSource & " = True"
Me.FilterOn = True

Erreur encore, il me demande la valeur de FalseAND[PV2001] ...

Comme je suis vraiment lamentable en syntaxe de ce type, pourrais-tu m'éclairer ?

[Arkham46]

Code :

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

Me.Filter = [Regul2001].ControlSource & " = False AND " & [PV2001].ControlSource & " = True"

:

[HookerSeven]

Code:
Me.Filter = [Regul2001].ControlSource & " = False AND " & [PV2001].ControlSource & " = True"
Question

Quelle est ta question ?

[Arkham46]

ben est-ce que ça marche

[mcdotta]

Peut être une piste,

Et si tu essayais de remplacer False par 0 et True par -1.

En plus, pourquoi utilises-tu la propriété ControlSource ?

Essaie ca

Code :

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

1
2
3
4
5
 
dim strFilter as String
strFilter = "[Regul2001]=0 AND [PV2001]=-1]
Me.Filter = strFilter
Me.FilterOn=True

Tiens-nous au courant...

[HookerSeven]

Arkham46, je te posais la question de ta question (lol), car j'ai essayé cette syntaxe auparavant, comme je le dis plus haut...

Sinon salut à toi mcdotta, j'ai testé avec ton code :

Code :

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

1
2
3
4
Dim strFilter As String
strFilter = "[Regul2001]=0 AND [PV2001]=-1]"
Me.Filter = strFilter
Me.FilterOn = True

et il me met l'erreur suivante :

Erreur 2448 : impossible d'attribuer une valeur à cet objet !

Je comprends pas le fait qu'avec un contrôle cela fonctionne :

Code :

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

1
2
Me.Filter = [Regul2001].ControlSource & " = False"
        Me.FilterOn = True

et pas avec deux, il doit bien y avoir une astuce !

[Arkham46]

Arkham46, je te posais la question de ta question (lol), car j'ai essayé cette syntaxe auparavant, comme je le dis plus haut...

ben non y a un espace en plus dans mon code

[HookerSeven]

Oups désolé Arkham46,

Exact, et ça fonctionne très bien....

Sauras-tu me pardonnais ?

Merci à toi encore et encore une fois...
Décidement !

@+

[mcdotta]

Reteste, il y a une erreur (square bracket en trop...) Désolée

Code :

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

1
2
3
4
5
6
 
 
Dim strFilter As String 
strFilter = "[Regul2001]=0 AND [PV2001]=-1" 
Me.Filter = strFilter 
Me.FilterOn = True

[HookerSeven]

Oui, j'avais remarqué !

Ton code fonctionne bien mais comme la source de ma checkbox change régulièrement, je dois utiliser le filtre sur le recordsource de mon contrôle et non sur le nom du champ de la table.

Mais merci comme même, c'est sympa de m'aider.

A bientôt !