Problème de recherche sur Access VBA

Fermé
Bernamax Messages postés 2 Date d'inscription lundi 21 mai 2012 Statut Membre Dernière intervention 21 mai 2012 - 21 mai 2012 à 08:53
Bernamax Messages postés 2 Date d'inscription lundi 21 mai 2012 Statut Membre Dernière intervention 21 mai 2012 - 21 mai 2012 à 09:24
Bonjour,

J'aurais besoin que vous m'éclairiez de votre connaissance et de votre
savoir faire en vue de débloquer mon stage.

Mon problème est le suivant :

Comme sur l'image ci-jointe, mon but est là de permettre une recherche
multicritère. A la modification de chaque champs, la liste des produit de
met correctement à jour dans la zone du bas, mais chaque champs est pour
le moment indépendant des autre. Ainsi, je ne puis faire qu'une recherche
par type ou par modèle ou pardisponibilité ou par etc. Le problème est que
j'aimerai transformer ces "ou" en "et". (le bouton Rechère multicritère
n'a encore aucune procedure évènementielle reliée)

Voici le code du champs de référence du type

Private Sub critReftype_Change()
Me.Liste0.RowSource =
"SELECT type_produit.ref_type_produit, type_produit.nom_type_produit,
type_produit.descriptif, type_produit.valeur_achat,
modele_produit.ref_modele, modele_produit.video_modele,
produit.ref_produit, produit.nom_produit,
produit.Etat_produit, produit.est_pack,
produit.ref_pack_produit
FROM (produit INNER JOIN modele_produit ON
produit.ref_modele=modele_produit.ref_modele)
INNER JOIN type_produit ON
modele_produit.ref_type_produit=type_produit.ref_type_produit
WHERE type_produit.ref_type_produit Like ('" + Me.critReftype.Text + "*')
ORDER BY type_produit.ref_type_produit;"
If Me.Liste0.ListCount = 0 Then
Me.txtCompteur.Value = 0
Else
Me.txtCompteur.Value = Me.Liste0.ListCount - 1
End If
End Sub

et chaque champs est construit sur le même modèle ( sauf pour est une pack qui est un choix binaire)

Merci d'avance

1 réponse

Bernamax Messages postés 2 Date d'inscription lundi 21 mai 2012 Statut Membre Dernière intervention 21 mai 2012
21 mai 2012 à 09:24
voici l'image :
http://imageshack.com/f/c8sanstitreodp
0