Discussion :

[Papy Turbo]

Bonjour,

Je ne sais pas si quelqu'un a déjà signalé ce nouveau cadeau d'Allen Browne (encore un ), 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 :

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

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...

[Vivi127]

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 :

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

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 :

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

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 :

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

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