Discussion :

[sharivary]

Bonjour,

Niveau Débutant

Je souhaite créer une base de documents et pour la recherche de ceux-ci j'ai créé une zone de texte "TxtRechercheRecours" et une zone de liste déroulante "ListeResultRecours" qui se référence à une table à deux colonnes avec en F2 le noms des documents et en F1 le hyperliens.

Sur la zone de texte j'ai mis une procédure évenementielle sur changement avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TxtRechercheRecours_Change()
  Dim QRY As String
    QRY = "SELECT  * FROM RecoursBasesFondements " _
         & "WHERE Nom Like '" & TxtRechercheRecours.Text & "*';"
 
    If Len(TxtRechercheRecours.Text) > 0 Then
        Me.ListeResultRecours.RowSource = QRY
    Else
        Me.ListeResultRecours.RowSource = ""
    End If
End Sub

Mais cela ne relève rien dans la zone de liste déroulante et je n'en comprend pas le pourquoi...

D'avance merci à vous!

[madefemere]

Bonjour,

Et avec une actualisation Me.Requery à la fin du code, est-ce que ça ne marche pas?

Cordialement,

[sharivary]

Testé avec Me.requery :

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TxtRechercheRecours_Change()
  Dim QRY As String
    QRY = "SELECT * FROM RecoursBasesFondements " _
         & "WHERE Nom Like '" & TxtRechercheRecours.Text & "*';"
 
    If Len(TxtRechercheRecours.Text) > 0 Then
        Me.ListeResultRecours.RowSource = QRY
    Else
        Me.ListeResultRecours.RowSource = ""
    End If
Me.Requery
End Sub

Nop... Marche pas...

[madefemere]

Bonjour,

Peut-être que je n'ai pas compris ce que tu veux faire parce que ton code marche correctement essayé sur la petite base ci-jointe (j'ai rajouter un dropdown et un setfocus qui sont là pour pousser un peu le code).
Peux-tu reexpliquer s'il te plait exactement ce que tu veux comme résultat?

[sharivary]

Merci à toi,

Effectivement ton formulaire marche parfaitement et il possède la même architecture que le miens mais je pense que cela vient du fait que ma table "RecoursBasesFondements" est lié à un tableur excel et le format du champs est bien en texte mais avec un "@" qui n'est pas modifiable sur une table lié. Cela semble-t-il sensé?

Par contre si c'est ou m^me ce n'est pas l'originie du problème, je ne vois pas comment le résoudre..

En tout cas merci de ton aide.

[madefemere]

Re-,

Je ne comprends pas. Le fait que ça soit une table liée à partir d'un fichier Excel ne devrait pas poser de problèmes.
Je viens d'essayer et ça marche.
Mais qu'est-ce que tu entends par "@" ? Tu veux dire que les champs comportent de tels caractères? ou ce sont les noms de champs?

@+

[sharivary]

Je comprend absolument pas pourquoi cela ne fonctionne pas.. Gros quid donc je te joins mon fichier et je te remercie grandement de l'aide que tu m'as déjà apporté!

Pour l' @ celui-ci se situe dans la table sous le format mais je me dis qu'il y a peut être un lien avec la complexité des noms dans le champs concerné par la recherche...

Recherche.zip

[madefemere]

Bonjour,

Normal si ça ne fonctionne pas si tu n'utilises pas les noms corrects de tes champs de tables

Dans ton code :

Code :

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

1
2
    QRY = "SELECT * FROM RecoursBasesFondements " _
         & "WHERE Nom Like '" & TxtRechercheRecours.Text & "*';"

Tu choisis toutes les valeurs dont le champ Nom = au début de TxtRechercheRecours.Text. Or les noms de tes champs sont F2 et F1.
Il faudrait mettre :

Code :

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

1
2
    QRY = "SELECT * FROM RecoursBasesFondements " _
         & "WHERE F2 Like '" & TxtRechercheRecours.Text & "*';"

si F2 contient effectivement les noms.

Bonne continuation

[sharivary]

Merci beaucoup!
Parfois les yeux ne suivent plus et celle là m'est passé inaperçu!