Vraag : rsFind vertraag eerst slechts als NoMatch

Ik heb code in bijlage waar ik rsFind gebruik en het boete werkt als er een gelijke is maar het is vrij langzaam als er geen gelijke is.  Is er een manier ik mijn code kon verbeteren?
" codeBody " 
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:
van 
Private SubcboEvalDate_AfterUpdate () 'Raadpleging door datum
        Schemerige db als DAO.Database
        Schemerige qd als DAO.QueryDef
        Schemerige rs als DAO.Recordset
        Schemerige rsFind als DAO.Recordset
        Vastgesteld db = CurrentDb ()
        Vastgesteld qd = db.QueryDefs! qryEvaluation
        qd. Parameters! ClientFileNo = txtClientFileNo
        qd. Parameters! WorkstationID = txtWorkstationID
        qd. Parameters! EvalDate = cboEvalDate.Text
        Reeks rs = qd.OpenRecordset
        Reeks rsFind = Me.RecordsetClone
>>>>> LANGZAAM HIER ALS GEEN GELIJKE
        rsFind.FindFirst „EvalDate = #“ & Me.cboEvalDate & „# en ClientFileNo =“ & Me.txt ClientFileNo & „en WorkstationID =“ & Me.txt WorkstationID
        Als rsFind.NoMatch 'als geen datum kan binnengegaan vinden, vragen dan of willen zij nieuwe toevoegen
            Verduister Msg, Stijl, Titel, Reactie, MyString
            Msg = cboEvalDate.Value & „„& „bestaat niet voor deze cliënt.  Zou u het?“ willen toevoegen
            De stijl = vbYesNo + vbDefaultButton1 'bepaalt knopen.
            De titel = „SOGoodwill“ 'bepaalt titel.
            Reactie = (Msg, Stijl, Titel) 'Vertoning MsgBox „Laatst bijgewerkt op“ bericht
            Als Reactie = vbYes toen 'als de Gebruiker ja koos.
                bNewRevu = Waar
                Vraag AddEvalRcd
                bNewRevu = Vals
                cboName.Value = verklaar nietig
                cboWorkstation.Value = verklaar nietig
                cboEvalDate.Value = verklaar nietig
                DoCmd.GoToControl „fsubEvalService“
            Anders
                DoCmd.GoToControl „cboName“
                DoCmd.GoToControl „cboEvalDate“
                cboEvalDate.Value = verklaar nietig
            Beëindig als
        Anders
            Me.Bookmark = rsFind.Bookmark
            Reeks rsFind = niets
            Me.Refresh 'zo tonen de onlangs toegevoegde data in dropdown
            cboName = verklaar nietig
            cboEvalDate.Value = verklaar nietig
            dblClientFileNo = 0
            dblEvalID = 0
        Eind als

Sub van het eind
Related Oplossingen: versnelt findfirst met vraag definition

Antwoord : rsFind vertraag eerst slechts als NoMatch

Probeer om een NIEUW etiket elke keer te gebruiken. Als dit:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Doe terwijl I  < countnotes="">
Andere oplossingen  
 
programming4us programming4us