problemas con buscar registro
Publicado por amanda21 (6 intervenciones) el 16/02/2006 23:08:28
hola a todos. necesito ayuda.
he creado un formulario y he introducido un boton control ado ,he enlazado la base de datos y todos los campos ,pero solo me falla el boton de busqueda de un registro.os paso el codigo y a ver si me podeis decir que falla.
Private Sub cmdBuscar_Click()
Dim buscado As String
Dim criterio As String
Dim cadena As String
buscado = InputBox("¿Que Codigo desea buscar?")
criterio = " id_operacion like '*" & buscado & "*'"
Adodc2.Recordset.Find criterio
If Adodc2.Recordset.EOF Then
cadena = " El registro " & UCase(buscado) & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Adodc2.Recordset.MoveLast
End If
End Sub
un saludo
he creado un formulario y he introducido un boton control ado ,he enlazado la base de datos y todos los campos ,pero solo me falla el boton de busqueda de un registro.os paso el codigo y a ver si me podeis decir que falla.
Private Sub cmdBuscar_Click()
Dim buscado As String
Dim criterio As String
Dim cadena As String
buscado = InputBox("¿Que Codigo desea buscar?")
criterio = " id_operacion like '*" & buscado & "*'"
Adodc2.Recordset.Find criterio
If Adodc2.Recordset.EOF Then
cadena = " El registro " & UCase(buscado) & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Adodc2.Recordset.MoveLast
End If
End Sub
un saludo
Valora esta pregunta
0