Frage : rsFind zuerst langsam nur wenn NoMatch

Ich lasse Code anbringen, wo ich rsFind benutze und es adaequat ist, wenn es ein Gleiches gibt, aber es ziemlich langsam ist, wenn es kein Gleiches gibt.  Gibt es eine Weise, die ich meinen Code verbessern könnte? 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:

Private VorcboEvalDate_AfterUpdate () 'Nachschlagen bis zu Datum
        Schwaches DB als DAO.Database
        Schwacher qd als DAO.QueryDef
        Schwache rs als DAO.Recordset
        Schwaches rsFind als DAO.Recordset
        Einstellen DB = CurrentDb ()
        Einstellen qd = db.QueryDefs! qryEvaluation
        qd. Parameter! ClientFileNo = txtClientFileNo
        qd. Parameter! WorkstationID = txtWorkstationID
        qd. Parameter! EvalDate = cboEvalDate.Text
        Rs = qd.OpenRecordset einstellen
        rsFind = Me.RecordsetClone einstellen
>>>>> HIER VERLANGSAMEN WENN KEIN GLEICHES
        rsFind.FindFirst „EvalDate = #“ u. Me.cboEvalDate u. „# und ClientFileNo =“ u. Me.txt ClientFileNo u. „und WorkstationID =“ u. Me.txt WorkstationID
        Wenn rsFind.NoMatch dann 'fragen, wenn Datum nicht finden kann erreicht, ob sie Neues addieren möchten
            Msg, Art, Titel, Antwort, MyString verdunkeln
            Msg = cboEvalDate.Value u. „„u. „existiert nicht für diesen Klienten.  Wurden Sie mögen es addieren?“
            Art = vbYesNo + vbDefaultButton1 'definieren Knöpfe.
            Titel = „SOGoodwill“ 'definieren Titel.
            Antwort = MsgBox (Msg, Art, Titel) 'Anzeige „letztes modernisiertes auf“ Mitteilung
            Wenn Antwort = vbYes dann ', wenn Benutzer ja wählte.
                bNewRevu = ausrichten en
                Anruf AddEvalRcd
                bNewRevu = falsch
                cboName.Value = Null
                cboWorkstation.Value = Null
                cboEvalDate.Value = Null
                DoCmd.GoToControl „fsubEvalService“
            Sonst
                DoCmd.GoToControl „cboName“
                DoCmd.GoToControl „cboEvalDate“
                cboEvalDate.Value = Null
            Beenden wenn
        Sonst
            Me.Bookmark = rsFind.Bookmark
            rsFind einstellen = nichts
            Me.Refresh 'addierte so eben Daten zeigen in Drop-Down
            cboName = Null
            cboEvalDate.Value = Null
            dblClientFileNo = 0
            dblEvalID = 0
        Beenden wenn

Unterseeboot beenden
Related Lösungen: " dem qRelatedParent " beschleunigen findfirst mit Frage definition

Antwort : rsFind zuerst langsam nur wenn NoMatch

Versuchen, einen NEUEN Aufkleber jedes Mal zu benutzen. So:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Tun während i  < countnotes="">
Weitere Lösungen  
 
programming4us programming4us