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

Я имею доступ 2007 как начало и сервер 2008 SQL как backend.  Я использовал… rs
Set = etc
Since, котор Me.RecordsetClone
rs.findfirst он был реально медленн я изменил к определению вопроса с parameters.
Should не быстре?   Потому что в мой случай это будет not.
Can, котор вы пожалуйста смотрите мое прикрепленное Кодего и скажите мне я повредил?  Оно фактическ кажется, что работает но это будет все еще очень slow. 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:

взгляд вверх Sub cboEvalDate_AfterUpdate >Private " class= " " codeSnippet810813 id=

class= " ясное " >

Related: >rsFind " qRelatedChild " " class= NoMatch " title= " href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26340272.html

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

Так мы делаем здесь находит показатель в в настоящее время recordset путем использование предмета RecordsetClone.  Раз показатель мы устанавливает bookmark формы для того чтобы быть этими же bookmark recordset поэтому форма покажут пожеланный показатель.  Будут немного вещей для рассмотрения как если будут unsaved изменения на форме, то когда потребитель выбирает комбинированную рамку.  Вы можете добавить командование показателя спасения к той части подводной лодки или вы можете испытать для ее и сделать что-то еще.  Также, случается если спичка не а?  Это может или не может быть возможность основанная на вашей конструкции формы.  Посмотрите пример Ален Browne для insite http://allenbrowne.com/ser-03.html

Взгляд вверх приватного Sub cboEvalDate_AfterUpdate () 'к дата
        Тусклый db как DAO.Database
        Тусклый qd как DAO.QueryDef
        Тусклые rs как DAO.Recordset, rsFind как DAO.Recordset
        Установите db = CurrentDb ()
        Установите qd = db.QueryDefs! qryEvaluation
        qd. Параметры! ClientFileNo = txtClientFileNo
        qd. Параметры! WorkstationID = txtWorkstationID
        qd. Параметры! EvalDate = cboEvalDate.Text
        Установите rs = qd.OpenRecordset
        Если bNewRevu = True после этого 'это если 021108 4:00
            Вызовите AddEvalRcd 'если добавляющ 1-ую дату/eval к рабочему месту
            bNewRevu = ложно
            cboName.Value = Null
            cboWorkstation.Value = Null
            cboEvalDate.Value = Null
            DoCmd.GoToControl «fsubEvalService»
            Выходите подводная лодка
        Еще
            'позвольте потребителю выбрать от падающего вниз (using EvalID)
            'очень медленно здесь на взгляде вверх 7/12/10
            'rs.MoveFirst

            Установите rsFind = Me.RecordsetClone
                'принимает ClientFileNo и WorkstationID будет полями текста.  Извлекайте окружающие цитаты (Chr (34)) если то численный
            rsFind.FindFirst «EvalDate = #» & Me.cboEvalDate & «# и ClientFileNo =» & Chr (34) & Me.txt ClientFileNo & Chr (34) & «и WorkstationID =» & Chr (34) & Me.txt WorkstationID & Chr (34)
                'установите метку книги формы к bookmark recordset
            Me.Boolmark = rsFind.Bookmark
            Установите rsFind = ничего

         Закончитесь если

Шатия OM