[VBA Access] recherche multicriteres
Fermé
sophiechery
-
30 juil. 2007 à 16:34
xeros33 Messages postés 26 Date d'inscription jeudi 26 juillet 2007 Statut Membre Dernière intervention 31 janvier 2008 - 1 août 2007 à 08:26
xeros33 Messages postés 26 Date d'inscription jeudi 26 juillet 2007 Statut Membre Dernière intervention 31 janvier 2008 - 1 août 2007 à 08:26
A voir également:
- [VBA Access] recherche multicriteres
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
- Recherche musique - Guide
- Recherche par image - Guide
- Find vba - Astuces et Solutions
3 réponses
xeros33
Messages postés
26
Date d'inscription
jeudi 26 juillet 2007
Statut
Membre
Dernière intervention
31 janvier 2008
1
30 juil. 2007 à 16:57
30 juil. 2007 à 16:57
salut a toi
moi aussi il m'est arrivé le même problème
pour ma part j'avais créer des check box et j'avais rentré le code suivant:
private sub refresh query
dim sql as string
sql="select * from ma table"
if not me.chk_société then
sql=sql & "and société from ma table like '*" & me.txtsociété & " *'
end if
'a repeter autant de fois que tu as de combo
sql=sql & ";"
me.lstresult.rowsource=sql 'lstresult = tableau ou tu affiche tes resultats
me.lstresult.requery
end sub
private sub chksociété_click()
refreshquery
end sub
ce n'était pas de moi je l'avais trouvé d'un tuto sur le net
en esperant que ca t'aide
xeros
moi aussi il m'est arrivé le même problème
pour ma part j'avais créer des check box et j'avais rentré le code suivant:
private sub refresh query
dim sql as string
sql="select * from ma table"
if not me.chk_société then
sql=sql & "and société from ma table like '*" & me.txtsociété & " *'
end if
'a repeter autant de fois que tu as de combo
sql=sql & ";"
me.lstresult.rowsource=sql 'lstresult = tableau ou tu affiche tes resultats
me.lstresult.requery
end sub
private sub chksociété_click()
refreshquery
end sub
ce n'était pas de moi je l'avais trouvé d'un tuto sur le net
en esperant que ca t'aide
xeros
Utilisateur anonyme
31 juil. 2007 à 17:26
31 juil. 2007 à 17:26
Bonjour,
J'ai une solution à vous proposer ...
Modifier la requête par programmation au fur et à mesure que les critères sont sélectionnés.
Première étape :
Construire une requête avec 3 critères correspondant au choix de chacun des combobox.
Généré ensuite la routine :
Private Sub ComboBox1_AfterUpdate()
End Sub
À partir de ces 2 informations je pourrai vous guider pour construire la mécanique.
Lupin
J'ai une solution à vous proposer ...
Modifier la requête par programmation au fur et à mesure que les critères sont sélectionnés.
Première étape :
Construire une requête avec 3 critères correspondant au choix de chacun des combobox.
Généré ensuite la routine :
Private Sub ComboBox1_AfterUpdate()
End Sub
À partir de ces 2 informations je pourrai vous guider pour construire la mécanique.
Lupin
xeros33
Messages postés
26
Date d'inscription
jeudi 26 juillet 2007
Statut
Membre
Dernière intervention
31 janvier 2008
1
1 août 2007 à 08:26
1 août 2007 à 08:26
bonjour,
le mieux, je pense, serait que tu nous mette le code que tu as fait avec les bonnes variables afin de mieu pouvoir te guider dans ta démarche
le mieux, je pense, serait que tu nous mette le code que tu as fait avec les bonnes variables afin de mieu pouvoir te guider dans ta démarche
31 juil. 2007 à 15:52
si je laisse la derniere sub:
private sub chksociété_click()
refreshquery
end sub
alors ma listbox est carrement vide. si je retire ces 3 dernieres lignes, je reobtiens les memes resultats qu'avec mon ancien code :(
merci en tout cas
Sophie