Discussion :

[Invité]

bonjour tout le monde,
bon... désolé pour le titre du post pas forcément très explicite...
Alors voila, j'ai concocté un formulaire sensé créer une requête de filtrage à partir d'une liste à choix multiple, ce qui permettrait d'obtenir un filtrage à la carte dans un 2 ème form de type continu.
La création de la chaine de la requête dans le form de filtrage fonctionne bien, la transmission de la chaine dans le formulaire continu passe bien aussi.
La chaine de caractère est récupérée dans un champ de texte "témoin" mais je n'arrive pas à la faire passer en source du formulaire.
Je joins un fichier pour faciliter votre aide, car mon explication ne sera forcément claire pour tous.
Merci d'avance.

[Chtulus]

Bonjour,

Je ne sais pas si c'est moi qui suis mal réveillé, mais je ne vois pas de formulaire dans le fichier joint

Je n'y voit qu'une table et rien d'autre !

[Invité]

Euh... désolé, ils étaient restés "fichier caché"... s'est rectifié.

[Chtulus]

Voyez du côté de l'utilisation des simples et doubles quotes dans votre code.

Dans Forms_Filtre par exemple
RQT = """ <-- 1 double suffit !
" & Concatenation & " --> '" & Concatenation & "'

L'affichage de la requête mets bien les critéres de sélection définient.

[Invité]

a mon modeste avis le problème se situe plutôt dans le form continu, car le texte ou plutôt la "string" constituant la requête ressort parfaitement dans le champ témoin du form continu et la syntaxe est bien sans erreurs :

Code :

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

"select * from TblEvenements where  CodeEvent = 303 ORDER BY DateEvent DESC , HeureEvent DESC;"

C'est cette string que je n'arrive pas à passer en RecordSource.

Code :

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

1
2
3
4
5
6
Private Sub Validation_Click()
Dim sql As String
sql = TexteRequete
MsgBox sql' ici je verifie que sql a bien la pris la valeur de TexteRequete
RecordSource = sql 'ici erreur 2580
End Sub

La msgbox affiche bien que sql a pris la valeur de TexteRequete mais à la ligne suivante j'ai l'erreur 2580 :
La source d'enregistrement "select...." spécifiée dans ce formulaire ou état n'existe pas.

[Invité]

Mon problme est resolu, voici le 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
Private Sub ListEvenement_Click()
Dim StrWhere, Choix, libelle, Separation As String
Separation = "','"
StrWhere = "TypeEvent in ('"
Choix = ListEvenement
Dim sql As String
sql = "INSERT INTO TblTempFiltrage (TypeEvent)SELECT Formulaires!Filtre!ListEvenement AS Expr1;"
DoCmd.RunSQL sql
Selection.Requery
If IsNull(Concatenation) Then
Concatenation = StrWhere & Choix
Else
Concatenation = Concatenation & Separation & Choix
End If
End Sub
 
Private Sub Validation_Click()
Dim sql As String
If IsNull(Concatenation) Then
MsgBox "VEUILLEZ EFFECTUER UNE SELECTION", , "Information"
Else
sql = "SELECT * FROM TblEvenements where " & Concatenation & "') ORDER BY DateEvent DESC , HeureEvent DESC;"
Forms!apercu.Form.RecordSource = sql
DoCmd.Close acForm, Me.Name
End If
End Sub