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 :

Format numérique dans des requêtes Access


Sujet :

VBA Access

  1. #1
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2014
    Messages
    69
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2014
    Messages : 69
    Points : 60
    Points
    60
    Par défaut Format numérique dans des requêtes Access
    Bonjour,

    Je remplie certains de mes champs access grâce à des fichiers Excel, lorsque mes champs sont au format TEXTE tout se passe bien, s'ils sont au format NUMERIC plus rien ne va plus, je vous montre la requête que j'ai écrit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    If IsNumeric(ValeurChamps) = False Then
    StrSQL = "SELECT " & ColonneId & " FROM " & Table & " WHERE " & ColonneX & " = " & Chr(34) & ValeurChamps & Chr(34)
    Else
    StrSQL = "SELECT " & ColonneId & " FROM " & Table & " WHERE " & ColonneX & " = " & Chr(39) + ValeurChamps + Chr(39)
    End If
    J'ai fait plusieurs essais mais impossible d'en trouver un qui fonctionne.

    Avez-vous une solution?

    Merci d'avance.

  2. #2
    Expert éminent

    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    3 840
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 840
    Points : 7 974
    Points
    7 974
    Par défaut
    Bonjour,

    Et si on fait :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If IsNumeric(ValeurChamps) Then
         StrSQL = "SELECT " & ColonneId & " FROM " & Table & " WHERE " & ColonneX & " = " & ValeurChamps
    Else
         StrSQL = "SELECT " & ColonneId & " FROM " & Table & " WHERE " & ColonneX & " = " & Chr(34) & ValeurChamps & Chr(34)
    End If
    Cordialement,
    Mandresy
    "Je ne sais qu'une chose, c'est que je ne sais rien" Socrate

    N'oublions pas de mettre quand on a trouvé notre bonheur. Soyons sympa pour les futurs heureux.

    Merci, c'est toujours sympa de recevoir des de votre part

  3. #3
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2014
    Messages
    69
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2014
    Messages : 69
    Points : 60
    Points
    60
    Par défaut
    Merci beaucoup pour cette réponse, cette méthode marche en partie et m'a fait comprendre ce qui ne passe pas.

    Le seul problème de cette méthode est lorsqu'un champs peut aussi bien se présenter sous forme de texte que sous forme de nombre, il ne passe plus.

    Merci en tout cas.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 28/12/2013, 10h31
  2. Problème format date dans une requête access
    Par helprojet dans le forum VBA Access
    Réponses: 3
    Dernier message: 27/02/2009, 03h09
  3. Réponses: 4
    Dernier message: 10/01/2008, 17h04
  4. Utiliser des "SI" dans une requête access ?
    Par shaenwe dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 14/03/2007, 12h25
  5. Format de données numériques dans une requête
    Par Aurèl90 dans le forum Access
    Réponses: 1
    Dernier message: 16/11/2005, 10h40

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