faire patienter pendant un dlookup

Version imprimable

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:

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

08/09/2006, 22h58
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
08/09/2006, 23h17
Invité

Quand on..

:salut:

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

Enfin ce que j'en dis ;)
08/09/2006, 23h27
Arkham46

Citation:

Envoyé par BrunoM45

:salut:

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
08/09/2006, 23h49
pgz

Bonsoir,

Citation:

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:

varx=dlookup(...)

Et le refermer juste après.

Bon courage,

PGZ
09/09/2006, 03h12
micniv

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

Code:

Screen.MousePointer = 11

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

Code:

Screen.MousePointer = 0

Je trouve ça suffisant
09/09/2006, 12h00
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+