Discussion :

[Khalou8]

Bonjour,
voila ce que je recois comme message d'erreur lorsque j'éxecute mon prog :
Fonction 'cenvert' non définie dans l'expression.
Et voici mon code :

Code :

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

AdoFilter.Open "Select * From Commande Where [Référence Fournisseur] Like '" & Txtsearch.Text & "' And [Date Commande] = convert(datetime, '" & TxtC.Text & "',103) Order by [Référence Article]", dbFilter, adOpenStatic, adLockOptimistic

[icsor]

Bonjour,

je ne suis pas un expert en convertion mais il me semble que convert admet comme 2ième et 3 ième arguments des jeux de caractères.

Est ce ce que vous essayez de faire (ou bien essayez vous de convertir une variable en date)? De plus, si vous nous donniez votre SGBD cela serait certainement plus facile de vous aider.

[miamou]

Remplace ta requete par:

Code :

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

1
2
3
4
5
 
Dim D
D =  convert(datetime, TxtC.Text, 103)
'Pour que ta requete devient de la forme
"Select * From Commande Where [Référence Fournisseur] Like '" & Txtsearch.Text & "' And [Date Commande] = " & D & " Order by [Référence Article]"

j'espère avoir aidé