Pergunta : rsFind primeiramente lento somente se NoMatch

Eu tenho o código unido onde eu uso o rsFind e trabalha muito bem se há um fósforo mas é razoavelmente lento se não há nenhum fósforo.  Há uma maneira que eu poderia melhorar meu código? class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
consulta notpretty do cboEvalDate_AfterUpdate secundário do >Private " do class= " de " codeSnippet822761 do id= do 
>>>> RETARDAR AQUI SE NENHUM FÓSFORO
        rsFind.FindFirst “EvalDate = #” & Me.cboEvalDate & “# e ClientFileNo =” & Me.txt ClientFileNo & “e WorkstationID =” & Me.txt WorkstationID
        Se rsFind.NoMatch então 'se não pode encontrar a data incorporada, perguntam se querem adicionar o novo
            Escurecer Msg, estilo, título, resposta, MyString
            O Msg = cboEvalDate.Value & ““& “não existem para este cliente.  Você gosta de adicioná-lo?”
            O estilo = o vbYesNo + vbDefaultButton1 'definem teclas.
            O título = “SOGoodwill” 'define o título.
            Resposta = exposição “último atualizado de MsgBox (Msg, estilo, título) '” na mensagem
            Se resposta = vbYes então 'se o usuário escolheu sim.
                o bNewRevu = retifica
                Chamada AddEvalRcd
                bNewRevu = falso
                cboName.Value = zero
                cboWorkstation.Value = zero
                cboEvalDate.Value = zero
                DoCmd.GoToControl “fsubEvalService”
            Mais
                DoCmd.GoToControl “cboName”
                DoCmd.GoToControl “cboEvalDate”
                cboEvalDate.Value = zero
            Terminar se
        Mais
            Me.Bookmark = rsFind.Bookmark
            Ajustar o rsFind = nada
            Me.Refresh 'adicionou tão recentemente datas mostra em dropdown
            cboName = zero
            cboEvalDate.Value = zero
            dblClientFileNo = 0
            dblEvalID = 0
        Terminar se

Terminar o submarino
class= > " desobstruído " do
soluções >Related class= o class= " da definição da pergunta " " do title= " do href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26332458.html do aceleram o findfirst com pergunta definition

Resposta : rsFind primeiramente lento somente se NoMatch

Tentar usar todas as vezes uma etiqueta NOVA. Como isto:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Fazer quando i  < countnotes="">
Outras soluções  
 
programming4us programming4us