Discussion :

[fbu78]

Bonsoir,

Dans une base access 2002, j'ai un formulaire de recherche basé sur une table contenant 100 000 enreg environ.
Dans un champ du formulaire je fais un dlookup pour contrôler que l'élément saisi existe bien dans ma table.
Le problème est que, compte tenu de la taille de la table, du reseau d'entreprise, les temps de réponse sont longs...
J'aimerai faire patiener l'utilisateur pendant cette attente. Mon code :

Code :

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

1
2
3
4
5
6
7
8
 
varx=dlookup("[uaribcompte]","[T_COM]","[uaribcompte2]=[uaribcompte]")
If IsNull(varx) Then
 
    MsgBox "CE NUMÉRO N'EST PAS INSCRIT DANS LA BASE !"
    SendKeys "+{TAB}"
    Exit Sub
End If

Comment et où placer le message pour ne pas bloquer aussi l'exécution du code ?
Merci pour vos idées et conseils

[Alexandre Sahli]

bonjour,

si ta recherche est dans la même table que le formulaire que tu as ouverts tu peux rechercher avec "FindFirst" dans le recordsetclone ce qui ira certainement plus vite que Dlookup

[Invité]

Quand on atteint ce nombre d'enregistrements même pour la moitié,
moi je passerais en Serveur SQL !

Enfin ce que j'en dis

[Arkham46]

Quand on atteint ce nombre d'enregistrements même pour la moitié,
moi je passerais en Serveur SQL !

Enfin ce que j'en dis

Pas forcément...
Peut-être qu'un index sur les champs améliorera les performances

[pgz]

Bonsoir,

Dans un champ du formulaire je fais un dlookup ...
J'aimerai faire patiener l'utilisateur pendant cette attente

Tu pourrais créer un formulaire contenant le message pour faire patienter, l'ouvrir en mode normal avant

Code :

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

varx=dlookup(...)

Et le refermer juste après.

Bon courage,

PGZ

[micniv]

Dès que j'ai un traitement un peu long ,je pose un sablier avant

Code :

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

Screen.MousePointer = 11

puis je reviens en curseur normal quand c'est terminé :

Code :

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

Screen.MousePointer = 0

Je trouve ça suffisant

[fbu78]

merci pour vos idées...je vais allez voir du côté de Findfirst.

Merci encore et puis aussi je vais mettre un sablier !

Bon week end et a+