Superbe recherche et mise en valeur des résultats

Bonjour,

Je ne sais pas si quelqu'un a déjà signalé ce nouveau cadeau d'Allen Browne (encore un :P), mais, à l'occasion d'une question pour reproduire le mode de recherche d'Access 2007 (Simuler les boutons de déplacement en VBA), j'ai pu donner ce lien :

Citation:

---

Si tu es prêt à faire quelque chose d'un peu compliqué, et si ton formulaire peut être affiché en vue continue, je te conseillerais vivement de faire beaucoup mieux que ça.
Sur le site d'Allen Browne, tu trouveras un exemple permettant :
- de filtrer les enregistrements qui contiennent le texte recherché (ça, on sait déjà faire),
- d'afficher d'un coup toutes les occurrences de ce texte, dans tous les contrôles recherchés, avec le format de ton choix. Formatage html, donc en gras, surligné, couleur... tout ce que tu veux.
C'est assez spectaculaire :ccool:

http://allenbrowne.com/AppSearchHighlight.html
L'image montre les résultats en rouge.
Tu peux télécharger l'exemple et t'en servir.

---

Ça peut sûrement servir à d'autres...

Hello,

Le but de la manipulation était de pouvoir effectuer une recherche dans un sous-formulaire en temps réel (càd, on tape une lettre et l'affichage se met à jour) et ensuite on peut cliquer sur un des enregistrements pour pouvoir afficher plus d'informations dans une autre sous-formulaire.
Dans l'exemple ci-dessous:

• Suivi est le formulaire principal sur lequel se trouve l'utilsateur
• cboFind est une listbox comprenant les champs sur lesquels on veut faire une recherche
• cboText est une zone de texte où l'utilisateur va faire sa recherche
• SF_List est le 1er sous-formulaire où apparaîtront les résultats synthétiques
• SF_detail est le 2ème sous-formulaire où apparaîtront les résultats détaillés

Pour ce qui est de la recherche, dans l'attribut "Change" de txtFind, le code est le suivant:

Code:

---

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 30 31 32

Dim strText As String Dim lngSelStart As Long Dim strField As String   Set frm = Forms![Suivi]![SF_List] Set frm2 = Forms![Suivi]![SF_detail] strText = Me.txtFind.Text lngSelStart = Me.txtFind.SelStart   If frm.Form.Dirty Then frm.Form.Dirty = False End If   If frm2.Form.Dirty Then frm2.Form.Dirty = False End If   strField = cboFind.Value   If (strText = vbNullString) Or (strField = vbNullString) Then frm.Form.FilterOn = False frm2.Form.FilterOn = False Else frm.Form.Filter = strField & " Like """ & IIf(mbcStartOfField, vbNullString, mstrcWildcardChar) & _ strText & mstrcWildcardChar & """" frm.Form.FilterOn = True frm2.Form.Filter = strField & " like """ & IIf(mbcStartOfField, vbNullString, mstrcWildcardChar) & _ strText & mstrcWildcardChar & """" frm2.Form.FilterOn = True   End If

---

Il faut penser à déclarer les constantes suivantes en début de code:

Code:

---

1 2 3

Private Const mbcStartOfField = False Private Const mstrcWildcardChar = "*"

---

Et pour passer de l'affichage de SF_List à l'affichage détaillé du même enregistrement dans SF_detail, j'ai utilisé le code suivant dans toutes les zones "clickables" de SF_List:

Code:

---

1 2 3

Forms![Suivi]![SF_detail].SetFocus DoCmd.GoToRecord , , acGoTo, Me.CurrentRecord

---