Problema con form buscar
Hola
Utilizo el siguiente código para realizar un búsqueda de registro, pero resulta que cuando quiero cerrar el formulario no me deja salir porque me muestra el mensaje de "registro no existe"
Procedimiento en el evento.
Text1.Keypress
IF LASTKEY()#27
SELECT Alumno
SET ORDER TO Nie
SEEK ALLTRIM(Thisform.Text1.Value)
IF ALLTRIM(Thisform.Text1.Value) == ALLTRIM(Nie)
Thisform.Release
ELSE
MESSAGEBOX("El registro no existe",64,"Buscar")
RETURN 0
Thisform.Text1.Value = ""
Thisform.Text1.SetFocus
ENDIF
ELSE
ENDIF
1 respuesta
Mmm si lo haces en el evento keypress te darás cuenta que tiene un parámetro que se llama nkeycode en donde se almacena el código ascii de la tecla que presionas entonces en base a ese parámetro puedes poner la primera condición así
if nkeycode = 13
**13 es el código del enter
Pruébalo de esa manera y ve si te resulta, suerte
Me funcionó.
Ahora me podrías decir como seria la búsqueda de registro con Código SQL.
para poder aplicarlo de esa forma.
Bueno asumiendo que la tabla se llama alumno y el campo código se llame nie pues el código quería así
if nkeycode = 13
select * from alumno where alltrim(nie) = alltrim(this.value) into cursor cdatosalumno
select cdatosalumno
if reccount() = 0
Messagebox("registro no existe")
Endif
Endif
Basicamente asi seria, cualquier duda me comentas
