Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 17/10/2011, 14h44   #1
Invité de passage
 
Inscription : décembre 2010
Messages : 14
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 14
Points : 3
Points : 3
Par défaut Recherche multi critères

Bonjour à tous, j'ai adapté le code de recherche multi-critères de cafeine à ma base de données. Cependant, lorsque je demande la recherche d'un titre ex: NGC 1, le système sort aussi dans les résultats NGC 11, NGC 12,... Je ne veux pas que les autres titres s'affichent, mais uniquement le titre exact demandé. Cependant, si j'écris NGC, je veux que tous s'affiche (les 100). Ci-joint, la base de données de cafeine dont les titres ont été modifiés (Ma base étant trop lourde).

Un gros merci
Fichiers attachés
Type de fichier : zip recherche multi-critères.zip (54,5 Ko, 11 affichages)
f.lajoie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 14h48   #2
Membre du Club
 
Développeur informatique
Inscription : décembre 2008
Messages : 43
Détails du profil
Informations personnelles :
Âge : 49

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : décembre 2008
Messages : 43
Points : 46
Points : 46
Salut,

Dans ton code (RefreshQuery) tu utilises LIKE donc il affiche tous ce qui commence par NGC.
Mets = et il n'affichera que ce que tu tapes.
NguyenRD est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 15h46   #3
Membre confirmé
 
Homme
Chercheur
Inscription : juin 2011
Messages : 150
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Tarn (Midi Pyrénées)

Informations professionnelles :
Activité : Chercheur
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : juin 2011
Messages : 150
Points : 231
Points : 231
Bonjour,

Compte tenu de votre demande, il vous faut ajouter la condition :

Code :
1
2
3
4
5
If [Titre] Like "*#" Then
'Code avec =
Else
'Code avec LIKE
End If
Bcdt
fbtsra est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 21h54   #4
Invité de passage
 
Inscription : décembre 2010
Messages : 14
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 14
Points : 3
Points : 3
Merci fbtsra, mais j'arrive au même résultat. Serait-il plus envisageable de créer un bouton radio qui spécifie une recherche exact (lorsque activé) et une recherche qui contient (lorsque vide). ? Si oui, pourrait-on (avec la base de données qui est attaché) créer le bouton radio et m'écrire le code svp, je ne suis pas programmeur. Un gros merci
f.lajoie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 08h54   #5
Membre confirmé
 
Homme
Chercheur
Inscription : juin 2011
Messages : 150
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Tarn (Midi Pyrénées)

Informations professionnelles :
Activité : Chercheur
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : juin 2011
Messages : 150
Points : 231
Points : 231
Bonjour,

Il vous faut remplacer le code actuel :

Code :
1
2
3
If Not Me.chkTitre Then
SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "   
End If
par le code :

Code :
1
2
3
4
5
6
7
8
9
If Not Me.chkTitre Then
 
    If txtRechTitre Like "*#" Then
    SQL = SQL & "And Medias!Titre = '" & Me.txtRechTitre & "' "
    Else
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
    End If
 
End If
ou pour simplifier utiliser les modifs suivantes sur votre fichier attaché.

Bcdt
Fichiers attachés
Type de fichier : zip recherche multi-critères.zip (53,5 Ko, 3 affichages)
fbtsra est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 16h50   #6
Invité de passage
 
Inscription : décembre 2010
Messages : 14
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 14
Points : 3
Points : 3
Merci fbtsra, j'ai modifié le code dans ma base de données et ça marche. Toutefois, je me suis apperçu qu'il ne tien pas compte si je fais une recherche d'une valeur n'importe ou dans le champ.

1- Si je recherche NGC, tout les 100 apparaît OK
2- Si je recherche NGC 1, il m'affiche que la valeur NGC 1 OK
3- Si je recherche NGC 9 (NGC 9;Mes 12), aucun résultat ????????
4- Si je recherche Mes, il m'affiche que la valeur NGC 9;Mes 12 OK
5- Si je recherche Mes 12 qui est associé à NGC 9 (NGC 9;Mes 12), aucun résultat. ??????


Y-a-t-il une condition suplémentaire à mettre pour avoir le résultat du point 3 et 5

Merci
f.lajoie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/10/2011, 09h05   #7
Membre confirmé
 
Homme
Chercheur
Inscription : juin 2011
Messages : 150
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Tarn (Midi Pyrénées)

Informations professionnelles :
Activité : Chercheur
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : juin 2011
Messages : 150
Points : 231
Points : 231
Bonjour,

Il est possible de gérer les exceptions une à une mais ce n'est pas conseillé ...

Par contre les modifications apportées dans le fichier joint répondent à vos 5 demandes :



Bcdt
Fichiers attachés
Type de fichier : zip recherche multi-critères.zip (53,6 Ko, 4 affichages)
fbtsra est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h07.


 
 
 
 
Partenaires

Hébergement Web