recherche dans access

**jeck** · 27/04/2006, 09h58

Bonjour à tous,
Voila je gère plus de 2000 photos dans une mairie et j'ai crée des requêtes qui permettent de rechercher des photos en fonction de leur nom.
Le problème est que si une personne recherche une photo, elle sera obligée de mettre le nom précis, sinon le nom de la photo recherchée n'apparaitra pas.
Peut-on trouver un système qui permette de rechercher le nom d'une photo en ne mettant qu'une partie du nom?

**ft035580** · 27/04/2006, 10h03

Salut,

Essaye: Like "Une partie du nom *"

**jeck** · 27/04/2006, 10h56

Cela ne marche pas

**tamerlan** · 27/04/2006, 11h09

tu as la fonction toute prete d' access (les jumelles).
essayes

**jeck** · 27/04/2006, 11h37

Oui mais ce n'est pas ce que je souhaite faire.

En fait, la requête que j'ai crée inclut le critère [quelle photo?] dans le champ NOMPHOTOS, ce qui permet de ne faire apparaitre que la photo désirée et de supprimer les autres. Le problème c'est que les personnes qui rechercheront une photo ne connaitront pas le nom de la photo exacte.
Ex : Une personne recherche une photo de la foire Saint Simon, elle va taper "saint simon", alors que moi je l'aurai nommer "foire saint simon". Dans ce cas, la photo n'apparaitra pas, car le nom de la photo exact n'aura pas été saisi.
Moi, je souhaite que la requête reconnaisse la photo, meme si le nom exact n'a pas été saisi.
Est ce possible?

**tamerlan** · 27/04/2006, 11h41

oui, la recherche toute prete le fait, lutilisateur met le champ "où" à "n'imorte ou dans le champs.

**stéphane_ais2** · 27/04/2006, 11h43

Bonjour,

Peut-être que ceci peut t'orienter :
http://cafeine.developpez.com/access...echerchemulti/

Tu y trouveras je pense ta réponse...

SE

**aCe_GiK** · 27/04/2006, 11h53

Salut,
Moi je te propose le critère suivant:

Code :

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

[ListePhoto].rowSource = "Select Photo From TablePhoto Where NomPhoto Like '*" & [MonChamp] & "*';"

à insérer, par exemple, dans un événement 'Sur clic' d'un bouton qui lancerait la recherche de tous les noms de photos contenant la valeur saisie dans le champ de texte 'MonChamp' et afficherait le résultat dans une zone de liste 'ListePhoto'

**jeck** · 27/04/2006, 15h03

Stéphane, j'avais déja regardé le tutoriel de caféine, mais je ne crée pas de combobox. Je ne pense donc pas pouvoir utiliser sa méthode.
aCe_GiK, j'ai utilisé ta méthode mais quand je clique sur le bouton, il me met "Microsoft Office Access ne peut pas trouver la macro ListePhoto."
Pourquoi?

**Lou Pitchoun** · 27/04/2006, 15h08

Salut,
je pense que listephoto est le nom que tu dois donner à une zone de liste (ou sous formulaire..) qui listera toutes les photos correspondantes à la recherche...
Essaie

Code :

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

Me.ListePhoto.RowSource =...

Edit :

Envoyé par aCe_GiK

afficherait le résultat dans une zone de liste 'ListePhoto'

**stéphane_ais2** · 27/04/2006, 15h12

J'ai laissé ce lien car tu y trouves la réponse que tu cherches...
...reprise en fait par aCe_GiK puisque Caféine propose dans son tuto une recherche sur critère contenu (non exact) notamment sur un titre, un auteur.

SE

**jeck** · 27/04/2006, 16h38

Stephane, le problème dans le tuto de caféine, c'est qu'on a besoin d'une instruction SQL, et donc d'une combobox. A moins que je n'ai pas bien compris l'application...

Kikof, j'ai bien appelé ma zone de liste "ListePhoto" et j'ai introduit le code de aCe-GiK dans l'évènement "sur clic" de mon bouton. J'ai aussi nommé mon champ texte: "MonChamp".
Cependant, il me met "Microsoft Office Access ne peut pas trouver la macro ListePhoto." Faut-il se servir de Visual Basic pour que le bouton marche?

**Lou Pitchoun** · 28/04/2006, 08h54

Il faut que tu ailles sur les propriétés du bouton :
Onglets Evènements -> Sur Clic.
Tu cliques sur les ... et tu mets le code.

**stéphane_ais2** · 28/04/2006, 09h28

Bonjour,

Stephane, le problème dans le tuto de caféine, c'est qu'on a besoin d'une instruction SQL, et donc d'une combobox. A moins que je n'ai pas bien compris l'application...

Non, la recherche sur critère contenu est faite à partir d'une zone de texte. C'était juste pour préciser...

Bon courage

**jeck** · 28/04/2006, 09h46

Oui, justement, si c'est une zone de texte on ne peut pas faire d'instruction SQL. Et sans instruction SQL, peut-on faire l'application?

**jeck** · 28/04/2006, 10h02

Kikof, merci. Moi je ne cliquais pas sur le [...], je mettais le code directement.
Il n'y a donc plus de messages d'erreur... mais cela ne marche pas.
Quand je clique sur le bouton, il ne se passe rien.

Voici mon code:

Code :

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

1
2
3
4
 
 
=ListePhoto.Contenu="Select NOMPHOTOS From tblPhotos Where NOMPHOTO Like '*" _
& [MonChamp] & "*';"

Je ne vois pas ou je me suis trompé.

**stéphane_ais2** · 28/04/2006, 10h25

Je veux préciser que je ne tiens pas particulièrement à ce que tu appliques le tuto de Caféine. Je veux simplement t'orienter vers une solution bien pensée pour faire des recherches sur des critères (dont des noms incomplets) à partir de zones de texte.
Les obstacles que tu penses y voir n'en sont pas sauf erreur de ma part...

SE

**Lou Pitchoun** · 28/04/2006, 10h33

Peux tu mettre le code entier de "Private Sub Nombouton_Click()" à "End Sub"

Mais déjà, tu as mis le signe = devant ListePhoto. Enlève le et mets

Code :

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

Me.ListePhoto.RowSource = ....

**jeck** · 28/04/2006, 11h10

Stephane, c'est vrai que je n'ai peut etre pas bien compris l'application, mais je ne l'utilise pas car je n'y arrive pas.

Kikof, le code que j'ai donné est celui que j'ai inséré dans le générateur d'expression de l'évènement clique. Le "=" c'est lui qui me le met automatiquement, je ne peux pas l'enlever. Il me transforme aussi le "rowSource" en "contenu".
Sinon, voici le code de VB:

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub recherchephoto_Click()
 
Me.ListePhoto.RowSource = "Select Photo From TablePhoto Where NOMPHOTOS Like '*" _
& [MonChamp] & "*';"
 
End Sub

**Lou Pitchoun** · 28/04/2006, 13h44

Code :

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

1
2
3
4
5
6
Private Sub recherchephoto_Click()
 
Me.ListePhoto.RowSource = "Select Photo From TablePhoto Where " & _ 
    NOMPHOTOS Like " & Chr(34) & MonChamp & Chr(34)
 
End Sub

recherche dans access

Access

Discussions similaires

Partager

Partager