[SQL & VBA] Afficher plusieurs enregistrement d'une requête avec Variables et %

Version imprimable

10/07/2007, 12h02
Altrensa

[SQL & VBA] Afficher plusieurs enregistrement d'une requête avec Variables et %

Bonjour,

Codant en ACCESS je me suis trouvé confronté à un problème. En effet, vous m'avez expliquer comment afficher le contenu d'une variable VBA dans une requête SQL. Cependant, j'aimerais à présent faire un LIKE avec les sempiternelles "%" avant et après et je n'arrive pas à m'en sortir.

D'avance merci

Altrensa
10/07/2007, 12h04
Invité

Bonjour

En VBA et dans le SQL Access on utilise pas % mais * comme caractére joker.

Starec
10/07/2007, 12h14
Altrensa
Merci Starec,

Peux-tu alors me donner la syntaxe à utiliser car :

Code:

"SELECT .... WHERE BLA = '" & Var &"'"

-> FONCTIONNE

Mais, à l'inverse
Code:

1 2 3 4 5 "SELECT .... WHERE BLA = '*" & Var &"*'" "SELECT .... WHERE BLA = '"*" & " & Var & " & "*"'" "SELECT .... WHERE BLA = '"* & Var & *"'" "SELECT .... WHERE BLA = '""*" & Var & "*""'"
-> NE FONCTIONNENT PAS

D'avance merci

Altrensa
10/07/2007, 13h23
cafeine

Hello,

tu parles de LIKE dans ton premier post pour l'oublier ensuite ...

J'aime bien cette syntaxe :

Code:

sSQL = "SELECT .... WHERE BLA LIKE '*" & Var & "*'"

Merci beaucoup cependant, je me trouve confronté à un autre problème, si ma requête trouve plusieurs valeurs, elle ne m'affiche que la première... Que faire ?

Voici le code :

Code:

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
 
'Bouton "Recherche" permettant, à partir des critères entrés de faire une recherche dans la table principale
Private Sub Bouton_Recherche_Click()
 
    'On vérifie que le champs de recherche n'est pas nul
    If Not IsNull(Me.[Criteres_de_recherche]) Then
 
        'On stocke le critère recherché
        Dim Critere As String   'Critère de recherche saisi
        Critere = Me.[Criteres_de_recherche]
 
        'DEBUG : Affiche le contenu de la variable "Critere" en décommentant (enlever le ')
        MsgBox (Critere)
 
        'On cherche les champs correspondants à ce critère
        Set r = CurrentDb.OpenRecordset("SELECT [TFT_TableProduits].[Ref produit] FROM [TFT_TableProduits] WHERE [TFT_TableProduits].[Ref produit] LIKE '*" & Critere & "*'")
 
        'On stoque dans des variables les refs correspondantes
        If Not r.EOF Then
            Ref_correspondantes = r.Fields(0).Value
 
            'DEBUG : Affiche le contenu de la variable "Ref_correspondantes" en décommentant (enlever le ')
            MsgBox (Ref_correspondantes)
 
        End If
 
        'On met ce résultat dans le champs des références disponibles correspondantes à la recherche
        Me.[Reference_produit] = Ref_correspondantes
 
    Else
        'Si on ne donne pas de critère, on ne fait rien
    End If
 
End Sub

Et en fait, il ne m'affiche que le premier enregistrement de la table qui correspond...
Que faire ?
En effet, j'aimerais qu'il me duplique la ligne Ref_produit ZC ZC ZC ZC ZC ZC ZC ZC pour chaque produit où ZC est une zône à cocher

D'avance merci

Altrensa

Bonjour

Dans cette partie du code

Code:

1
2
3
4
5
6
7
If Not r.EOF Then
            Ref_correspondantes = r.Fields(0).Value
 
            'DEBUG : Affiche le contenu de la variable "Ref_correspondantes" en décommentant (enlever le ')
            MsgBox (Ref_correspondantes)
 
        End If

Tu ne parcours pas le recordset

Il faut :

Code:

1
2
3
4
5
6
7
While Not r.EOF
            Ref_correspondantes = r.Fields(0).Value
 
            'DEBUG : Affiche le contenu de la variable "Ref_correspondantes" en décommentant (enlever le ')
            MsgBox (Ref_correspondantes)
            r.MoveNext
Wend

Starec

10/07/2007, 13h57
cafeine

Il faut que tu attribues le SQL à une zone de liste ou à un sous-formulaire.
10/07/2007, 14h00
Invité

Re

Mais je ne vois pas trop le but d'afficher dans une msgbox tes données, quel est-il ?

Comme le dit Caféine, si tu veux toutes les afficher tu n'as pas besoin de tout ce code.

Starec
10/07/2007, 14h12
Altrensa

Bonjour à tout ceux que je n'ai pas encore vu, (Salut Caféine)
En fait, l'intérêt des MsgBox c'est juste pour savoir s'il y a bien ce que je veux dans les variables, après elles sont commentées (d'où le "DEBUG .... supprimez ' pour afficher").

En fait je fait des recherches sur des produits et j'aimerais que pour chaque produit que cela trouve, cela me fasse le système de case à cocher détaillé plus haut. Je n'arrive pas à m'en sortir avec le sous-formulaire qui ne m'affihce toujours qu'un enregistrement (le dernier trouvé car il les affiche les uns après les autres dans les mêmes cases puis ne conserve que le dernier).

Comment puis-je faire pour que le résultat de la recherche crée automatiquement des lignes avec cases à cocher dans mon sous-formulaire ?

Encore et d'avance merci pour votre aide

Altrensa
11/07/2007, 11h51
Altrensa

Bonjour

J'ai changé mon code et celui semble à peu près fonctionnel cependant, les zones à cocher sont interdépendantes...
En cliquer une coche toute la colonne, comment les rendre indépendantes...

D'avance merci

Altrensa
11/07/2007, 12h06
Invité

Re

J'ai mal lu.

Tes cases à cocher sont-elles le reflet de champs Oui/Non de ta table qui alimente ton formulaire ?

Starec