javier
23 de Diciembre del 2003

Tengo un boton para buscar registros, con el siguiente codigo:

BUSCAR=0
BUSCAR=VAL(THISFORM.Text23.VALUE)
SEEK BUSCAR ORDER TAG id_prueba
IF !FOUND() THEN
CTEXTO='REGISTRO NO ENCONTRADO ¿DESEA BUSCAR DE NUEVO?'
NTIPODEDIALOGO=4+32+256
CTITULO='MENSAJE'
NRESPUESTA=MESSAGEBOX(CTEXTO,NTIPODEDIALOGO,CTITULO)
DO CASE
CASE NRESPUESTA=6
THISFORM.Text23.SETFOCUS()
CASE NRESPUESTA=7
THISFORM.Command2.SETFOCUS()
ENDCASE
ELSE
THISFORM.REFRESH
ENDIF

El indice de mi tabla ya esta creado, y el error que marca ahora es el de "data type mismatch" alguien sabe a que se refiere este error???, ayuda, Gracias.

david campos
23 de Diciembre del 2003

no le agas tanto a la mamada solo sa lo siguente espero y te sirva

no uses variables
seek alltrim(thisform.text23.value)
if !found()
y tu mensaje de no se encontro deseas buscar otravez ok
endif
if found()
muestra en dato y listo
endif

de preferencia usa otro tipo de cuadro de dialogo y usa una opcion