Boton Buscar

Hola Sofía, puedes hacerlo de varias fomas usando comandos como el locate,
seek o filtrando los datos con el

Por ejemplo en un formulario aparte del principal, usando un combo y boton
'buscar' puedes usar esto:

nCod=Thisform.combo1.Value
Sele base1 && selecciona la tabla 1

Set Order To Tag producto && con esto se ordena por producto
nABuscar = nCod
Seek (nABuscar)
if found()
Else
Messageb('No se encuetra el código solicitado',16,'E R R O R ')
Return 0
Endif
Thisform.Release

o bien, con un cuadro de texto y el boton buscar yo uso esto:

nCod=Thisform.TXTCOD.Value
Sele base1

Set Order To Tag CODIGO && con esto se ordena
nCodigoABuscar = nCod
LOCATE FOR lnCodigoABuscar == cod
if found()
Else
Messageb('A Sucedido un Error, Notifique a su Administrador',16,'E R R O R
')
Return 0
Endif
Thisform.Release



"sofia" wrote in message
news:51a201c48083$4a1cf7a0$

Hola

Trabaje en un formulario en el cual tiene los botones de
movimiento en los registros de una tabla (primero,
siguiente, anterior, ultimo) pero necesito desarrollar el
boton que realice las busquedas mediante el campo llave.

De antemano gracias

Saludos