Case à cocher et Groupe

Bonjour,

Dim BoolResteDU As Boolean implique que BoolResteDU ne peut prendre que
2 valeurs : True(-1) ou False (0).
Si tu veux lancer ton filtrage losrqu'on a rien coché, il te faut
definir ResteDu comme variant si bien qu'avec un test sur
isnull(ResteDu) permettra de contraindre ou non ton filtre.

Un truc comme ça à essayer:
Dim varResteDu
Select Case Me.OpgCase
Case 16: varResteDu= 0
Case 17: varResteDu= -1
End select
If not isnull(varResteDu) Then
if strFiltre <> "" then strFiltre = strFiltre & " And "
strFiltre = strFiltre & "ResteDu=" & varResteDu
End if

Bonjour à tous et mes Voeux de Travail Santé €€€€€ $$$$$$ etc...
Voilà j'ai tester avec 0 et -1 vrai et faux False et True

Et cela ne foctionne pas (Pas de selection tout est vide pourquoi Alors que
les autres elements fonctionnent????

Dim BoolResteDU As Boolean

' Filtre sur les Cases à Cocher
Select Case Me.OpgCase
Case 16: BoolResteDU = 0
Case 17: BoolResteDU = -1
Case Else: BoolResteDU = ""
End Select
If BoolResteDU <> "" Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "([ResteDU] LIKE '" & BoolResteDU & "')"
End If

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr