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 :

Probleme avec SELECT FROM WHERE [AC-2007]


Sujet :

VBA Access

  1. #1
    Membre du Club
    Homme Profil pro
    debutant intéressé
    Inscrit en
    Mars 2005
    Messages
    77
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : debutant intéressé

    Informations forums :
    Inscription : Mars 2005
    Messages : 77
    Points : 58
    Points
    58
    Par défaut Probleme avec SELECT FROM WHERE
    Bonjour,

    J'ai une table nommée T_ImpHor avec 4 colonnes nommées respectivement Diam10, Diam20, Diam30 et Diam40

    je désire y recueillir des données en fonction d'un champ d'un formulaire nommé DiamImp.

    J'utilise le code ci dessous pour accéder aux enregistrements de la table T_ImpHor mais ça ne marche que si je nomme la colonne par son nom.

    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
    Private Sub NbreImpPiece_Exit(Cancel As Integer)
     Dim dbs As Database
     Dim rst As Recordset
     Dim Impact As String
     Dim Diametre As String
     
     Impact = Me.NbreImpPiece.Value
     Diametre = Me.DiamImp.Value
     
        Set dbs = CurrentDb
    'Set rst = dbs.OpenRecordset("SELECT Diam20" _
     '       & " FROM T_ImpHor " _
      '      & " WHERE NbreImpHor = '" & Impact & "';")
     
     'MsgBox "Le nom du client est : " & rst.Fields("Diam20").Value
     
    ' cette partie fonctionne mais pas la suivante malgre l'ajout de ',"
     
        Set rst = dbs.OpenRecordset("SELECT Diametre" _
            & " FROM T_ImpHor " _
            & " WHERE NbreImpHor = '" & Impact & "';")
     
     
       MsgBox "Le nom du client est : " &  rst.Fields(Diametre).Value
     
        dbs.Close
     
    End Sub
    Quelqu'un peut il me donner un conseil, j'ai cherché dans les faqs, forums et autres tutoriels mais je n'ai rien trouvé ou alors pas compris.

    Merci

    Eric

  2. #2
    Membre habitué
    Profil pro
    Développeur informatique
    Inscrit en
    Avril 2010
    Messages
    175
    Détails du profil
    Informations personnelles :
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Avril 2010
    Messages : 175
    Points : 193
    Points
    193
    Par défaut
    Bonjour,

    essayez quelquechose du genre:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Set rst = dbs.OpenRecordset("SELECT " & Diametre _
            & " FROM T_ImpHor " _
            & " WHERE NbreImpHor = '" & Impact & "';")

  3. #3
    Membre du Club
    Homme Profil pro
    debutant intéressé
    Inscrit en
    Mars 2005
    Messages
    77
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : debutant intéressé

    Informations forums :
    Inscription : Mars 2005
    Messages : 77
    Points : 58
    Points
    58
    Par défaut
    Merci cela fonctionne
    mais y a t il une diff à mettre les guillemets en debut deligne ou en fin
    moi j'avais essayé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    rst = dbs.OpenRecordset("SELECT " & Diametre & " _
            & " FROM T_ImpHor " _
            & " WHERE NbreImpHor = '" & Impact & "';")
    et cela ne fonctionnait pas

    quelle est la diff??

    merci en tout cas pour ton aide

    Eric

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 642
    Points : 34 354
    Points
    34 354
    Par défaut
    salut,
    on voit a la coloration du code que tu as des guillemets qui se baladent en premiere ligne

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

Discussions similaires

  1. [MySQL] SELECT * FROM WHERE (Et c'est là que commencent les PROBLEMES)
    Par Delvauxo dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 21/06/2011, 15h07
  2. Probleme avec fonction SELECT FROM WHERE
    Par tatann22 dans le forum Langage
    Réponses: 5
    Dernier message: 27/03/2009, 01h01
  3. Probleme avec select distinct row from .
    Par jean christophe dans le forum Requêtes
    Réponses: 4
    Dernier message: 08/10/2008, 19h17
  4. [COUNT] select ... from ... where count !
    Par tmcgrady dans le forum Langage SQL
    Réponses: 5
    Dernier message: 30/11/2007, 17h29
  5. probleme avec SELECT..FROM..WHERE
    Par VBBBA dans le forum Requêtes et SQL.
    Réponses: 8
    Dernier message: 08/09/2006, 15h58

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