Visual Basic - buscar registros con DAO

Life is soft - evento anual de software empresarial
 
Vista:

buscar registros con DAO

Publicado por makka (1 intervención) el 05/10/2005 06:10:48
Hola
Llevo mucho rato leyendo las consultas del foro, que me han aclarado algunas cosas, pero no encuentro solucion a mi problema. Si alguien me puede ayudar....

Tengo una base en access enlazada con DAO, y necesito que cuando busco un dato, y este este duplicado, con dos botones de adelanto y retroseso me muestre los campos de los otros registros del mismo nombre...¿Me explico?
Por ejemplo si busco lapices lo encuentra y carga la info en el formulario, pero si hay varios registros lapices, quiero avanzar y que me los vaya mostrando.

En este momento lo hace, pero me muestra todos los registros que vienen despues (lapices, gomas, etc)

Si alguien me entendio gracias...

les dejo parte del codigo tbn.

Private Sub Form_Load()
'carga la base inventario, en la tabla herramientas
Set xx = OpenDatabase("INVENTARIO.mdb")
Set yy = xx.OpenRecordset("HERRAMIENTAS", dbOpenDynaset)
End Sub

Private Sub Command2_Click()
'boton buscar
If Text2.Text <> "" Then
rr = UCase(Text2)
Text2 = rr
jj = "NOMB='" & Text2.Text & "'"
yy.FindFirst jj
If yy.NoMatch Then
MsgBox ("NOMBRE INEXIXTENTE")
Limpiar2
Text2.SetFocus
Else
nn = Text2.Text
Cargar
End If
End If
End Sub

Private Sub Command5_Click()
'retrosede entre registro del mismo nombre y evita desbordamiento del retroseso
yy.MovePrevious
If yy.BOF Then
yy.MoveNext
Else
' jj = "NOMB='" & nn & "'"
' yy.FindFirst jj
Cargar
End If
End Sub

Private Sub Command6_Click()
yy.MoveNext
If yy.EOF Then
yy.MoveLast
Else

Cargar
End If
End Sub

chau :D
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:buscar registros con DAO

Publicado por Rodrigo (83 intervenciones) el 05/10/2005 21:14:27
En vez de poner la linea

Set yy = xx.OpenRecordset("HERRAMIENTAS", dbOpenDynaset)

pon la linea

Set yy = xx.OpenRecordset("select * from herramientas where nombre = " & text1.text, dbOpenDynaset)

Por lo tanto tienes que mover esta linea desde el Form_Load al Command2_Click para que cada vez que se presione el boton buscar se refreque la busqueda. Antes de volver a re-abrir el recordset debes cerrarlo porque te puede dar error.

Espero te sirva.
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