Visual Basic - Boton buescar en base de datos de excel?? ayuda

Life is soft - evento anual de software empresarial
   
Vista:

Boton buescar en base de datos de excel?? ayuda

Publicado por Kevin Santiago (1 intervención) el 25/09/2009 00:52:10
Alguien me podria ayudar a crear un boton que busque en un data indexado con excel,no funciona,soy un principiante y es necesario para realizar un programa de una empresa,es urgente! este es el codigo que tengo y me produce el error 3251:

Buscado = InputBox("Por favor ingrese el Numero de Cheque :")
Nombre = Buscado
Buscado = "[Cheque_No] like '*" & Nombre & "*'"
cmdPrimero_Click
Data1.Recordset.FindFirst (buscar)
If Data1.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La especialidad no se encuentra")
cmdPrimero_Click
End If
ayuda y gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Boton buescar en base de datos de excel?? ayuda

Publicado por juan carlos (518 intervenciones) el 25/09/2009 02:18:21
hola kevin
intentalo asi
lo veria mejor si tuviera el codigo
mi mail es
mega.juca@hotmail.es
=========================
Private Sub Command1_Click()
Dim nombre As String
Buscado = InputBox("Por favor ingrese el Numero de Cheque :")
nombre = Buscado
salida = "[Cheque_No] like '*" & nombre & "*'"
'cmdPrimero_Click no se para que es esto
Data1.Recordset.FindFirst (buscar)
If Data1.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La especialidad no se encuentra")
Else
mostrarlo
End If
'cmdPrimero_Click no se para que es esto
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar