Pergunta : acelerar o findfirst com definição da pergunta

Eu tenho o acesso 2007 como a parte frontal e o usuário 2008 do SQL como uma parte posterior.  Eu usava… os rs do
Set = etc
Since que de Me.RecordsetClone
rs.findfirst era realmente lento mim mudou a uma definição da pergunta com parameters.
Should não que fosse mais rápido?   Porque em meu caso é not.
Can que você olha por favor meu código unido e dizer-me o que eu tratei injustamente?  Parece realmente trabalhar mas é ainda muito slow. class= > " desobstruído " do

> do " codeSnippet " do class= do

class= " lineNumbers " do

class= do

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:

consulta notpretty do cboEvalDate_AfterUpdate secundário do >Private " do class= " de " codeSnippet810813 do id= do

class= > " desobstruído " do

soluções >Related class= >rsFind do " qRelatedChild " " do class= de NoMatch " do title= " do href= " /Microsoft/Development/MS_Access/Access_Coding-Macros/Q_26340272.html do

Resposta : acelerar o findfirst com definição da pergunta

Assim o que nós estamos fazendo aqui está encontrando o registro no recordset atual usando o objeto de RecordsetClone.  O registro é encontrado uma vez que nós ajustamos o marcador do formulário para ser os mesmos como o marcador do recordset assim que o formulário indicarão o registro desejado.  Há algumas coisas para considerar como que se há umas mudanças unsaved no formulário quando o usuário seleciona a caixa combinado.  Você pode adicionar um comando do registro das economias a essa peça do submarino ou você pode testar para ele e fazer algo mais.  Também, que acontece se um fósforo não é encontrado?  Esta pode ou não pode ser uma possibilidade baseada em seu projeto do formulário.  Olhar o exemplo de Allen Browne para o insite http://allenbrowne.com/ser-03.html

Consulta do cboEvalDate_AfterUpdate secundário confidencial () 'em a data
        DB não ofuscante como DAO.Database
        Qd não ofuscante como DAO.QueryDef
        Rs não ofuscantes como DAO.Recordset, rsFind como DAO.Recordset
        Ajustar DB = CurrentDb ()
        Ajustar qd = db.QueryDefs! qryEvaluation
        qd. Parâmetros! ClientFileNo = txtClientFileNo
        qd. Parâmetros! WorkstationID = txtWorkstationID
        qd. Parâmetros! EvalDate = cboEvalDate.Text
        Ajustar rs = qd.OpenRecordset
        Se o bNewRevu = retifica então 'este se 021108 4:00
            Chamar AddEvalRcd 'se adicionando a �a data/eval a uma estação de trabalho
            bNewRevu = falso
            cboName.Value = zero
            cboWorkstation.Value = zero
            cboEvalDate.Value = zero
            DoCmd.GoToControl “fsubEvalService”
            Retirar o submarino
        Mais
            'permitir que o usuário selecione de dropdown (using EvalID)
            'muito lento aqui na consulta 7/12/10
            'rs.MoveFirst

            Ajustar o rsFind = o Me.RecordsetClone
                'supor que ClientFileNo e WorkstationID são campos do texto.  Remover as citações de cerco (Chr (34)) se qualquer um é numérico
            rsFind.FindFirst “EvalDate = #” & Me.cboEvalDate & “# e ClientFileNo =” & Chr (34) & Me.txt ClientFileNo & Chr (34) & “e WorkstationID =” & Chr (34) & Me.txt WorkstationID & Chr (34)
                'ajustar a marca de livro do formulário ao marcador do recordset
            Me.Boolmark = rsFind.Bookmark
            Ajustar o rsFind = nada

         Terminar se

Grupo do OM