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 :

Lancer une requête paramétée en VBA


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 48
    Par défaut Lancer une requête paramétée en VBA
    Bonjour,

    Je travaille en VBA sous ACCESS.
    J'ai une base de données dans laquelle j'ai créé des requêtes à partir des outils ACCESS et pas en VBA, ayant un champ variable en fonction d'une saisie dans un formulaire, que j'utilise dans différents programmes ultérieurs.
    J'ai donc, dans ma table de requête, une colonne comportant un critère [nom formulaire]![nom du champ du formulaire] qui défini la variable à prendre enc ompte.
    Je souhaite maintenant que ce critère ne soit plus rempli par le champ du formulaire mais par une variable VBA.
    Ai-je été clair ?
    Comment puis-je faire ?

    Emmanuel

  2. #2
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    3 038
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 038
    Par défaut
    En supposant que ton form reste ouvert pour pouvoir utiliser la valeur de ton champ, tu fais une fonction publique (dans un module standard) qui lit la valeur de ton champ.

    A+

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 48
    Par défaut Comment ?
    Merci de m'éclaircir sur ta réponse.

    Emmanuel

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 48
    Par défaut Petite précision
    En fait je lance la requête par la commande suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    DoCmd.OpenQuery "pagedegarde-1", acNormal, acEdit
    et dans la requête j'ai la chose suivante (voir image jointe)


    Cordialement.

    Emmanuel
    Images attachées Images attachées  

  5. #5
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    3 038
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 038
    Par défaut
    dans un module tu fais une fonction publique qui lit le champ de ta form
    (ici exemple d'un champ String)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Public Function fLitMonChamp() As String
        fLitMonChamp = Forms("Formulaire1")![monTexte]
        Debug.Print fLitMonChamp
    End Function
    Pour l'appeler, cf ci-joint

    A+

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 48
    Par défaut Merci beaucoup
    Ok ça marche nickel je vais pouvoir avancer dans mon projet.

    Emmanuel

    PS. : Les gens de ce site sont vraiments sympas....

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

Discussions similaires

  1. [XL-2010] VBA-Excel : Intranet : Lancer une requète
    Par e-pablo06 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/02/2014, 22h01
  2. [Toutes versions] Lancer une requête SQL Delete à partir de VBA Excel
    Par Chrisros dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 28/01/2014, 07h45
  3. [XL-2003] Lancer une requête Access "déjà écrite" par vba excel
    Par Katatonia dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/07/2011, 09h07
  4. Réponses: 5
    Dernier message: 05/04/2006, 15h54
  5. Conversion d'une requête SQL en VBA
    Par Keraccess dans le forum Requêtes et SQL.
    Réponses: 5
    Dernier message: 26/10/2004, 17h33

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