OVH Cloud OVH Cloud

Rechercher (debut du champ - champ entier)

4 réponses
Avatar
Michel Pellegrini
J'ai deux contrôles "edit" dans un formulaire.

Un bouton fait apparaître la boîte "Rechercher":

DoCmd.RunCommand acCmdFind

Quand je fais une recherche dans une des contrôles,
j'aimerais que le champ "Où" de la boîte "Rechercher"
soit "Début de champ", tandis que lorsque je recherche
un nom dans l'autre contrôle, j'aimerais que la boîte
Rechercher soit à "Champ entier".

Y a-t-il des paramètres qu'on peut rajouter après
"acCmdFind" où il est impossible de faire ça ?

Michel.Pellegrini@Enter-Net.com
Vercheres QC Canada

4 réponses

Avatar
JMH
Salut
C'est dans Options - Clavier et là tu peux choisir.
Tu peux aussi l'attaquer en VBA, avec :
Application.SetOption ("Comportement du champ en entrée"), 0

Bye

"Michel Pellegrini" a écrit dans le
message de news:
J'ai deux contrôles "edit" dans un formulaire.

Un bouton fait apparaître la boîte "Rechercher":

DoCmd.RunCommand acCmdFind

Quand je fais une recherche dans une des contrôles,
j'aimerais que le champ "Où" de la boîte "Rechercher"
soit "Début de champ", tandis que lorsque je recherche
un nom dans l'autre contrôle, j'aimerais que la boîte
Rechercher soit à "Champ entier".

Y a-t-il des paramètres qu'on peut rajouter après
"acCmdFind" où il est impossible de faire ça ?


Vercheres QC Canada




Avatar
Michel Pellegrini
(Moi)
|> Un bouton fait apparaître la boîte "Rechercher":
|>
|> DoCmd.RunCommand acCmdFind
|>
|> Quand je fais une recherche dans une des contrôles,
|> j'aimerais que le champ "Où" de la boîte "Rechercher"
|> soit "Début de champ", tandis que lorsque je recherche
|> un nom dans l'autre contrôle, j'aimerais que la boîte
|> Rechercher soit à "Champ entier".
|>
|> Y a-t-il des paramètres qu'on peut rajouter après
|> "acCmdFind" où il est impossible de faire ça ?

Ok, je viens de trouver une méthode assez simple dans Internet:

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
DoCmd.RunCommand acCmdFind
SendKeys "%o" ' Simule ALT + 'o' -> Donc, le focus est sur "Où"
SendKeys "c" ' C'est comme taper 'c' -> Champ entier
SendKeys "%r" ' Simule ALT + 'r' -> Le focus est sur "Rechercher"

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Vercheres QC Canada
Avatar
Michel Pellegrini
(JMH)
|> C'est dans Options - Clavier et là tu peux choisir.

Je ne voulais surtout pas cette réponse.

|> Tu peux aussi l'attaquer en VBA, avec :
|> Application.SetOption ("Comportement du champ en entrée"), 0

Ça, c'est intéressant, mais j'ai vaguement l'impression que
SendKeys va être plus rapide en interne, bien que je peux me
tromper.


Vercheres QC Canada
Avatar
Michel Pellegrini
(JMH)
|> C'est dans Options - Clavier et là tu peux choisir.
|>
|> Je ne voulais surtout pas cette réponse.
|>
|> Tu peux aussi l'attaquer en VBA, avec :
|> Application.SetOption ("Comportement du champ en entrée"), 0

Je viens de vérifier, ça ne résoudrait pas mon problème.
Ça, c'est juste bon lorsqu'on ouvre la base de données.

Une fois la base de données ouverte et qu'on utilise la
boîte Rechercher, le "Où" dans la boîte "Rechercher" va
se placer tel que c'était lors de la recherche précédente
quoi qui soit indiqué dans "Options".

Par contre, SendKeys règle mon problème.


Vercheres QC Canada