Optimisation de code ! [Résolu]

[Nitsuja]

Bonjour/Bonsoir à tous,

Mon appli Access possède une fonctionnalitée permettant d'afficher un état en fonction de la valeur d'une liste de type combo list.
En somme, mon état des donées dynamiquement selon la valeur de sélectionnée par la liste.

J'ai donc mi au point le code suivant :

Code :

1
2
3
4
5
6
7
8
 SQL = "SELECT champs1, champs2 etc .. FROM MaTable Where champs1 = ' " & Me.cmbMaListe.Value " ';"
 
        DoCmd.OpenReport "R_Test", acViewDesign, , , acHidden 'Obligation de passer par la design view pour modifier la propriétée RecordSource d'un état. 
        Set rpt = Reports![R_Test]
        rpt.RecordSource = SQL
        DoCmd.Close acReport, "R_Test", acSaveYes
 
        DoCmd.OpenReport "R_Test", acViewPreview

Cela fonctionne parfaitement bien mais j'obtient un temps d'exécution juste pas acceptable (de l'ordre de 10 secondes) dû à la double ouverture de l'état en question (en réalité je fait pareil avec un sous état donc il y a 2 ouvertures d'états avant l'ouverture de l'état principal).

Avez-vous des idées d'améliorations ?

Merci d'avance

[marot_r]

À part la partie Where champs1 = ' " & Me.cmbMaListe.Value " ';" y-a-t'il quelque chose qui change dans ton SQL ?

Si non, le plus simple est d'enregistrer ta requête SQL (ex : MaSuperRequete) en changeant Me.cmbMaListe.Value pour [forms]![NomTonForm]![cmbMaListe] puis de définir la comme source de ton rapport.

Access va récupérer automatiquement la valeur contenue dans ton champ et l'appliquer à ta requête donc à ton rapport.

Cela évitera la modif des rapports.

A+

[Nitsuja]

Ah bah c'est parfait ça :-)

Merci marot_r