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:
Gracias de antemano.
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 strCriteriaForms!miFormulario.Bookmark = rst.Bookmark
DoCmd.Close acForm, "Buscador"
Set rst = NothingExit_Salir_Click:Exit Sub
Valora esta pregunta
0
