Visual Basic - FindFirst de dos criterios

Life is soft - evento anual de software empresarial
   
Vista:

FindFirst de dos criterios

Publicado por TipoDeIncógnito (1 intervención) el 24/12/2015 12:22:36
Buenas, estoy haciendo una pequeña aplicacion en Acess y al hacer el findFirst de dos criterios no me devuelve el resultado esperado. Me muestra siempre el primer registro del formulario. Codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Lista6_DblClick(Cancel As Integer)
On Error GoTo Err_Salir_Click
Dim rst As Recordset
 
    DoCmd.OpenForm "miFormulario"
 
    Dim srtCriteria As String
 
    strCriteria = ("[NºExp]='" & Me.Lista6 & "'And [Anyo] = '" & Me.Cuadro_combinado3 & "'")
    Set rst = Forms!miFormulario.RecordsetClone
    rst.FindFirst strCriteria
 
    Forms!miFormulario.Bookmark = rst.Bookmark
    DoCmd.Close acForm, "Buscador"
 
Set rst = Nothing
 
Exit_Salir_Click:
    Exit Sub
Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo

FindFirst de dos criterios

Publicado por Wilfredo (257 intervenciones) el 26/12/2015 18:36:14
En lugar de hacer eso, porque no haces algo así:?

Rst.Open "Select Campo1,Campo2,CampoN From TuTabla Where Campo1=Algo And Campo2=otracosa"

Con lo cual solucionarías tu problema, ese código está para adaptarlo a tus necesidades, VB6, ya no lo uso mas de 10 años, pero esa es la idea.

Saludos cordiales,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar