Realizar búsqueda SQL VBA Access todo desde formulario de Access

Necesito ayuda la verdad soy nuevo y bueno quiero hacer una búsqueda desde un botón buscar y que el resultado me lo asigne a una cajas de texto en el formulario, tengo la tabla cliente con los campos cedula nombre y celular. Les dejo el código

Option Compare Database

Private Sub btnbuscar_Click()
Dim buscedu As String
Dim vacio As String
Dim mySql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
buscedu = InputBox("introdusca la cedula del cliente ")

If buscedu = "" Then

vacio = MsgBox("ingresa la cedula del cliente ", vbOKOnly)
buscedu = InputBox("introdusca la cedula del cliente ")
Else
mySql = "SELECT * FROM [cliente]"
mySql = mySql & " WHERE [cliente].[cedula]= 'buscedu'"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(mySql, dbOpenSnapshot)

( justo aca me da error  dice error 3021  no hay  ningun registro activo)

Me.txtcedula.Value = rst.Fields(0).Value 

Me.txtnombre.Value = rst.Fields(1).Value
Me.txtcelular.Value = rst.Fields(2).Value
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End If

End Sub

1 respuesta

Respuesta
1

El error está en esta línea

mySql = mySql & " WHERE [cliente].[cedula]= 'buscedu'"

Debe ser:

mySql = mySql & " WHERE [cliente].[cedula]= '" & buscedu & "'"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas