[AC-2007] Utilsation de like dans une requete [Résolu]

[reims87]

Bonjour!

J'ai de l'aide.

j'ai créé un formulaire contenant un sous-formulaire + une zone de liste modifiable + un e zone de texte.

je veux que dèsque l'utilisateur commence à saisir dans la zone de texte, que mon sous formulaire liste les enregistrements commençant par les caractères de la zone de texte.
Voici mon code :

Code :

1
2
3
4
5
6
7
 
strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
 " FROM [Carte de Stock] " & _
 " WHERE ((([Carte de Stock].Désignation) Like '" &  [Forms]![Formulaire2]![designation] & " * ') AND (([Carte de Stock].catégorie) =[Forms]![Formulaire2]![IDCat])); "
 
 
[Forms]![Formulaire2]![Carte de Stock sous-formulaire1].Form.RecordSource = strNewRecord

En plus je veux pas tenir compte de la casse des caractères saisis par l'utilisateur.
Mais ce code ne marche pas et pas d'erreur. Rien ne se passe.

Si quelqu'un peut me donner un coup de main.
Merci!

[User]

Salut,

Essaie de mettre le code sur l'évènement "Changement" de ta zone de texte...

A+

[reims87]

Je viens de faire comme vous indiquez mais pas de changement.
Rien ne se passe toujours pas.

[User]

Peux-tu poster ton code complet

Il faut aussi utiliser la propriété text de la zone de texte :

Exemple :

Code :

1
2
3
4
5
6
7
8
9
Private Sub designation_Change()
strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
 " FROM [Carte de Stock] " & _
 " WHERE ((([Carte de Stock].Désignation) Like '" &  [Forms]![Formulaire2]![designation].Text & "*' ) AND (([Carte de Stock].catégorie) =[Forms]![Formulaire2]![IDCat])); "
 
 
[Forms]![Formulaire2]![Carte de Stock sous-formulaire1].Form.RecordSource = strNewRecord
 
End Sub

A+

[reims87]

Voici le code mis dans "Après MAJ" de la zone de liste:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub IDCat_AfterUpdate()
 
Dim strNewRecord As String
 
strNewRecord = "SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
" FROM [Carte de Stock] " & _
" WHERE ((([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "
 
[Forms]![Formulaire2]![Carte de Stock sous-formulaire1].Form.RecordSource = strNewRecord
 
 
 
End Sub

Et maintenant voici le code mis dans "sur changement" de la zone de texte :

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
 
Private Sub designation_Change()
 
Dim strNewRecord As String
 
If Len([Forms]![Formulaire2]![designation]) = 0 Then
 
strNewRecord = "SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
" FROM [Carte de Stock] " & _
" WHERE ((([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "
 
Else
 
    If IsNull([Forms]![Formulaire2]![IDCat]) Then
 
    strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
     " FROM [Carte de Stock] " & _
     " WHERE ((([Carte de Stock].Désignation)=[Forms]![Formulaire2]![designation]));"
 
    Else
 
    strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
     " FROM [Carte de Stock] " & _
     " WHERE ((([Carte de Stock].Désignation) Like '" & [Forms]![Formulaire2]![designation] & " * ') AND (([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "
 
    End If
 
End If
 
[Forms]![Formulaire2]![Carte de Stock sous-formulaire1].Form.RecordSource = strNewRecord
 
 
End Sub

NB: "Carte de Stock" est une requete de selection que j'ai créée.
En pièce jointe l'image du formulaire.

[reims87]

Même avec la propriété Text de la zone de texte pas de changement.

[User]

Oui,

ça vient de ta condition au début:

Code :

If Len([Forms]![Formulaire2]![designation]) = 0 Then

à changer en :

Code :

If Len([Forms]![Formulaire2]![designation].text) = 0 Then

Tu comprends pourquoi ?

A+

[reims87]

Merci je viens de corriger l'erreur dans la condition mais totalement résolu.

En fait je crois que le problème réside dans l'utilisation de " Like ".
Je viens de remarquer que c'est dans les requêtes où il y a Like qui ne marche pas.
Est-ce que j'ai utilisé le mot Like dans la requête ?

[User]

Il faut utiliser le like si tu utilises le '*', mais il faut bien coller le '*' à la variable :

extrait:

Code :

1
2
"..."
" WHERE ((([Carte de Stock].Désignation) Like '" & [Forms]![Formulaire2]![designation].text & "*') AND (([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "

A+

[reims87]

Franchement je ne comprends plus rien.

J'ai tout vérifié et tout est correct mais queue d'âne.

[User]

Poste à nouveau ton code qui ne marche pas...

[reims87]

le code de la zone de texte:

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
 
Private Sub designation_Change()
 
Dim strNewRecord As String
 
If Len([Forms]![Formulaire2]![designation].Text) = 0 Then
 
strNewRecord = "SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
" FROM [Carte de Stock] " & _
" WHERE ((([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "
 
Else
 
    If IsNull([Forms]![Formulaire2]![IDCat]) Then
 
    strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
     " FROM [Carte de Stock] " & _
     " WHERE ((([Carte de Stock].Désignation)=[Forms]![Formulaire2]![designation]));"
 
    Else
 
    strNewRecord = " SELECT [Carte de Stock].Réf, [Carte de Stock].Désignation, [Carte de Stock].Entrée, [Carte de Stock].Sortie, [Carte de Stock].[Niveau Stock], [Carte de Stock].catégorie " & _
     " FROM [Carte de Stock] " & _
     " WHERE ((([Carte de Stock].Désignation) Like '" & [Forms]![Formulaire2]![designation].Text & "* ') AND (([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "
 
    End If
 
End If
 
[Forms]![Formulaire2]![Carte de Stock sous-formulaire1].Form.RecordSource = strNewRecord
 
 
End Sub

[User]

Re,

A la fin, après le '*' tu as 1 espace :

Code :

" WHERE ((([Carte de Stock].Désignation) Like '" & [Forms]![Formulaire2]![designation].Text & "* ') AND (([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "

en enlevant l'espace :

Code :

" WHERE ((([Carte de Stock].Désignation) Like '" & [Forms]![Formulaire2]![designation].Text & "*') AND (([Carte de Stock].catégorie)=[Forms]![Formulaire2]![IDCat])); "

Sinon [Forms]![Formulaire2]![IDCat] contient du texte ?

[reims87]

Bonjour!

Vraiment User vous êtes génial !

C'est exactement l'espace après '*' qui causait le problème. j'ai corrigé et ça marche maintenant.

Vraiment merci!

Cordialement!!!