Discussion :

[marycaLou]

Bonjour,

J'ai une marco de recherche qui fonction bien et que je désire transformer en code VBA.
En enregistrant la macro en VBA, Access a créé une variable temporaire pour gérer le filtre. Mon problème est que la variable doit entrer dans toutes les conditions associées au formulaire en cours d'utilisation et permetrre de chercher dans plusieurs champs la valeur saisie dans une boîte de texte.

Voici une partie du code:

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
 ' Build the Filter for the formulaire ForProjetList
      If (.Form.Name = "ForProjetLst") Then
            TempVars.Add "strFilter", """([pNoServ] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
        If (.Form.Name = "ForProjetLst") Then
            TempVars.Add "strFilter", "[TempVars]![strFilter] & "" OR ([pNoPro] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
...
 
       ' Build the Filter for the formulaire ForDossierLst
        If (.Form.Name = "ForDossierLst") Then
            TempVars.Add "strFilter", """([NoidDos] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
        If (.Form.Name = "ForDossierLst") Then
            TempVars.Add "strFilter", "[TempVars]![strFilter] & "" OR ([NoIdProj] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
        If (.Form.Name = "ForDossierLst") Then
            TempVars.Add "strFilter", "[TempVars]![strFilter] & "" OR ([pNoServ] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
        If (.Form.Name = "ForDossierLst") Then
            TempVars.Add "strFilter", "[TempVars]![strFilter] & "" OR ([pNoPro] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""
        End If
        DoCmd.ApplyFilter "", TempVars!strFilter
        TempVars.Remove "strFilter"
        TempVars.Remove "strSearch"
        TempVars.RemoveAll

Lorsque je fais ma recherche dans le formulaire ForDossierLst, le contenu de la variable TempVars!strFilter me donne toujours la dernière valeur dans le dernier IF, soit

Code :

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

 TempVars.Add "strFilter", "[TempVars]![strFilter] & "" OR ([pNoPro] Like """"*"" & [TempVars]![strSearch] & ""*"""")"""

Pourquoi?

Merci!

[LedZeppII]

Bonjour,

Il faut sortir les variables [TempVars]![strFilter] et [TempVars]![strSearch] de la chaîne de caractères, afin de les concaténer.

Si je prends le début :

Code :

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

1
2
3
4
5
6
7
 ' Build the Filter for the formulaire ForProjetList
      If (.Form.Name = "ForProjetLst") Then
            TempVars.Add "strFilter", "([pNoServ] Like ""*" & [TempVars]![strSearch] & "*"")"
        End If
        If (.Form.Name = "ForProjetLst") Then
            TempVars.Add "strFilter", [TempVars]![strFilter] & " OR ([pNoPro] Like ""*" & [TempVars]![strSearch] & "*"")"
        End If

En VBA on peut utiliser des variables VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' Déclaration variables
Dim strSearch As String
Dim strFilter As String
 '  On récupère la valeur cherchée
 strSearch = Nz(Forms!ForProjetList!NomDuControle, "")
 
 ' Build the Filter for the formulaire ForProjetList
      If (.Form.Name = "ForProjetLst") Then
            strFilter = "([pNoServ] Like ""*" & strSearch & "*"")"
        End If
        If (.Form.Name = "ForProjetLst") Then
            strFilter = strFilter & " OR ([pNoPro] Like ""*" & strSearch & "*"")"
        End If

A+

[marycaLou]

Ouif! Ca fonctionne bien.

Comme l'utilisation des variables temporaires était possible avec Access 2007 et que lors de la conversion de la macro, c'était ce qui avait été utilisé, je croyais que c'était préférable à la façon habituelle.

Merci et bonne journée.

[LedZeppII]

Bonsoir,

Comme l'utilisation des variables temporaires était possible avec Access 2007 et que lors de la conversion de la macro, c'était ce qui avait été utilisé, je croyais que c'était préférable à la façon habituelle

Je ne pense pas que l'utilisation des variables temporaires apporte quelque chose en VBA.
Par contre dans les macro, oui.

Concernant la traduction automatique Macro -> VBA, ça me fait penser à une traduction mot-à-mot.
Ça ne doit pas être très pointu. Il vaut mieux retravailler le résultat.

A+