Discussion :

[Tofidou]

Bonjour à tous,
Dans un formulaire , j'utilise une liste de choix et un sous-formulaire au format feuille de données.
Lorsque je sélectionne une valeur dans la liste de choix, le sous-formulaire se met à jour via une procédure vba.
Mon soucis est que déjà, en ouvrant le formulaire, la liste de choix met quelques secondes à s'ouvrir. Les valeurs de cette liste sont issues d'une requête via une requête SQl:

Code :

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

SELECT DISTINCT [Prix - PN].[FiguTitle] FROM [Prix - PN] ORDER BY [Prix - PN].[FiguTitle] ;

qui se trouve dans le champs Contenu des propriétés.
Puis, après sélection de la valeur dans le liste de choix, une procédure s'exécute :

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
Private Sub TitreFigure_AfterUpdate()
    Dim strSQL As String, strTitre As String
    
    If TitreFigure.Text <> "" Then
        strTitre = Me!TitreFigure.Text
        ' Création de la requête source en SQL
        strSQL = "SELECT [Prix - PN].[PN], [Prix - PN].[Désignation], [Prix - PN].[Prix] "
        strSQL = strSQL & "FROM [Prix - PN] WHERE [Prix - PN].[FiguTitle]= '"
        strSQL = strSQL & strTitre
        strSQL = strSQL & "'"
        
        ' Affectation de la requête SQL au sous-formulaire
        SousForm.Form.RecordSource = strSQL
        SousForm.Requery        
    End If
End Sub

Et donc là, c'est au niveau des lignes en gras (en rouge) que ça prend trop de temps à s'exécuter.
Est-ce que quelqu'un aurait une solution pour alléger tout cette exécution?!
Merci de vore aide

[marot_r]

Personnellement je remplacerai ta requête en code par une requête permanante

Code sql :

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

1
2
SELECT [Prix - PN].[PN], [Prix - PN].[Désignation], [Prix - PN].[Prix]
FROM [Prix - PN] WHERE [Prix - PN].[FiguTitle]= """" & [Forms]![NomTonForm]![TitreFigure] & """"

Cela devrait permettre à Access d'optimiser le plan d'éxcution ce qu'il ne peut pas faire avec du SQL à la volée.

Ensuite je lancerai l'analyseur de performance. Il fait généralement de bonnes sugestions pour l'ajout d'indexs et de relations.

A+

[Tofidou]

Merci pour ta réponse ùmais malheureusement, j'ai pas eu le temps de la tester.
Alors que tout fonctionnait parfaitement (malrgré un temps d'exécution un peu long), j'ai maintenant une erreur que je ne comprend pas et que je n'arrive absolument pas à résoudre :

"La méthode 'Form' de l'objet '_SubForm' a echoué"

Celle-ci a lieu dans la fonction AfterUpdate de la liste déroulante

Code :

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

SousForm.Form.RecordSource = strSQL

J'ai vu sur d'autre forum que c'était un peu spécifique à Access97 mais je vois vraiment pas comment résoudre ce problème...?!

[marot_r]

Aucune idée.
Essaye :

1. sauvegarder ta base
2. reparer la base

Si cela ne donne rien crée une nouvelle discussion avec ta question comme sujet.

Aussi précise l'OS que tu utilises (c'est XP je présume, n'est-ce pas ?).

A+