Salut
j'ai un formulaire qui se nomme "frm Test" et je lui applique un filtre dans une partie du code généré automatiquement que voiciquand je clique sur le bouton qui est est censé généré ce code j'ai une erreur ici
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 ' --- ' METHODE CreerFonctionRecherche ' --- ' Ecrit une fonction de recherche générique dans le ' module du formulaire de recherche. ' Cette fonction est destinée à être appelée depuis ' l'événement Après MAJ (AfterUpdate) de chaque champ critère. ' Private Sub CreerFonctionRecherche(frm As Form, lstChampsSelectionnes As ListBox) Dim strProg As String Dim strLigne As String Dim intI As Integer Dim strChamp As String ' Construction automatique du programme VB strProg = "Sub Recherche()" & vbCrLf & _ "Dim strFiltre As String, strSQL As String" & vbCrLf & vbCrLf & _ "strFiltre = """"" & vbCrLf ' Un filtre pour chaque champ For intI = 0 To lstChampsSelectionnes.ListCount - 1 ' Nom du champ strChamp = lstChampsSelectionnes.ItemData(intI) strProg = strProg & "If Not IsNull(Me![c_" & strChamp & "]) Then" & vbCrLf & _ vbTab & "If strFiltre <> """" Then strFiltre = strFiltre & "" AND """ & vbCrLf strLigne = ConstruireCritere(strChamp) strProg = strProg & vbTab & strLigne & vbCrLf & "End If" & vbCrLf Next ' Application du filtre strProg = strProg & "Me!sfmRésultat.Form.Filter= strFiltre" & _ vbCrLf & "Me!sfmRésultat.Form.FilterOn = True" strProg = strProg & vbCrLf & "frm Test.Form.Filter= strFiltre" & _ vbCrLf & "frm Test.Form.FilterOn = True" ' Fin du programme strProg = strProg & vbCrLf & "End Sub" ' Ajout du programme au module ' du formulaire de recherche Dim mdl As Module Set mdl = frm.Module mdl.InsertText strProg Set mdl = Nothing End Subà cause de l'espace entre le formulaire. Lorsque je décide d'encadrer mon formulaire par des crochet comme ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part frm Test.Form.Filterlors de la génération du code access met une erreur à cause des crochets car il considère que les crochets font aussi parti du nom du formulaire donc il me dit que ce formulaire n'existe pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part [frm Test].Form.Filter
si quelqu'un peut m'aiguiller pour qu'access considère mon instruction sans me créer des erreurs ça m'aiderai.
Je sais que je peux contourner le problème en ayant un nom de formulaire sans espace mais mon but est de savoir réagir à tous les cas sans forcément contourner les problèmes.
Merci
Partager