Discussion :

[informer]

Bonjour à tous,

J'ai une requête qui appelle la fonction suivante déclarée dans un module :

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
Public Function fGetFirstNbr(ByVal pCode As String) As String
 
    Dim recSet As DAO.Recordset
    Dim sSQL As String
 
    fGetFirstNbr= ""
 
    sSQL = "SELECT * FROM QRef WHERE Code = '" & pCode & "'"
    Set recSet = CurrentDb.OpenRecordset(sSQL)
    Do While Not recSet.EOF
            fGetFirstNbr= recSet!Nbr
        Exit Do
    Loop
 
    recSet.Close
    Set recSet = Nothing
 
End Function

Ce n'est pas que ça plante mais lorsque je fais défiler la résultat de la requête horizontalement ou verticalement, l'affichage est extrêmement ralenti voire bloqué ou mal affiché (Voir copie d'écran pour 20 enregistrements) . Et il est évident que cela est dû à l'appel à cette fonction

Quelqu'un aurait-il une explication?

Merci par avance pour toute aide

[informer]

J'en rajoute une couche... Si je charge cette requête dans une table physique ayant la même structure, ça prend un temps vraiment long !

Merci par avance pour toute explication!

[marot_r]

Bonjour.

deja on peut simplifier l'ecriture

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
Public Function fGetFirstNbr(ByVal pCode As String) As String
 
    Dim recSet As DAO.Recordset
    Dim sSQL As String
 
    fGetFirstNbr= ""
 
    sSQL = "SELECT * FROM QRef WHERE Code = '" & pCode & "'"
    Set recSet = CurrentDb.OpenRecordset(sSQL)
 
    if Not recSet.EOF
            fGetFirstNbr= recSet!Nbr
    end if
 
    recSet.Close
    Set recSet = Nothing
 
End Function

Et surtout tu peux utiliser

Code :

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

DFirst("Nbr"; "QRef"; "[Code]='" & [TonChampCode]  & "'")

qui fait exactement cela et qui est une fonction integree de Access.

Et la lenteur est probablement du au fait que pour chaque enregistrement tu executes QRef.

Si possible, remplace l'appel a ta fonction par une jointure sur QRef.
Access va executer une seule fois QRef et mettre ensuite les resultats en relation avec tes donnees.
C'est generalement significativemnet plus rapide.

Et plus largement, quand on a un probleme de performance avec une requete, il est recommande de ne prendre que les champs dont on a vraiment besoin.

Dans ton cas cela serait :

Code :

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

"SELECT [QRef].[Nbr] FROM QRef WHERE [QRef].Code = '" & pCode & "'"

Car tu n'utilises que ce champ la.

Et il faut aussi savoir qu'appeler une function VBA empeche Access d'optimiser ta requete pour une execution plus rapide.
Habituellement ce n'est pas vraiment un probleme mais parfois cela te ratrape au tournant.

Enfin ton probleme de lenteur est sans doute perceptible seulement a l'affichage. Si tu te servais de cette requette pour remplir une table par exemple, tu constaterais que ton traitement est tout a fait acceptable.

J'ai fait une fois des requettes de stat avec une tonne de DFirst(), en execution "non affichee" elles prenaient quelques secondes.
Si j'avais le malheur de les demander "a l'ecran" on etait plutot dans l'heure.
Comme j'avais vraiment besoin d'elles telles qu'elles etaient je m'en servais commme sources de requettes de creation de table.
Et j'allais voir mes resultats dans la tables creee.

A+

[informer]

Bonjour marot_r,

Merci pour tes précieuses information et l’info sur DFirst qui va à coup sûr grandement m’aider car ça m’a rappelé le jeu de fonction Dxxx (DLast, DMax,DMin...)

Quand aux conséquences d’appel à une fonction vba utilisateur, j’imaginais bien le truc.

J’avais fait ça pour contourner le problème expliqué dans mon post ici :traitement #error dans une requête

J’ai donc abandonné cette solution pour celle expliquée toujours dans le post ici :traitement #error dans une requête