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
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


0