Discussion :

[priest69]

Bonjour,

voici ma requete :

Code :

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

1
2
3
4
5
6
Dim var As String
 
var = TxtProd.Value
 
LstProduits.RowSource = "SELECT PRODUIT.RefProduit, PRODUIT.RefPdFour, PRODUIT.DesignProduit from PRODUIT WHERE (((PRODUIT.DesignProduit) Like 'var' & "*" "
LstProduits.Requery

Mais elle ne fonctionne pas

Bien évidemment var est de type texte ...

[norvel]

bonjour,

pourquoi trois ouvertures de parenthèses et une seule fermeture?

[norvel]

et pourquoi "*" au lieu de '*'

[priest69]

Bonjour ...

Firstable ... il n'y pas pas une seule fermeture .. si tu comptes bien ...
okay, j'avais oublié de faire lamodif sur le POST

LstProduits.RowSource = "SELECT PRODUIT.RefProduit, PRODUIT.RefPdFour, PRODUIT.DesignProduit FROM PRODUIT WHERE (((PRODUIT.DesignProduit) Like [TxtProd] & " * "))"

Mais il me marque : Incompatibilité de type !!! Alors qu'en QBE car marche sans soucis

Thanks

[Faw]

Salut, essaye comme ça

Code :

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

1
2
LstProduits.RowSource = "SELECT RefProduit, RefPdFour, DesignProduit FROM PRODUIT WHERE DesignProduit Like '" & _
[TxtProd] & "*'"