C
28 de Noviembre del 2003

hola en vsf 5.0 me funcionaba ahora en vsf 6.0 ya no hacia una busqueda a una tabla, el index era de campo regular hago lo mismo mi codigo es el siguiente ayudenme porfavor

selec 1
set order to tag kb01 ** index de la tabla
seek thisform.text1.value ** donde introduzco el dato a buscar
if found() ** si tubo exito la busqueda
messagebox( " el dato si existe",0,"mensaje") **por si
else
messagebox( " no existe el dato",0,"mensaje") ** por no
endif
thisform.release() ** sale
gracias

SAMUEL SMH
28 de Noviembre del 2003

Coloca el codigo en el evento Valid del control text1 o en un Command.
Otra cosa para salir del formulario utiliza thisform.release no utilices release().

Saludos

HECTOR CRUZ
28 de Noviembre del 2003

EL PROBLEMA PUEDE ESTAR EN LA CANTIDAD DE ESPACIOS QUE MANEJA EL CAMPO TEXT1. ENTONCES HAS LA BUSQUEDA ASI.
SEEK ALLTR(THISFORM.TEXT1.VALUE)

Kop.
28 de Noviembre del 2003

hola
lo unico que veo que podria estar mal.. es el valor de thisform.text1.value si es numerico o caracter o tiene espacios de mas.. o no tiene el mismo largo del campo a buscar...
y lo otro seria que revisaras o reindexaras...

Kop.