Código no funciona en búsqueda

Private Sub Cm_Buscar_Click()
If Not IsNull(Me.Txt_Numero_Serie) Then
Call Recupera_Informacion
End If
End Sub

Private Sub Recupera_Informacion()
Dim rst As DAO.Recordset, SQL As String
On Error GoTo ManipulaError
SQL = "SELECT Cod_Entrada_Sat, Fecha_Entrada, RMA, P.Milos/SAP, Cliente, Linea, Base, Origen, Equipo, Descripción, Marca, Modelo, Numero Serie, Averia "
&"FROM Tbl_Entrada Sat"
& WHERE "Numero_Serie = '" & Me.Txt_Numero_Serie & "'"

Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
With rst
Me.Txt_Cod_Entrada_Sat = !Cod_Entrada_Sat
Me.Txt_Fecha_Entrada = !Fecha_Entrada
Me.Txt_RMA = !RMA
Me.Txt_Milos_SAP = !MILOS_SAP
Me.Txt_Cliente = !Cliente
Me.Txt_Linea = !Linea
Me.Txt_Base = !Base
Me.Txt_Origen = !Origen
Me.Txt_Equipo = !Equipo
Me.Txt_Descripción = !Descripción
Me.Txt_Marca = !Marca
Me.Txt_Modelo = !Modelo
Me.Txt_Averia = !AVERIA
End With
rst.Close: Set rst = Nothing
Me.Txt_Numero Serie = Null
Exit Sub
ManipulaError:
If Not rst Is Nothing Then rst.Close: Set rst = Nothing

End Sub

Respuesta
1

La captura de error no es correcta de esta forma si no hay información no se cierra el recordset y no se libera memoria. Lugar de reemplazar por cada campo utilice:

Me.RecordSource=SQL

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas