Fråga : långsam rsFind först om endast NoMatch

Jag har att kodifiera fäst var jag använder rsFind och den fungerar fint, om det finns en match, men den är ganska långsam, om det inte finns någon match.  Finns det långt mig kunde förbättra mitt kodifierar? > för

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:

" codeBody " " referens för undercboEvalDate_AfterUpdate för >Private för class= " för >>>> SAKTA HÄR OM INGEN MATCH rsFind.FindFirst ”EvalDate = nr.” & Me.cboEvalDate & ”nr. och ClientFileNo =” & Me.txt ClientFileNo & ”och WorkstationID =” & Me.txt WorkstationID Om rsFind.NoMatch därefter ', om inte kan finna daterar skrivet in, fråga, om de önskar att tillfoga ny Dunkla Msg, utformar, betitlar, svaret, MyString Msgen = cboEvalDate.Value & ””& ”finns inte för denna beställare. Skulle du som är lik att tillfoga den?”, Utforma = vbYesNoen + vbDefaultButton1 'definierar knäppas. Titeln = ”SOGoodwill” 'definierar titel. Svar = MsgBox (Msg, utformar, titel), 'skärm ”sist som uppdateras på” meddelande Om svar = vbYes därefter ', om användaren valde ja. bNewRevuen = True Appell AddEvalRcd bNewRevu = falskt cboName.Value = ogiltigt cboWorkstation.Value = ogiltigt cboEvalDate.Value = ogiltigt DoCmd.GoToControl ”fsubEvalService”, Annars DoCmd.GoToControl ”cboName”, DoCmd.GoToControl ”cboEvalDate”, cboEvalDate.Value = ogiltigt Avsluta om Annars Me.Bookmark = rsFind.Bookmark Fastställd rsFind = ingenting Me.Refresh 'tillfogade så nyligen daterar show i dropdown cboName = ogiltigt cboEvalDate.Value = ogiltigt dblClientFileNo = 0 dblEvalID = 0 Avsluta om Avsluta suben Related lösningar för class= ": class= " qRelatedParent " för definitionen " för queryen för title= " för speed upp findfirst med queryen definition

Svar : långsam rsFind först om endast NoMatch

Försök att använda en NY etikett varje tid. Gilla detta:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:

Gör stunder i < countnotes="">