VBA Rowsource

Fermé
pazz - 26 oct. 2009 à 13:58
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 27 oct. 2009 à 12:13
Bonjour,

je cherche à executer une requete SQL Select afin de récupérer les données et les afficher dans une zone de liste

voici le code vba


Private Sub RefreshQuery()
Dim SQL As String

SQL = "SELECT Cartouche FROM CartAndPrint Where Imprimante = '" & txtRef.Text & "' "

SQL = SQL & "And CartAndPrint!Imprimante like '*" & txtRef.Text & "*' "

SQL = SQL & ";"

Me.resultat.RowSource = SQL
Me.resultat.Requery

End Sub


merci

pazz

9 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
26 oct. 2009 à 14:09
Bonjour,

Oui ... et ?

0
et sa marche pas

pazz
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
26 oct. 2009 à 14:31
je m'en doute si tu viens poster ici, le contraire est plus que rare ... ^^

As-tu un message d'erreur ? si oui, sur quelle ligne et quel est-il ?

Es-tu sur Excel, Access ?

0
re bonjour

alors je suis sur access et il m'afficher aucune erreur il me renvoie simplement aucun résultat

merci

pazz
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
27 oct. 2009 à 09:16
Bonjour,

As-tu essayé de passer la requête dans le requêteur en mettant une référence existante à la place de txt.Ref ?

;o)
0
oui sa ne marche pas non plus

pazz
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
27 oct. 2009 à 10:12
Remplace le AND par OR, c'est soit l'un OU l'autre et non l'un ET l'autre.
0
sa ne marche toujours pas mais ce que je trouve bizare c'est que même ce code me renvoi rien



Private Sub RefreshQuery()

Me.resultat.RowSource = "SELECT Cartouche FROM CartAndPrint Where imprimante = 'mf1054'"
Me.resultat.Requery

End Sub



ou est la faute ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
27 oct. 2009 à 12:13
Il y a trop longtemps que je n'ai pas utilisé Access. Je ne pourrai pas te dire comme ça.

Désolé.
0