Question : rsFind d'abord lent seulement si NoMatch

Je fais joindre le code où j'emploie le rsFind et cela fonctionne très bien s'il y a une allumette mais elle est assez lente s'il n'y a aucune allumette.  Y a-t-il une manière que je pourrais améliorer mon code ? class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
consultation " de " codeSnippet822761 d'id= " de 
Private de class= () 'à la date
        Faible DB comme DAO.Database
        Faible QD comme DAO.QueryDef
        Faibles rs comme DAO.Recordset
        Faible rsFind comme DAO.Recordset
        Placer DB = CurrentDb ()
        Placer QD = db.QueryDefs ! qryEvaluation
        QD. Paramètres ! ClientFileNo = txtClientFileNo
        QD. Paramètres ! WorkstationID = txtWorkstationID
        QD. Paramètres ! EvalDate = cboEvalDate.Text
        Placer les rs = le qd.OpenRecordset
        Placer le rsFind = le Me.RecordsetClone
>>>>> RALENTIR ICI SI AUCUNE ALLUMETTE
        rsFind.FindFirst « EvalDate = # » et Me.cboEvalDate et « # et ClientFileNo = » et Me.txt ClientFileNo et « et WorkstationID = » et Me.txt WorkstationID
        Si rsFind.NoMatch alors 'si ne peut pas trouver la date écrite, demandent s'ils veulent ajouter le neuf
            Obscurcir les Msg, modèle, titre, réponse, MyString
            Le Msg = le cboEvalDate.Value et « « et « n'existe pas pour ce client.  Vous aimez l'ajouter ? »
            Le modèle = le vbYesNo + les vbDefaultButton1 'définissent des boutons.
            Le titre = « SOGoodwill » 'définissent le titre.
            Réponse = 'affichage « de MsgBox (Msg, modèle, titre) dernier mis à jour sur » le message
            Si réponse = vbYes puis 'si l'utilisateur choisissait oui.
                le bNewRevu = rectifient
                Appel AddEvalRcd
                bNewRevu = faux
                cboName.Value = nulle
                cboWorkstation.Value = nulle
                cboEvalDate.Value = nulle
                DoCmd.GoToControl « fsubEvalService »
            Autrement
                DoCmd.GoToControl « cboName »
                DoCmd.GoToControl « cboEvalDate »
                cboEvalDate.Value = nulle
            Finir si
        Autrement
            Me.Bookmark = rsFind.Bookmark
            Placer le rsFind = rien
            Me.Refresh 'a tellement nouvellement ajouté des dates montre dans dropdown
            cboName = nulle
            cboEvalDate.Value = nulle
            dblClientFileNo = 0
            dblEvalID = 0
        Finir si

Finir le sous-marin
class= > " clair " de
solutions >Related class= le class= " de définition de question " de title= " du href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26332458.html " de accélèrent le findfirst avec la question definition

Réponse : rsFind d'abord lent seulement si NoMatch

Essayer d'employer une NOUVELLE étiquette chaque fois. Comme ceci :
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :

Faire tandis qu'I  < countnotes="">
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us