Discussion :

[rantanplan81]

Bonjour,

J'ai une zone de texte. Dans cette de texte, on peut mettre des lettres, un mot ou un groupe de mots séparés par un point virgule.
J'aimerai utiliser split() pour séparer les chaines de caractères entre les points virgules. Chaque chaine de caractères peuvent appartenir à plusieurs tables à la fois. Je veux avoir cette démarche pour réaliser une recherche de données dans un sous-formulaire (pour créer un filtre). Comment faut-il faire ?

Exemple :

Texte5 (Nom de la Zone de Texte) : re;ang;fr

re appartient aux tables T1,T2 et T4
ang appartient aux tables T1, T2 et T5
fr appartient aux tables T2, T4 et T5

Merci d'avance

[Tofalu]

Le fait que tu recherches dans des tables différentes me laisse perplexe.

Je n'ai pas vraiment compris où tu coinces. Tu peux donner un exemple avec tes données ?

[pgz]

Bonjour.

Tu peux utiliser un tableau ou un variant pour ranger le résultat intermédiaire du split, du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim var as variant
 
var = split(Me.Texte5,";")
re = var(0)
...

Note : vu de loin, cela semble bizarre ces valeurs dans plusieurs tables à la fois...

PGZ

[rantanplan81]

Ce que j'ai en ce moment:

Le code ci-dessous fonctionne seulement lorsque l'utilisateur met une lettre ou un groupe de lettres ou un mot mais pas pour des mots délimités par un point virgule.

Exemple :

Texte5 (Nom de la Zone de Texte) : fr

fr "appartient" à la requête R1 de la Table T1

Voici mon code actuel :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Restriction(ByVal Chaine As String, _
         ByVal ChamP As String, ByVal matable As String, _
         ByRef ArGument As Integer, ByRef ClausE As String, ByRef astype As Integer)
 
 
'Choix du type : 0 pour un string, 1 pour un numérique ou booleen
' 2 pour une date
 
'Construit la requête au premier passage
If ArGument = 0 Then
  'Elimine les espaces
   matable = Trim$(matable)
  'Si table est une sous requete :(commence par select)
  If InStr(1, matable, "SELECT ", vbTextCompare) <> 0 Then
    'Enleve le ; s'il existe
    If Right(matable, 1) = ";" Then _
       matable = Left(matable, Len(matable) - 1)
    'encadre la sous requete avec des ()
    ClausE = "SELECT * FROM (" & matable & ")"
  Else
    ClausE = "SELECT * FROM " & matable
  End If
End If
If Chaine <> "" Then
    If ArGument = 0 Then
    'Ajoute le WHERE
    ClausE = ClausE & " WHERE "
    ' Ajout de l'opérateur "AND" si le where existe déja
    Else: ClausE = ClausE & " AND "
    End If
    Select Case astype
      Case 0  'Ajoute le critère si le type est texte
        ClausE = ClausE & ChamP & " like " & Chr(34) & Chaine & "*" & Chr(34)
      Case 1  'Ajoute le critère si le type est Numerique
        ClausE = ClausE & ChamP & "=" & Chaine
      Case 2  'Ajoute le critère si le type est date
        ClausE = ClausE & ChamP & "=#" & Format(Chaine, "mm/dd/yyyy") & "#"
      Case 3  'Ajoute le critère si le type est texte pour une zone texte
        ClausE = ClausE & ChamP & " like " & Chr(34) & "*" & Chaine & "*" & Chr(34)
    End Select
        End If
    Next
    ClausE = ClausE & ")"
    ArGument = ArGument + 1
End If
 
End Sub
Private Sub Commande12_Click()
 
Dim SQL As String
Dim NomRequete As String
Dim Compteur As Integer
 
NomRequete = "R1" ‘R1 est une requête
'Appel de la procedure de creation de requête
'pour le Nom de l'Auteur de type texte, liste déroulante
Restriction Nz(Texte0, ""), "NomAuteur", NomRequete, Compteur, SQL, 0
'pour le Prénom de l'Auteur de type texte, liste déroulante
Restriction Nz(Texte5, ""), "[Prénom Auteur]", NomRequete, Compteur, SQL, 0
'Pour la Nationalité de type texte, zone de texte
Restriction Nz(Texte7, ""), "Nationalité", NomRequete, Compteur, SQL, 3
'Affecte la requête au sous-formulaire
Me.Fille2.Form.RecordSource = SQL
 
End Sub

Ce que je veux faire :

Exemple :

Texte5 (Nom de la Zone de Texte) : re;ang;fr

re appartient à plusieurs champs de la requête R1 des tables T1 et T3
ang appartient à plusieurs champs de la requête R1 des tables T1 et T2
fr appartient à plusieurs champs de la requête R1 des tables T3 et T5

Quelle est la procédure à adopter pour séparer des lettres des points virgules et pour filtrer ces données (même données dans plusieurs tables différentes) dans un sous-formulaire ?