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

A voir également:

VBA Rowsource
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

9 réponses

Réponse 1 / 9

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

Bonjour,

Oui ... et ?

Réponse 2 / 9

pazz
26 oct. 2009 à 14:16

et sa marche pas

pazz

Réponse 3 / 9

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
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 ?

Réponse 4 / 9

pazz
27 oct. 2009 à 07:58

re bonjour

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

merci

pazz

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

Posez votre question

Réponse 5 / 9

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
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)

Réponse 6 / 9

pazz
27 oct. 2009 à 09:17

oui sa ne marche pas non plus

pazz

Réponse 7 / 9

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
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.

Réponse 8 / 9

pazz
27 oct. 2009 à 10:35

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 ?

Réponse 9 / 9

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
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é.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters