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

Requêtes et SQL. Discussion :

affichage requete SQL via vba


Sujet :

Requêtes et SQL.

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 50
    Par défaut affichage requete SQL via vba
    Bonjour,

    Je souhaiterai à partir d'un clic sur un bouton exécuter un code vba qui construira une requête "select" sql.
    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub Commande76_Click()
    On Error GoTo Err_Commande76_Click
    Dim SQL As String
    Dim rst As DAO.Recordset
     
    SQL = "SELECT * FROM Identifiant;"
    Set rst = CurrentDb.OpenRecordset(SQL)
     
     
    Exit_Commande76_Click:
        Exit Sub
     
    Err_Commande76_Click:
        MsgBox Err.Description
        Resume Exit_Commande76_Click
     
    End Sub
    J'aimerai que cette réquête s'affiche en tableau "tout fait", comme les requêtes réalisées avec l'assistant d'access.

    Merci de me guider.

    Bonne journée.
    Jarod.

  2. #2
    Expert éminent

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Par défaut
    Bonjour, là vous ouvrez juste un recordset en mémoire. Il ne s'agit en rien d'un objet Access. Pour créer une requête Access, créez un objet Querydef.

    http://warin.developpez.com/access/d...=partie_4#L4.7

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 50
    Par défaut
    Merci pour cette explication.
    J'ai réussi.

    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Private Sub Commande19_Click()
    On Error GoTo Err_Commande19_Click
     
    Dim oDb As DAO.Database
    Dim strCodeSql As String
    Dim stDocName As String
    'Instance l'objet database
    Set oDb = CurrentDb
     
    'Stocke le code SQL dans une variable
    strCodeSql = "SELECT * FROM Identifiant"
     
    'Crée la requête
    oDb.CreateQueryDef "filtre_expo", strCodeSql
     
    stDocName = "filtre_expo"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
     
    Finally:
    oDb.Close
    Set oDb = Nothing
    Exit_Commande19_Click:
       Exit Sub
     
    Err_Commande19_Click:
    MsgBox Err.Description
    Resume Exit_Commande19_Click
     
    End Sub
    Une question cependant :Si j'execute à nouveau ce code, access m'indique que l'objet "filtre_expo" existe déjà. Comment faire ?

    Cordialement.

    Jarod

  4. #4
    Expert éminent

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Par défaut
    Il faut supprimer l'objet avant ou modifier le SQL au lieu de le recréer.

    Mais là, j'ai un peu de mal à comprendre l'intéret d'utiliser VBA dans votre cas

  5. #5
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 50
    Par défaut
    Oui, dans ce cas simple pas besoin d'utilisation de vba, mais la requête sql finale est beaucoup plus compliqué (recherche multicritère sur plusieurs tables)...

    Merci de vos conseils.

    Jarod

  6. #6
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2004
    Messages : 8 621
    Billets dans le blog
    67
    Par défaut
    Salut,

    Ne Peux-tu pas utiliser un formulaire en mode feuille de donnée en affectant ton sql à sa propriété recordsource sur ouverture de ce formulaire ?

    Regarde aussi du côté de la méthode OpenForm et de son argument WhereCondition...
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

Discussions similaires

  1. ouvrir une requete en mode sql via vba
    Par moimemessssssssss dans le forum VBA Access
    Réponses: 3
    Dernier message: 02/09/2008, 11h43
  2. Requete SQL via macro vba changeant le format de la cellule
    Par laville dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/08/2007, 10h26
  3. Requete sql via vba
    Par Echizen1 dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 10/12/2006, 16h13
  4. Doc pour créer requetes SQL via ODBC sous EXCEL
    Par satanas dans le forum Décisions SGBD
    Réponses: 2
    Dernier message: 25/01/2005, 08h33
  5. [Requete SQL en VBA] Problème avec la fonction FLOOR
    Par zubral dans le forum Langage SQL
    Réponses: 4
    Dernier message: 13/07/2004, 13h24

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