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 :

Operateur LIKE probleme [AC-2007]


Sujet :

VBA Access

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 24
    Points : 27
    Points
    27
    Par défaut Operateur LIKE probleme
    Bonjour a tous,

    Je me retourne encore vers vous pour m'aider

    Voila mon code permettant de faire une recherche suivant la valeur rentré dans une textbox :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private Sub TextBox_Search_AfterUpdate()
    Dim sql As String
    Dim search As String
     
    search = "[" & Me.TextBox_Search.Value & "]"
     
    sql = " SELECT Customer.Company FROM Customer WHERE (Customer.Company LIKE '" & search & "*') "
    Me.List_Results.RowSource = sql
     
     
    End Sub
    Le problème est qu'Access ne prend en compte que le premier caractère de la recherche, c'est a dire que si je rentre "Nissan", tous les résultats commençant par "N" sortiront dans la liste de résultat. Comment faire pour qu'Access prenne en compte plus que le premier caractère ?

    Merci d'avance

  2. #2
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 24
    Points : 27
    Points
    27
    Par défaut
    Merci de la réponse rapide,

    mais lorsque je rajoute le * , dans les résultats apparaissent tout les mots qui comporte au moins une fois un caractère rentré dans la textbox, quelque soit la position du caractère dans le mot. Par exemple : si je rentre "Nissan", "Renault" va apparaître, "Alpha Roméo" également, "Citroën" aussi, etc

  3. #3
    Membre expérimenté Avatar de Gado2600
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Mai 2013
    Messages
    903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur Office VBA

    Informations forums :
    Inscription : Mai 2013
    Messages : 903
    Points : 1 364
    Points
    1 364
    Par défaut
    Bonjour,

    Dans le :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    search = "[" & Me.TextBox_Search.Value & "]"
    as-tu vraiment besoin des "[" ? As-tu essayé sans, si ce n'est pas une nécessité ?

    Cordialement,
    Le sabre est une arme. Le kendo est un art de tuer. Quelles que soient les belles paroles pour l'expliquer, telle est sa vérité.

  4. #4
    Membre expérimenté Avatar de RobiPMS
    Homme Profil pro
    Conseiller psycho-pédagogique
    Inscrit en
    Octobre 2007
    Messages
    827
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Conseiller psycho-pédagogique
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2007
    Messages : 827
    Points : 1 506
    Points
    1 506
    Par défaut
    Je viens de tester avec ceci, et cela fonctionne très bien :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub TextBox_Search_AfterUpdate()
    Dim sql As String
    Dim search As String
     
    search = Me.TextBox_Search
     
    sql = " SELECT Customer.Company FROM Customer WHERE (Customer.Company LIKE '" & search & "*') "
    Me.List_Results.RowSource = sql
    N'oubliez pas de tagguer la discussion comme résolue si vous avez été aidé!
    Plus haut monte le singe, plus il montre son cul (Montaigne)
    Je ne réponds pas aux messages personnels concernant des questions discutées dans le forum.

  5. #5
    Membre expérimenté Avatar de RobiPMS
    Homme Profil pro
    Conseiller psycho-pédagogique
    Inscrit en
    Octobre 2007
    Messages
    827
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Conseiller psycho-pédagogique
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2007
    Messages : 827
    Points : 1 506
    Points
    1 506
    Par défaut
    Et désolé pour ma première réponse,(que j'ai supprimée tout de suite, d'ailleurs!) j'avais lu un peu trop vite!
    N'oubliez pas de tagguer la discussion comme résolue si vous avez été aidé!
    Plus haut monte le singe, plus il montre son cul (Montaigne)
    Je ne réponds pas aux messages personnels concernant des questions discutées dans le forum.

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Janvier 2015
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Janvier 2015
    Messages : 24
    Points : 27
    Points
    27
    Par défaut
    Ok, je viens de tester dans un nouveau formulaire ça fonctionne (j'aurais du faire ça avant de poster )
    Je comprend pas pourquoi ça ne marche pas dans mon formulaire original.
    Merci de toute façon !

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

Discussions similaires

  1. operateur LIKE avec deux arguments
    Par da991319 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/10/2007, 16h12
  2. VBA - opérateur LIKE
    Par Gunther dans le forum Access
    Réponses: 6
    Dernier message: 09/12/2006, 23h22
  3. [Débutant] Chiffre apres la virgule et operateur Like
    Par ggl'Nouveau dans le forum Access
    Réponses: 15
    Dernier message: 25/09/2006, 14h53
  4. critere de requete (operateur like)
    Par tounepistols dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 03/08/2006, 22h59
  5. equivalent de l'operateur like mais insensitive
    Par fxgamoy dans le forum SQL Procédural
    Réponses: 4
    Dernier message: 21/06/2005, 10h23

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