Discussion :

[vete25]

Bonsoir,
J'essaie de mettre sur un formulaire de recherche un bouton option qui fonctionnerait "à l'envers" c'est à dire qui enlèverait de la liste résultats les enregistrements dont la case est cochée dans la table.

Je me suis inspiré d'un autre bouton option que j'ai dans le formulaire en inversant le true et le false comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub optAutSynd_Click()
If Not Me.optAutSynd Then
Me.optAutSynd.Value = False
Else
Me.optAutSynd.Value = True
End If
RefreshQuery
End Sub

inversé comme cela:

Code :

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

1
2
3
4
5
6
7
8
Private Sub optAutSynd_Click()
If Not Me.optAutSynd Then
Me.optAutSynd.Value = True
Else
Me.optAutSynd.Value = False
End If
RefreshQuery
End Sub

cela me paraissait le plus simple et le plus logique d'inverser le résultat selon que l'on sélectionne ou pas l'option,mais ça ne fonctionne pas, et en fait je comprends pas pourquoi, ou alors je l'ai pas bien fait, c'est possible aussi.
J'ai donc essayé de passer par le requête qui affiche la liste de résultats dans mon code, lorsque je sélectionne ce bouton option, j'ai fait ceci:

Code :

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

1
2
3
If Me.optAutSynd Then
    sql = sql & "And RQTFORMMULTI!AutreSynd like '" & Me.optAutSynd = False & "' & ""' "
 End If

Mais ça me renvoie une erreur, "erreur d'exécution 5, argument ou appel de procédure incorrect" en cliquant sur débogage il me surligne:

Code :

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

SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))

Quelqu'un a une idée sur la façon dont je pourrais obtenir ce bouton option qui me sélectionne les enregistrements dont la valeur est False ??

[vete25]

Je suis toujours sur mon bouton, bon déjà j'ai compris pourquoi inverser le True et le False ne m'a pas donné le résultat escompté, ça n'a rien à voir avec des critères de filtre donc c'était pas la bonne piste.

Je pense donc que mon idée d'ajouter un critère de filtre sur la requête qui s'exécute au moment où je clique sur cette case option est mieux adaptée.

j'essaie donc depuis hier de trouver la bonne syntaxe pour y arriver, malheureusement je n'y arrive pas.
J'ai essayé avec Having, avec Where , en jouant avec des parenthèses, des espaces, mais rien n'y fait j'ai systématiquement une erreur de syntaxe (opérateur absent).

J'en suis là pour l'instant:

Code :

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

1
2
3
If Me.optAutSynd Then
    sql = sql & "And RQTFORMMULTI!AutreSynd Where RQTFORMMULTI.AutreSynd=False "
 End If

Si quelqu'un a une idée, c'est volontiers

[vete25]

Ben enfin j'ai trouvé, alors parfois c'est Access qui est compliqué et parfois c'est moi, il fallait mettre tout simplement:

Code :

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

1
2
3
If Me.optAutSynd Then
    sql = sql & "And RQTFORMMULTI!AutreSynd = False "
 End If

Voilà, ça pourra peut-être servir à un autre débutant.