Discussion :

[Majeanne]

Bonjour,

J'ai suivi à la lettre le tuto de Caféine pour faire un formulaire de recherche multi-critères (enfin... j'ai permuté l'affichage "visible" des boîtes à cocher), ça marche nickel.

Mais je n'arrive pas à imprimer le résultat du filtre dans un état.

Portions de code "signifiantes" du tuto :

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
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT ID_Test,TestID_Produit,TestDate3en1,agsem1,agsem4,cusem1,cusem4,pbsem1,pbsem4, TestDateBritishMuseum,AcidesorgBritishMu,AldehydesBritishMu,ChloreBritishMu,SoufreBritishMu,pHaqueuxBritishMu,pHdesurfaceBritishMu FROM Test WHERE Test!ID_Test<>0"
If Me.chkAgSem1 Then
SQL = SQL & "And Test!agsem1 ='" & Me.cboAgSem1 & "'"
End If
...
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
 
Me.lstResultat.RowSource = SQL
 
Me.lstResultat.Requery
 
End Sub

J'ai crée un état à partir de la table "Test" avec tous les contrôles identiques à ceux du filtre (ils contiennent les noms des champs). Sur le bouton "Imprimer" du formulaire, j'ai ce 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
 
Private Sub btnImprimerFiltreTests_Click()
 
Dim stDocName As String
Dim SQL As String
    stDocName = "eMultiTests"
    SQL = Me.Filter
    DoCmd.OpenReport "eMultiTests", , , SQL
 
Exit_btnImprimerFiltreTests_Click:
    Exit Sub
 
Err_btnImprimerFiltreTests_Click:
    MsgBox Err.Description
    Resume Exit_btnImprimerFiltreTests_Click
 
End Sub

Evidemment (?), comme je n'ai pas vraiment compris où était le filtre (oui, oui, je sais...), j'ai essayé avec SQLWhere et ça ne marche pas mieux. L'état s'imprime mais avec tous les résultats.

Du côté de l'état, il n'y a aucun code...

Merci du coup de main (c'est ma première base et .... c'est très dur !)

[Domi2]

Bonjour,

c'est ma première base et .... c'est très dur !

Si tu en es déjà là, cela me semble déjà pas mal...

Un peu de lecture : Comment utiliser plusieurs requêtes pour un même état

Cela devrait correspondre à ton besoin.

En gros, SQL (et non SQLWhere) alimente ta liste.

Il faut donc récupérer cette variable pour en faire la source de l'état à son ouverture.

Pour ce faire, tu la déclares comme Public dans la section "déclaration" d'un module standard, de sorte qu'elle soit disponible dans toute l'application.

Bonne lecture.

Domi2

[Majeanne]

Merci... (euh, j'en suis là parce que je n'avais pas le choix !)

Bon, je potasse, j'essaie et je n'espère pas "à lundi" !

[Domi2]

je n'espère pas "à lundi"

Mais non, ce sera "bouclé" avant 17h00...

Domi2

[Majeanne]

Documentation très "drue". A lundi ??

[Majeanne]

Bonjour,
J'ai potassé et essayé. Surtout, je crois que je n'ai pas bien compris comment créer l'état. Sur le tuto conseillé, l'auteur crée une requête... la mienne existe déjà, j'ai cru comprendre qu'elle s'appelait SQL.

Je joins la base exemple de Caféine, à laquelle j'ai ajouté un état qui s'appelle eEtat.

Apparemment, il y a quelque chose d'assez simple qui m'échappe complètement.

Merci vraiment pour votre aide.

[Domi2]

Bonjour,

Plusieurs choses.

D'abord la variable SQL (que je préférerais nommer strSQL) est déclarée dans la procédure "RefreshQuery" du formulaire frmRecherche. Sa "portée" est limitée à cette procédure et ne pourra en aucun cas être reconnue par l'état.

Il faut donc créer un nouveau module, puis la déclarer comme publique, de sorte qu'elle soit utilisable dans toutes l'application. Alt+F11 pour aller dans l'éditeur VBA, menu Insertion ==> Module, puis :

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Public SQL As String

et enregistrer le module, par exemple "basVariablesPub".

Ne pas oublier de supprimer la déclaration de la variable dans la procédure "RefreshQuery".

Ensuite l'état. Il ne doit pas avoir de Source, mais les champs oui. Pour faire simple, mettre l'état en mode création, lui attribuer la table "Medias" comme Source, puis renseigner la propriété Source contrôle des champs (Titre - Auteur - Type).

Resélectionner l'état, supprimer la table "Medias" de la propriété Source et enregistrer.

Enfin, dans l'événement sur Ouverture de l'état, il faut supprimer "lstResults".

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
 
    Me.RecordSource = SQL
 
End Sub

Domi2

[Majeanne]

Totale de Domi2 ! Ca marche superbement bien et.... je n'aurais jamais trouvé !

Je me sens pousser des ailes !

Enfin une semaine qui démarre pas trop mal !

Merci encore

[Domi2]

Bonjour,

De rien. Il faut plutôt remercier l'auteur du tutoriel, jeannot45.

Merci pour le retour et bon dév !

Domi2

[Olivia84]

Bonjour,

Je remonte ce vieux sujet car c'est exactement mon problème! J'ai réussi à faire marcher la base de données en exemple avec les modifications mais voilà dans mon cas il ne fonctionne pas car mon état (de type étiquettes) s'appuie sur une requête qui a des données de différentes tables (à cause des liste de choix dans ma table initiale) et quand j'execute mon bouton j'ai comme message "Entrez une valeur de paramètre". Après plusieurs essais, j'ai vu que ce qui gène l’exécution ce sont les listes de choix/source différente tables pour la requête.

Je ne sais pas comment régler ça....