Busqueda con Recordset con resultados multiples
Publicado por Gabriel (7 intervenciones) el 01/11/2021 13:14:02
Buenas... estoy con un pequeño inconveniente... resulta que hago busqueda con recordset y hasta ahora venia todo bien hasta que me tope con algunos valores repetidos y pense en que me compruebe si son mas de uno que me abra un cuadro de lista en otro formulario para elegir el que quiero ver perosolo me muestra uno de los registros y no me abre el cuadro de lista.
gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Busca_BASE()
Dim RS As DAO.Recordset, sql As String, db As DAO.Database
Set RS = Recordset
Set db = CurrentDb()
sql = "select * from BASE where REF = " & Me.TXTSearching & " or N_CAUSA LIKE '" & Me.TXTSearching & "'"
Set RS = db.OpenRecordset(sql, dbOpenForwardOnly)
If RS.RecordCount = 1 Then
With RS
Me.REF01 = !REF
Me.JF_INT02 = !JF_INT
Me.AREA02 = !AREA
Me.N_CAUSA02 = !N_CAUSA
Me.F_IN02 = !F_IN
Me.ESTADO02 = !ESTADO
Me.MATERIAL02 = !MATERIAL
Me.CARATULA02 = !CARATULA
Me.F_OUT01 = !F_OUT
Me.TXT_OUT01 = !TXT_OUT
Me.DEP_INT01 = !DEP_INT
Me.INFO02 = !INFO
End With
ElseIf RS.RecordCount > 1 Then
DoCmd.OpenForm "Rep_Causa", , , , , acDialog
Else
MsgBox ("Numero NO se encuentra en la Base. " & Chr(13) & "Seleccione la casilla Informáticos e intente nuevamente.")
End If
End Sub
gracias
Valora esta pregunta
0