sancho12345
Messages postés131Date d'inscriptionjeudi 21 mai 2009StatutMembreDernière intervention18 mars 2012
-
28 juin 2009 à 15:28
sancho12345
Messages postés131Date d'inscriptionjeudi 21 mai 2009StatutMembreDernière intervention18 mars 2012
-
28 juin 2009 à 17:03
Bonjour à tous,
Encore merci à PCPT pour sa réponse d’hier mais en regardant bien cela ne fonctionne pas à moins que cela ne vienne de moi, c’est tout à fait possible.
Une petite question qui j'espère sera pour vous simple ( Aucun doute)<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Voici mon code qui fonctionne bien avec ma base access.
************************************************
Private Sub txt_nom_produit_Change() ' requête qui permet d'afficher en fonction de la première lettre les produits commençant par cette lettre
sql_tout_les_noms = "select * from tempsetnoms WHERE reference_pdt LIKE '" & txt_nom_produit & "%' order by reference_pdt "
Call recherchetempsetnoms(sql_tout_les_noms)
End Sub
********************************************
Function recherchetempsetnoms(requete_sql As String)
MsgBox " Il n'y a aucun produit dans la base ACCESS, portant cette référence. Vous devez mettre la base à jour. Dans la base Access nommée baseproduits, la table porte le nom Tempsetnoms.", vbOKOnly + vbInformation, "Erreur"""
Else
form_ajout_produit.ListBox1.Clear
rst.MoveFirst
While Not (rst.EOF)
form_ajout_produit.ListBox1.AddItem rst("reference_pdt") form_ajout_produit.ListBox1.List(i, 1) rst("noms_pdt") quantite" colonne 2 de la base
form_ajout_produit.Text1 = rst("duree_pdt")
rst.MoveNext
Wend
End If
rst.Close
End Function
***********************************************
Voilà ma question: Comment puis-je faire en modifiant ma requête pour que lorsque je rencontre un - ( du 6) tout ce qui est au delà ne soit pas prit en compte par la recherche mais continu à écrire dans txt_nom_produit.
: je veux écrire dans mon txt_nom_produit toutou.bien-820toutou.bien- il faudrait à partir de - que la recherche ne fonctionne plus.
J'espère que j'ai été clair.
Mais lorsque je tape un nom(ex : toutou.bien-1 ) mais que dans ma base Access seul le nom toutou.bien-820 y figure il ne dit :
Il n'y a aucun produit dans la base ACCESS, portant cette référence. Vous devez mettre la base à jour. Dans la base Access nommée baseproduits, la table porte le nom Tempsetnoms.
Comment ne plus tenir compte des chiffres ou des lettres après le -, tout en continuant d’écrire dans le
txt_nom_produit
sans tenir compte a ce moment là de la base. Par contre si on revint en arrière dans le
sancho12345
Messages postés131Date d'inscriptionjeudi 21 mai 2009StatutMembreDernière intervention18 mars 2012 28 juin 2009 à 16:23
Désolé ,
effectivement j’ai fait un copier coller d’hier mais voilà ce que j’ai dans mon programme.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
MsgBox " Il n'y a aucun produit dans la base ACCESS, portant cette référence. Vous devez mettre la base à jour. Dans la base Access nommée baseproduits, la table porte le nom Tempsetnoms.", vbOKOnly + vbInformation, "Erreur"""
Else
form_ajout_produit.ListBox1.Clear
rst.MoveFirst
While Not (rst.EOF)
form_ajout_produit.ListBox1.AddItem rst("reference_pdt") form_ajout_produit.ListBox1.List(i, 1) rst("noms_pdt") quantite" colonne 2 de la base