Que es lo que esta mal en el código VBA que no funciona

Estoy con una pequeña base de datos, el problema o lo que pretendo es con una consulta realizada en un formulario en Txt me realice la consulta en la tabla Entrada Sat y me devuelva el valor de la consulta en los campos señalado.

Mi código no se si es el correcto.

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, 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
Me.Txt_Numero_Serie = !S_Numero_Serie
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

1 respuesta

Respuesta
1

¿Qué error recibe?

¡Gracias! por su pronta contestación, este es el error.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas