J'ai un problème avec une simple requête sélection. J'ai une liste
déroulante dans un formulaire et un bouton de commande. Je veux qu'un
usager puisse sélectionner un nom de fichier dans la liste déroulante,
puis clique sur le bouton de commande contenant une requete qui
sélectionne et affiche l'ensemble des enregistrements correspondant au
nom de fichier en cours. Mais quand je clique, rien ne se produit.
Est-ce un probleme de requete ou dois-je rajouter une instruction dans
mon code VBA pour lui spécifier d'exécuter la requete ET d'afficher
les résultats ?
Voici ma requete:
Private Sub cmdExecReq_Click()
Dim sql As String
sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier =
Me![frmReqLidar]![lstFichier]"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
| J'ai un problème avec une simple requête sélection. J'ai une liste | déroulante dans un formulaire et un bouton de commande. Je veux qu'un | usager puisse sélectionner un nom de fichier dans la liste déroulante, | puis clique sur le bouton de commande contenant une requete qui | sélectionne et affiche l'ensemble des enregistrements correspondant au | nom de fichier en cours. Mais quand je clique, rien ne se produit. | Est-ce un probleme de requete ou dois-je rajouter une instruction dans | mon code VBA pour lui spécifier d'exécuter la requete ET d'afficher | les résultats ? | | Voici ma requete: | | Private Sub cmdExecReq_Click() | | Dim sql As String | | sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier | Me![frmReqLidar]![lstFichier]" | | End Sub
Jusque là... tu ne crée que la chaîne de caractères qui "contient" une requête...
Il faut également la modifier : sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier ='" & Me![frmReqLidar]![lstFichier] & "'"
attention la fin... c'est : = apostrophe guillemets & Me!.... & guillemets apostrophe guillemets
ensuite, tu l'ouvre par : DoCmd.OpenQuery sql
Mais, il serait peut-être mieux de transmettre la chaîne SQL à la source d'un sous-formulaire ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
| J'ai un problème avec une simple requête sélection. J'ai une liste
| déroulante dans un formulaire et un bouton de commande. Je veux qu'un
| usager puisse sélectionner un nom de fichier dans la liste déroulante,
| puis clique sur le bouton de commande contenant une requete qui
| sélectionne et affiche l'ensemble des enregistrements correspondant au
| nom de fichier en cours. Mais quand je clique, rien ne se produit.
| Est-ce un probleme de requete ou dois-je rajouter une instruction dans
| mon code VBA pour lui spécifier d'exécuter la requete ET d'afficher
| les résultats ?
|
| Voici ma requete:
|
| Private Sub cmdExecReq_Click()
|
| Dim sql As String
|
| sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier | Me![frmReqLidar]![lstFichier]"
|
| End Sub
Jusque là... tu ne crée que la chaîne de caractères qui "contient" une requête...
Il faut également la modifier :
sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier ='" & Me![frmReqLidar]![lstFichier] & "'"
attention la fin... c'est :
= apostrophe guillemets & Me!.... & guillemets apostrophe guillemets
ensuite, tu l'ouvre par :
DoCmd.OpenQuery sql
Mais, il serait peut-être mieux de transmettre la chaîne SQL
à la source d'un sous-formulaire ?
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
| J'ai un problème avec une simple requête sélection. J'ai une liste | déroulante dans un formulaire et un bouton de commande. Je veux qu'un | usager puisse sélectionner un nom de fichier dans la liste déroulante, | puis clique sur le bouton de commande contenant une requete qui | sélectionne et affiche l'ensemble des enregistrements correspondant au | nom de fichier en cours. Mais quand je clique, rien ne se produit. | Est-ce un probleme de requete ou dois-je rajouter une instruction dans | mon code VBA pour lui spécifier d'exécuter la requete ET d'afficher | les résultats ? | | Voici ma requete: | | Private Sub cmdExecReq_Click() | | Dim sql As String | | sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier | Me![frmReqLidar]![lstFichier]" | | End Sub
Jusque là... tu ne crée que la chaîne de caractères qui "contient" une requête...
Il faut également la modifier : sql = "SELECT tblLIDAR.* FROM tblLIDAR WHERE tblLIDAR.Fichier ='" & Me![frmReqLidar]![lstFichier] & "'"
attention la fin... c'est : = apostrophe guillemets & Me!.... & guillemets apostrophe guillemets
ensuite, tu l'ouvre par : DoCmd.OpenQuery sql
Mais, il serait peut-être mieux de transmettre la chaîne SQL à la source d'un sous-formulaire ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
