Visual Basic - Ayuda para hacer un boton

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda para hacer un boton

Publicado por nacho (1 intervención) el 12/12/2007 02:03:29
Hola que tal estoy solicitando que alguien me oriente ya que esto que estoy haciendo es nuevo para mi y no se donde tengo el error en la programacion de un boton. Comienzo por explicar, bueno estoy realizando un programa con una base de datos en acess con un Data1 la base de datos esta convertida para acess 97 por que el Data1 no hacepta una base de datos mas reciente, bueno el boton que deseo realizar es el de "BUSCAR" para encontrar alguna informacion (nombres,productos,etc.) en la base de datos. YA programe el boton (segun yo) pero no busca nada, tal vez alguien podria decirme donde tengo el error, o si lo programe mal, o tal vez alguien guste pasarme un codigo para programar el boton, aqui dejo lo que programe:

Private Sub Command5_Click()
Dim buscar As String
Dim c As String
buscar = InputBox("nombre del producto")
c = "buscar like'*" & buscar & "*"
Data1.Recordset.MoveNext
Data1.Recordset.FindFirst (c)
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveLast
MsgBox ("no se encuentra ese producto")
End If
End Sub

De antemano gracias.
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:Ayuda para hacer un boton

Publicado por Carmele (8 intervenciones) el 12/12/2007 06:50:24
Private Sub Command5_Click()
Dim sBuscar As String
sBuscar = InputBox("Indica nombre del producto: ", "Búsqueda por Productos")
If sBuscar = "" Then Exit Sub
Data1.Recordset.FindFirst "NombreProducto ='" & sBuscar & "'"
If Data1.Recordset.NoMatch Then
MsgBox "No existe"
Exit Sub
Else
' aquí lo que quieres que haga si lo encuentra
End If
End Sub

"NombreProducto" es el nombre del campo por el que ha de buscar.
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