Discussion :

[lionking03]

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

[Pierre Fauconnier]

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?

[lionking03]

Ca marche nickel

Merci beaucoup