Questione : rsFind in primo luogo lento soltanto se NoMatch

Faccio attaccare il codice dove uso il rsFind e funziona benissimo se ci è un fiammifero ma è ragionevolmente lento se non ci è fiammifero.  È ci un senso che potrei migliorare il mio codice? class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
occhiata notpretty del cboEvalDate_AfterUpdate secondario del >Private " del class= " " di codeSnippet822761 del id= del 
>>>> RITARDARE QUI SE NESSUN FIAMMIFERO
        rsFind.FindFirst “EvalDate = #„ & Me.cboEvalDate & “# e ClientFileNo =„ & Me.txt ClientFileNo & “e WorkstationID =„ & Me.txt WorkstationID
        Se rsFind.NoMatch allora 'se non può trovare la data inserita, chiedono se vogliono aggiungere il nuovo
            Oscurare i Msg, lo stile, il titolo, la risposta, MyString
            Il Msg = cboEvalDate.Value & ““& “non esiste per questo cliente.  gradite aggiungerli?„
            Lo stile = il vbYesNo + vbDefaultButton1 'definiscono i tasti.
            Il titolo = “SOGoodwill„ 'definisce il titolo.
            Risposta = esposizione “ultimo aggiornato di MsgBox (Msg, stile, titolo) '„ sul messaggio
            Se risposta = vbYes allora 'se l'utente scegliesse sì.
                il bNewRevu = allinea
                Chiamata AddEvalRcd
                bNewRevu = falso
                cboName.Value = posizione di segnale minimo
                cboWorkstation.Value = posizione di segnale minimo
                cboEvalDate.Value = posizione di segnale minimo
                DoCmd.GoToControl “fsubEvalService„
            Altrimenti
                DoCmd.GoToControl “cboName„
                DoCmd.GoToControl “cboEvalDate„
                cboEvalDate.Value = posizione di segnale minimo
            Concluder se
        Altrimenti
            Me.Bookmark = rsFind.Bookmark
            Regolare il rsFind = niente
            Me.Refresh 'così recentemente ha aggiunto le date mostra in a discesa
            cboName = posizione di segnale minimo
            cboEvalDate.Value = posizione di segnale minimo
            dblClientFileNo = 0
            dblEvalID = 0
        Concluder se

Concludere il sommergibile
class= > " libero " del
soluzioni >Related class= il class= " di definizione di domanda " " del title= " del href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26332458.html di accelerano il findfirst con la domanda definition

Risposta : rsFind in primo luogo lento soltanto se NoMatch

Provare ad usare sempre una NUOVA etichetta. Come questo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Fare mentre i  < countnotes="">
Altre soluzioni  
 
programming4us programming4us