Discussion :

[folkcyrus]

Bonjour,

Je souhaite :
- Trouver un moyen de rechercher des enregistrements d'une table à partir d'un ou plusieurs mots, en interrogeant tous les champs
- Faire en sorte que le résultat s'affiche sous forme de table
- Pouvoir effectuer cette recherche à partir d'un formulaire

Pour info :
- Il s'agit d'une table contenant une liste de livre avec des champs de type : auteur / titre / sous-titre / mots-clés etc.
- Projet gestion de bibliothèque privée sans prêt de livre

Vous remerciant par avance de votre aide,

HG

[madefemere]

Bonjour,

L'interface de recherche utilisé est souvent un formulaire. Tu peux utiliser un formulaire sous forme "tabulaire" pour avoir la liste de tes enregistrements.
Comment faire :
1- Tu crées un formulaire "tabulaire" basé sur les champs "nécessaires" de ta table.
2- Tu y ajoutes une zone de texte indépendante qui va recevoir le mot à rechercher disons txtMotCle.
3- Tu utilises la propriété Filter de ton formulaire pour trouver les enregistrements correspondants :

Code :

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

1
2
3
4
5
6
7
 
'Module de recherche
Private Sub TrouverValeur()
Dim StrFiltre as String
StrFiltre = "[auteur] LIKE '*" & Me.txtMotCle & "*' OR [titre] LIKE '*" & Me.txtMotCle & "*' OR [sous-titre] LIKE '*" & Me.txtMotCle & "*' OR [mots-clés] LIKE '*" & Me.txtMotCle & "'"
Me.Filter = StrFiltre
End Sub

Tu appelles ce module sur les évènements SurClick d'un bouton de commande ou AprèsMiseAJour de ta zone de texte.

Si tu veux en savoir plus, tu as plusieurs tutos sur les formulaires de recherche ICI

Cordialement,

PS : Il faut prévoir un bouton pour annuler le filtre de ton formulaire.
EDIT : Merci AccessisGood pour l'utilisation correcte du joker "*" dans les critères=> LIKE au lieu des égalités.. Je corrige mon code.

[accessisgood]

Bonjour

il y a plusieurs techniques, par exemple, après saisi du critere de recherche tu places ce code pour filtrer

Code :

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

1
2
3
4
5
6
7
8
Private Sub prmRecherche_AfterUpdate()
If IsNull(prmRecherche) Then
    Me.Livres_List.Form.Filter = ""
Else
    Me.Livres_List.Form.Filter = "[Auteur] like '*" & Me.prmRecherche & "*' OR [Titre] like '*" & Me.prmRecherche & "*' OR [SousTitre] like '*" & Me.prmRecherche & "*' OR  [Motsclef] like '*" & Me.prmRecherche & "*'"
    Me.Livres_List.Form.FilterOn = True
End If
End Sub

ci joint exemple
Recherche.zip

[folkcyrus]

Bonsoir et merci à vous deux pour ces précieux conseils.
Je n'ai pas pu travailler à ce projet avant aujourd'hui, du coup j'ai attendu pour vous répondre d'avoir travaillé un peu. Et vraiment merci.
Dans l'exemple de madefemere j'ai fait un formulaire Livres-List qui regroupe l'ensemble des livres et un autre Recherche dans lequel j'ai inséré un sous formulaire avec ma liste de livres qui apparait. Il me reste donc de pouvoir taper les mots clés dans la zone de texte créée pour rechercher mes livres. Malheureusement je n'ai pas encore trouvé comment insérer la zone de recherche pour qu'elle fonctionne, pour l'instant je l'ai créée mais je ne peux pas entrer de mots clés. Impossible de cliquer dedans. Je l'ai nommé comme dans l'exemple prmRecherche. Je vais maintenant travailler sur ce point. Je peux envoyer le fichier si ça peut aider.
Toujours est-il que le projet a bien avancer. Encore merci.
Je vais encore y travailler.

HG

[Jeannot45]

As-tu regardé du coté des tutos sur les recherches :

Création d'un formulaire de recherche multicritères

Bonne continuation

[folkcyrus]

Bonjour,

Merci de ne pas tenir compte du message précedent. Il suffisait de passer en mode formulaire et cela marche à merveille.
Je vais retravailler sur ce projet et je reviendrai avec quelques questions !
Merci encore pour votre aide, pour l'heure c'est joliment résolu.
PS Je vais essayer de marquer résolu mais je ne suis pas certaine de savoir le faire. Désolée et je vais essayer de trouver.
HG