Problème de recherche sur Access VBA
Bernamax
Messages postés
2
Statut
Membre
-
Bernamax Messages postés 2 Statut Membre -
Bernamax Messages postés 2 Statut Membre -
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
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
A voir également:
- Problème de recherche sur Access VBA
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche image - Guide
- Rechercher ou entrer l'adresse 4 - recherche google ✓ - Forum Réseaux sociaux
- Acer quick access ✓ - Forum PC portable
- Probleme recherche chaine tv tcl - Forum TV & Vidéo