Cuestión : rsFind primero lento solamente si NoMatch

Hago el código atar donde utilizo el rsFind y trabaja muy bien si hay un fósforo pero es bastante lento si no hay fósforo.  ¿Hay una manera que podría mejorar mi código? class= > " claro " 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:
operaciones de búsqueda notpretty del cboEvalDate_AfterUpdate secundario del >Private " del class= " de " codeSnippet822761 del id= del 
>>>> RETARDARSE AQUÍ SI NINGÚN FÓSFORO
        rsFind.FindFirst “EvalDate = #” y Me.cboEvalDate y “# y ClientFileNo =” y Me.txt ClientFileNo y “y WorkstationID =” y Me.txt WorkstationID
        Si rsFind.NoMatch entonces 'si no puede encontrar la fecha incorporada, preguntan si quieren agregar nuevo
            Amortiguar los Msg, estilo, título, respuesta, MyString
            El Msg = cboEvalDate.Value y ““y “no existe para este cliente.  Usted tiene gusto de agregarlo?”
            El estilo = el vbYesNo + vbDefaultButton1 'definen los botones.
            El título = “SOGoodwill” 'define título.
            Respuesta = exhibición “actualizado pasado de MsgBox (Msg, estilo, título) 'en” mensaje
            Si respuesta = vbYes entonces 'si el usuario eligió sí.
                el bNewRevu = verdad
                Llamada AddEvalRcd
                bNewRevu = falso
                cboName.Value = falta de información
                cboWorkstation.Value = falta de información
                cboEvalDate.Value = falta de información
                DoCmd.GoToControl “fsubEvalService”
            
                DoCmd.GoToControl “cboName”
                DoCmd.GoToControl “cboEvalDate”
                cboEvalDate.Value = falta de información
            Terminar si
        
            Me.Bookmark = rsFind.Bookmark
            Fijar el rsFind = nada
            Me.Refresh 'agregó tan nuevamente fechas demuestra en dropdown
            cboName = falta de información
            cboEvalDate.Value = falta de información
            dblClientFileNo = 0
            dblEvalID = 0
        Terminar si

Terminar el submarino
class= > " claro " del
soluciones >Related class= el class= " de la definición de la pregunta " del title= " del href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26332458.html " del aceleran el findfirst con la pregunta definition

Respuesta : rsFind primero lento solamente si NoMatch

Intentar utilizar una NUEVA etiqueta cada vez. Como esto:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Hacer mientras que i  < countnotes="">
Otras soluciones  
 
programming4us programming4us