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 :

Récupérer une zone de texte dans recordset


Sujet :

VBA Access

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Récupérer une zone de texte dans recordset
    Bonjour à tous,

    Débutant en VBA et en access, je souhaiterais créer un petit outil permettant d'effectuer des requêtes dans une table à partir des données saisies dans un zone de texte.

    Alors j'ai créé un formulaire contenant une zone de texte, les utilisateurs vont coller dedans plusieurs lignes correspondant à des critères de recherche dans une tables.

    Ces données sont limitées à une chaîne de 5 caractères, un seul élément par lignes.

    Pour exemple cette zone de texte contiendra donc :

    DEUD2
    ALBVF
    BHSVD

    Je voudrais juste connaître le code permettant de récupérer ces lignes sous forme de tableau (genre recordset) qui me permettrait ensuite d'effectuer une requête avec les données contenues dans ce recordset comme clause where d'accès à une autre tables.

    Merci à tous pour vos réponses

  2. #2
    Rédacteur/Modérateur


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 128
    Points : 55 940
    Points
    55 940
    Billets dans le blog
    131
    Par défaut
    Bonsoir et bienvenue sur nos forums

    Un SPLIT permet cela. Voici un code sur clic d'un bouton de commande qui crée une chaine sql.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub Commande2_Click()
        Dim Tableau
        Dim sql As String
        Dim ChaineWhere As String
        Dim i As Integer
     
        Tableau = Split(Texte0, vbCrLf)
        For i = 0 To UBound(Tableau)
            ChaineWhere = ChaineWhere & "monchamp = '" & Tableau(i) & "' or "
        Next i
        ChaineWhere = "where " & Left(ChaineWhere, Len(ChaineWhere) - 4)
        sql = "select * from matable " & ChaineWhere
    End Sub
    A toi d'adapter à ta situation et d'utiliser la chaine créée dans la requête.
    Ok?

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 2
    Points : 2
    Points
    2
    Par défaut
    Ca marche nickel

    Merci beaucoup

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

Discussions similaires

  1. Récupérer une zone de texte dans un contenu en javascript
    Par bigs3232 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 10/02/2014, 21h38
  2. Réponses: 1
    Dernier message: 05/03/2010, 12h15
  3. [E-03] Récupérer la valeur d'une zone de texte dans une feuille
    Par moilou2 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 25/03/2009, 11h57
  4. Réponses: 2
    Dernier message: 15/01/2009, 16h31
  5. Réponses: 2
    Dernier message: 07/12/2004, 14h09

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