Appel de fonction déclarée dans un module dans du SQL

Bonjour à tous,

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

Code:

---

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

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!

Bonjour.

deja on peut simplifier l'ecriture

Code:

---

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:

---

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:

---

"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+

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