VBA Rowsource

pazz -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 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
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Incompatibilité de type vba ✓ - Forum VB / VBA

9 réponses

Réponse 1 / 9

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Oui ... et ?

Réponse 2 / 9

pazz

et sa marche pas

pazz

Réponse 3 / 9

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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

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 Statut Membre Dernière intervention 1 204

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

oui sa ne marche pas non plus

pazz

Réponse 7 / 9

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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

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 Statut Membre Dernière intervention 1 204

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

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

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

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

Votre réponse

Discussions similaires