Discussion :

[lecrol]

Bonjour à tous
J'ai une appli Access de type "dictionnaire Mythologie'" Chaque record de la table comporte un champ texte. Dans ces textes, on trouve très souvent des mots qui sont, eux mêmes, des entrées dans la table (autres records) Je voudrais pouvoir fabriquer un "lien" automatique. Je sélectionne un mot dans le champ texte du formulaire (surbrillance par exemple), et un bouton commande m'ouvre le record (s'il existe !) de la même table mais dont la clé=le mot sélectionné
Exemple: Dans le champ texte, fiche "Dupont", je lis un truc comme " kjkj goispps kk jnbnzneee gsfg durand gdrriizososo " Après avoir mis en surbrillance (pour éviter un copié-colle) le mot "Durand" , le bouton commande m'ouvre la fiche "Durand" (si elle existe)
Est-ce possible ?
Un grand merci pour vos lumières. Moi je n'ai pas trouvé la solution pour "repérer" le mot sélectionné dans le champ texte.

Autre et dernière chose (plus simple ?) : je voudrais sur mon formulaire un bouton qui me fait revenir à la fiche lue juste précédemment. Et ça non plus jen'y arrive pas.

Merci d'avance.
Cordialement
Roland

[argyronet]

Bonjour,

Pour aboutir à ta demande, il te faut user d'un contrôle RichTextBox.
Ce contrôle prendra comme ControlSource, le source de contrôle initiale du champ d'origine qui contient les textes en question.
De là, tu peux sélectionner un mot entier ou une partie de ce dernier dans la zone de texte et appuyer sur un bouton pour ouvrir un autre formulaire qui contiendra les occurences correspondantes...
Voici un exemple :

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
Private Sub cmdSearchThisWord_Click()
Dim strWordSelected           As String
Dim strWhereCondition         As String
Dim oRTextbox                 As RichTextBox
 
    Set oRTextbox = Me.rtbDescription.Object
    With oRTextbox
        strWordSelected = Trim$(.SelText)
    End With
    If MsgBox("Chercher la correspondance avec le mot : " & strWordSelected & " ?", vbQuestion + vbYesNo) = vbYes Then
        If MsgBox("Cliquez sur Oui si cette occurence est exacte ou sur Non si elle est approchée...", vbQuestion + vbYesNo) = vbYes Then
            ''' On a sélectionné le mot entier
            strWhereCondition = "[Mots]='" & strWordSelected & "'"
        Else
            ''' On a sélectionné une partie du mot
            strWhereCondition = "[Mots] LIKE '*" & strWordSelected & "*'"
        End If
        DoCmd.OpenForm "frmLignesCorrespondantes", , , strWhereCondition, , acDialog
    End If
    Set oRTextbox = Nothing
End Sub

Dans cet exemple, mon bouton se nomme cmdSearchThisWord, mon formulaire contenant les lignes à faire correspondre se nomme frmLignesCorrespondantes et le nom du champ en regard, Mots.

Argy

[lecrol]

merci de la rapidité! Je vais essayer avec cette réponse et je te dis tout très bientôt
Roland

[lecrol]

désolé mais ça ne marche pas Il me dit "type non défini" à propos de la ligne richtextebox Si tu veux (et peux), je t'envoie ma base par e-mail Roland

[lecrol]

j'ai aussi essayé un évènement "double click" pour récupérer ma sélection avec Seltexte. Mais ça ne marche pas vraiment. Je l'avais fait marcher, il y a de ça quelque temps. Mais je ne me souviens plus comment. Là, maintenant, je ne sais plus s'il faut ou pas maintenir la touche Ctrl. Je voulais juste essayer d'afficher dans un MsgBox, après mon évènement double click, le mot sélectionné Après ça, il me restait à aller ouvrir la fiche correspondante puis à revenir à la fiche de départ, par une autre bouton commande (presque rien... rires ! )
Roland

[argyronet]

Il te faut poser une zone de l'objet RichTextBox au même titre que tu dessines un champ texte.
Il n'est pas évidement que tu en disposes sur ton PC.
C'est un OCX additionnel qui ne fait pas partie d'Office.
Il faut soit le télécharger quel part, soit installer VB6 sur ton poste.
C'est la propriété SelText qui régit le mot sélectionné dans une zone de texte.
Le contrôle RTBox te permet la mise en forme colorée au sein du contenu.

Argy

[lecrol]

Merci encore. C'est super gentil mais.. ça dépasse mon niveau de compréhension. Franchement.

Sinon, saurais-tu me dire comment, exactement, récupérer dans un Msgbox par exemple des caractères sélectionnés dans mon champ texte ? Avec ça, déjà, je pourrai avancer un peu plus.
Merci d'avance
Roland

[LE VIEUX]

bonsoir,
lors d'un précédent post j'avais bricolé un test, je ne l'ai pas posté car je croyais que ton problème était réglé.
si ça peut t'aider ci-joint la base sur laquelle j'avais fait des tests.

[LE VIEUX]

Bonjour à tous,

lecrol - j'avais pas vu que tu voulais retourner là où tu étais - nouveau ?
alors un bouton de plus.