Вопрос : rsFind сперва медленное только если NoMatch

Я имею Кодего быть прикрепленным где я использую rsFind и он работает отлично если будет спичка, то но она справедливо медленна если не будет спички.  Дорога, котор я smog улучшить мое Кодего? class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
взгляд вверх Sub cboEvalDate_AfterUpdate >Private " class= " " codeSnippet822761 id= 
>>>> ЗАМЕДЛЯЙТЕ ЗДЕСЬ ЕСЛИ НИКАКАЯ СПИЧКА
        rsFind.FindFirst «EvalDate = #» & Me.cboEvalDate & «# и ClientFileNo =» & Me.txt ClientFileNo & «и WorkstationID =» & Me.txt WorkstationID
        Если rsFind.NoMatch после этого 'если не смогите считать дату вписано, то спрашивают, то если они хотят добавить новое одно
            Затемните Msg, тип, название, реакцию, MyString
            Msg = cboEvalDate.Value & ««& «не существуют для этого клиента.  И вы любите добавить его?»
            Тип = vbYesNo + vbDefaultButton1 'определяют кнопки.
            Название = «SOGoodwill» 'определяет название.
            Реакция = индикация «последнее обновленное MsgBox (Msg, типа, названия) 'на» сообщении
            Если реакция = vbYes после этого ', то если потребитель выбрал да.
                bNewRevu = True
                Звонок AddEvalRcd
                bNewRevu = ложно
                cboName.Value = Null
                cboWorkstation.Value = Null
                cboEvalDate.Value = Null
                DoCmd.GoToControl «fsubEvalService»
            Еще
                DoCmd.GoToControl «cboName»
                DoCmd.GoToControl «cboEvalDate»
                cboEvalDate.Value = Null
            Закончитесь если
        Еще
            Me.Bookmark = rsFind.Bookmark
            Установите rsFind = ничего
            Me.Refresh 'настолько нов добавило даты показывает в падающем вниз
            cboName = Null
            cboEvalDate.Value = Null
            dblClientFileNo = 0
            dblEvalID = 0
        Закончитесь если

Закончите подводную лодку
class= " ясное " >
Related: class= " qRelatedParent " определения " вопроса " title= " href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26332458.html speed вверх по findfirst с вопросом definition

Ответ : rsFind сперва медленное только если NoMatch

Попытайтесь использовать НОВЫЙ ярлык каждое время. Как это:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Сделайте пока I  < countnotes="">
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us