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 :

Transfert requête SQL QBE vers VBA


Sujet :

VBA Access

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Prédident Sociétés
    Inscrit en
    Janvier 2007
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Nouvelle-Calédonie

    Informations professionnelles :
    Activité : Prédident Sociétés
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 8
    Points : 6
    Points
    6
    Par défaut Transfert requête SQL QBE vers VBA
    Bonjour à tous,

    Il y aurait-il quelqu'un pour aider un débutant?

    J'ai une requête créee en QBE et qui fonctionne parfaitement. Je cherche la syntaxe à employer pour l'utiliser dans une procédure VBA.

    Voici ma requête:

    Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    SELECT Sum(ArretTravail.AT_Count) AS NbArrets
    FROM ArretTravail
    WHERE (((ArretTravail.AT_Nom) LIKE Forms!Arret.AT_Nom) AND ((ArretTravail.AT_ArretFin)>=Forms!Arret.AF365
    AND (ArretTravail.AT_ArretFin)<=Forms!Arret.AD));

    Elle renvoi un nombre entier
    Elle fonctionne parfaitement. Je voudrais la déclencher sur la propriété après MAJ d'un textbox via un code VBA.

    Ensuite le résultat serait récuperé dans un autre Textbox appelé disons AT_Carence.

    Je sais que la syntaxe n'est pas simple et qu'il faudrait convertir les dates en format US. J'ai récupéré une fonction de convertion mais la aussi, je ne sais pas comment l'utiliser dans le SQL VBA.

    Dans l'attente d'une réponse

    Salut à tous.

    Alain

  2. #2
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 79
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Points : 281 920
    Points
    281 920
    Par défaut
    Peut-être ceci :

    Je voudrais la déclencher sur la propriété après MAJ d'un textbox via un code VBA.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    docmd.OpenQuery "leNomDeLaRequête"

    Ensuite le résultat serait récuperé dans un autre Textbox appelé disons AT_Carence
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.AT_Carence = DLookup("NbArrets", "leNomDeLaRequête")

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Prédident Sociétés
    Inscrit en
    Janvier 2007
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Nouvelle-Calédonie

    Informations professionnelles :
    Activité : Prédident Sociétés
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 8
    Points : 6
    Points
    6
    Par défaut
    Merci beaucoup,

    Je doit être un peu "Boulet", car je tournais autour de cela depuis pas mal de temps. Enfin il faut bien gamberger pour apprendre.

    J'ai une autre question:

    Comment faire pour que la requête n'apparaisse pas en mode feuille de donnée. Je veux juste récupérer le résultat?.

    Merci d'avance

    Cordialement Alain

  4. #4
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 79
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Points : 281 920
    Points
    281 920
    Par défaut
    Par exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.AT_Carence = DLookup("NbArrets", "leNomDeLaRequêteQuiCalculeLeNbreArrêts")
    affecte le montant "NbArrets" au contrôle "AT_Carence " de ton formulaire.

    Ou alors je ne comprends pas la question.

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Prédident Sociétés
    Inscrit en
    Janvier 2007
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Nouvelle-Calédonie

    Informations professionnelles :
    Activité : Prédident Sociétés
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 8
    Points : 6
    Points
    6
    Par défaut Feuille de données requête
    Bonjour,

    Oui la requête affecte bien le résultat à AT_Carence de mon formulaire, mais lorsqu'elle s'exécute elle apparaît en feuille de données en même temps qu'elle affecte la valeur à AT_Carence.

    Je voudrais ne pas voir la fenêtre de données de la requête.

    Cordialement

    Merci

    Alain

  6. #6
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 79
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Points : 281 920
    Points
    281 920
    Par défaut
    J'avais compris que tu voulais exécuter la query.
    Si tu ne veux pas la voir, supprime cette instruction :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    docmd.OpenQuery "leNomDeLaRequête"

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

Discussions similaires

  1. Requête SQL UPDATE dans VBA
    Par Pingouin22 dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 23/09/2022, 11h37
  2. Requête sql paramétrée en VBA
    Par loustic-31 dans le forum VBA Access
    Réponses: 3
    Dernier message: 19/12/2008, 20h30
  3. [97] Requète SQL utilisable par VBA
    Par totojordi dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 27/05/2008, 15h39
  4. Transfert base sql 2000 vers SQL 2005
    Par franck SEFIC dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 29/02/2008, 16h22
  5. requête SQL, jointure et vba
    Par lapinoumagique dans le forum Requêtes et SQL.
    Réponses: 5
    Dernier message: 07/02/2008, 12h06

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