IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Remplissage controle ListView [AC-2002]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Mai 2004
    Messages
    308
    Détails du profil
    Informations personnelles :
    Âge : 71

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Mai 2004
    Messages : 308
    Par défaut Remplissage controle ListView
    Bonjour
    Je voudrais remplir un controle ActiveX listview à l'aide d'une requête basée sur la valeur d'un champ de formulaire
    Ma requête est celle-ci (ListeFilms2)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    SELECT Roles.Film, Roles.Role, Vidéo.AnnéeSortie
    FROM Roles INNER JOIN Vidéo ON Roles.Film = Vidéo.TitreFilm
    WHERE (((Roles.Acteur)=[Formulaires]![Acteurs les plus courants]![Acteur]))
    ORDER BY Vidéo.AnnéeSortie;
    Le champ du form est Acteur
    A l'ouverture du form j'ai l'erreur "Erreur 3061.Trop peu de paramétres : 1 attendu "
    J'ai l'impression que la requête ne va pas chercher la valeur du champ acteur
    En effet si dans la requête je remplace
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =[Formulaires]![Acteurs les plus courants]![Acteur]
    par un nom , ça marche
    Comment puis-je faire ?
    Merci

  2. #2
    Membre confirmé
    Inscrit en
    Mai 2007
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 189
    Par défaut
    Bonjour, teste-cela:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    SELECT Roles.Film, Roles.Role, Vidéo.AnnéeSortie
    FROM Roles INNER JOIN Vidéo ON Roles.Film = Vidéo.TitreFilm
    WHERE (((Roles.Acteur)=[Forms]![Acteurs les plus courants]![Acteur]))
    ORDER BY Vidéo.AnnéeSortie;

  3. #3
    Expert confirmé
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    Décembre 2005
    Messages
    4 485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : Décembre 2005
    Messages : 4 485
    Par défaut
    Bonjour,

    si c'est pour ouvrir un recordset à partir de ta requête :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Dim db As DAO.Database, qdf As DAO.QueryDef, rs As DAO.Recordset
     
    Set db = CurrentDb
    Set qdf = db.QueryDefs("Nom de la requête")
    ' On fournit la valeur du paramètre
    qdf.Parameters("[Formulaires]![Acteurs les plus courants]![Acteur]") = Forms("Acteurs les plus courants").[Acteur]
    ' on ouvre le recordset
    Set rs = qdf.OpenRecordset()
     
    ' . . . . . .
     
    rs.Close
    A+

  4. #4
    Membre éclairé
    Inscrit en
    Mai 2004
    Messages
    308
    Détails du profil
    Informations personnelles :
    Âge : 71

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Mai 2004
    Messages : 308
    Par défaut
    Merci à LedZepII pour son code
    Ca fonctionne nickel !
    A+

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 17/07/2014, 08h45
  2. le controle Listview
    Par abj8077 dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 28/11/2010, 22h29
  3. Probleme avec le control Listview
    Par purking dans le forum ASP.NET
    Réponses: 1
    Dernier message: 07/08/2009, 16h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo