Busqueda en acces
Quiero realizar la búsqueda de registros y me gustaría realizarla con la función seek pero no obtengo información alguien podría darme un ejemplo
1 respuesta
Respuesta de asturcon3
1
Lo que necesitas para utilizar seek es, primero, indicar un índice de la tabla sobre la que vas a buscar, algo así como
dim r as recordset
set r=currentdb.openrecordset("mitabla")
r.index="PrimaryKey"
ésto le dice que vamos a buscar por la clave primaria
y luego realizar las búsquedas utilizando el método seek
r.seek "=",567
Ésto busca un registro cuyo valor en el campo de la clave primaria sea 567. Fíjate que se permite especificar la condición de búsqueda, en este caso de igualdad.
si no se encuntra un registro con esa condición, la propiedad noMatch se pone a Verdadero
if r.nomatch then
msgbox "no se encontró"
else
msgbox r("uncampocualquiera")
Endif
Nada más, es tan simple como eso.
Ojo a un tema, si pretendes haceralgo complicado o una mdb grande (y supongo que por eso preguntas por seek, porque sino te vale con findfirst) posiblemente querrás utilizar tablas vinculadas. En ese caso ahórrate el trabajo, pues seek no funciona con tablas vinculadas.
dim r as recordset
set r=currentdb.openrecordset("mitabla")
r.index="PrimaryKey"
ésto le dice que vamos a buscar por la clave primaria
y luego realizar las búsquedas utilizando el método seek
r.seek "=",567
Ésto busca un registro cuyo valor en el campo de la clave primaria sea 567. Fíjate que se permite especificar la condición de búsqueda, en este caso de igualdad.
si no se encuntra un registro con esa condición, la propiedad noMatch se pone a Verdadero
if r.nomatch then
msgbox "no se encontró"
else
msgbox r("uncampocualquiera")
Endif
Nada más, es tan simple como eso.
Ojo a un tema, si pretendes haceralgo complicado o una mdb grande (y supongo que por eso preguntas por seek, porque sino te vale con findfirst) posiblemente querrás utilizar tablas vinculadas. En ese caso ahórrate el trabajo, pues seek no funciona con tablas vinculadas.
