Cuestión : acelerar el findfirst con la definición de la pregunta

Tengo acceso 2007 como las partes frontales y servidor 2008 del SQL como parte.  ¿Utilizaba… los rs = el etc
Since del
Set de Me.RecordsetClone
rs.findfirst que era realmente lento yo cambió a una definición de la pregunta con parameters.
Should no que sea más rápido?   ¿Porque en mi caso es not.
Can que usted mira por favor mi código atado y decirme lo que perjudiqué?  Parece realmente trabajar pero sigue siendo mismo slow. class= > " claro " del

> del " codeSnippet " del class= del

class= " lineNumbers " del

class= del

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

operaciones de búsqueda notpretty del cboEvalDate_AfterUpdate secundario del >Private " del class= " de " codeSnippet810813 del id= del

class= > " claro " del

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

Respuesta : acelerar el findfirst con la definición de la pregunta

Qué estamos haciendo aquí está encontrando tan el expediente en el recordset actual usando el objeto de RecordsetClone.  El expediente se encuentra una vez que fijamos la señal de la forma para ser iguales que la señal del recordset así que la forma exhibirán el expediente deseado.  Hay algunas cosas para considerar por ejemplo lo que si hay cambios unsaved en la forma cuando el usuario selecciona la caja combinada.  Usted puede agregar un comando del expediente de la reserva a esa pieza del submarino o usted puede probar para él y hacer algo más.  ¿También, qué sucede si un fósforo no se encuentra?  Este mayo o mayo no ser una posibilidad basada sobre su diseño de la forma.  Mirar el ejemplo de Allen Browne para el insite http://allenbrowne.com/ser-03.html

Operaciones de búsqueda del cboEvalDate_AfterUpdate secundario privado () 'por la fecha
        DB dévil como DAO.Database
        Qd dévil como DAO.QueryDef
        Rs déviles como DAO.Recordset, rsFind como DAO.Recordset
        Fijar DB = CurrentDb ()
        ¡Fijar qd = db.QueryDefs! qryEvaluation
        qd. ¡Parámetros! ClientFileNo = txtClientFileNo
        qd. ¡Parámetros! WorkstationID = txtWorkstationID
        qd. ¡Parámetros! EvalDate = cboEvalDate.Text
        Fijar los rs = qd.OpenRecordset
        Si el bNewRevu = verdad entonces 'esto si 021108 4:00
            Llamar AddEvalRcd 'si agrega la 1ra fecha/eval a un sitio de trabajo
            bNewRevu = falso
            cboName.Value = falta de información
            cboWorkstation.Value = falta de información
            cboEvalDate.Value = falta de información
            DoCmd.GoToControl “fsubEvalService”
            Salir el submarino
       
            'permitir que el usuario seleccione de dropdown (usar EvalID)
            'muy lento aquí en las operaciones de búsqueda 7/12/10
            'rs.MoveFirst

            Fijar el rsFind = Me.RecordsetClone
                'asume que ClientFileNo y WorkstationID son campos del texto.  Quitar las cotizaciones de alrededor (Chr (34)) si cualquiera es numérico
            rsFind.FindFirst “EvalDate = #” y Me.cboEvalDate y “# y ClientFileNo =” y Chr (34) y Me.txt ClientFileNo y Chr (34) y “y WorkstationID =” y Chr (34) y Me.txt WorkstationID y Chr (34)
                'fijar la marca de libro de la forma a la señal del recordset
            Me.Boolmark = rsFind.Bookmark
            Fijar el rsFind = nada

         Terminar si

Cuadrilla de OM