Buscar dos registros en dos campos

Hola Experto

utilizo este código para hacer una búsqueda con locate for para buscar dos registros en dos campos.

mNie = (Thisform.Text1.Value)
mLec = (Thisform.Text2.Value)
LOCATE FOR (alltrim(Inscripción.Nie)) == alltrim(mNie) AND (alltrim(Inscripción.Lec)) == alltrim(mLec)


IF FOUND()
Encon = 1
Thisform.Release
ELSE
MESSAGEBOX("El Registro no existe",64,"Atención")
THISFORM.VISIBLE = .T.
RETURN 0
Thisform.Text1.Value = ""
Thisform.Text2.Value = ""
ENDIF

pero me muestra un error que dice: El valor o tipo de argumentos no es valido para la función.

Como puedo solucionarlo.

1 respuesta

Respuesta
1

Pero necesito saber que tipo de datos son tus campos de inscripción. Nie y inscripción. Lec

PD: ¿Te has fijado en la tilde de la "o"?

NIE campo es tipo carácter

LEC campo tipo numerico

Bueno la solución es sencilla :

Puesto que tu campo lec es numérico

Reemplaza el código

LOCATE FOR (alltrim(Inscripción.Nie)) == alltrim(mNie) AND (alltrim(Inscripción.Lec)) == alltrim(mLec)

por este otro

LOCATE FOR (alltrim(Inscripción.Nie)) == alltrim(mNie) AND (alltrim(STR(Inscripción.Lec))) == alltrim(mLec)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar datos en una tabla

Nuevamente yo haciendo una consulta. Tengo una Tabla y un Formulario; En la Tabla están los campos "Usuario" y "Contraseña". En el Formulario tengo dos (2) Textos y un botón de comando. Bueno la cuestión es que deseo ingresar en el Text1 el "Usuario"...
1 respuesta

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta

Comparar dos cadenas

Tengo un form de validación que usa la tabla usuario y no puedo comparar el valor del campo usuario con el del text1. Aunque coincida el usuario no entra al if: do while !eof() if usuario = thisform.text1.value Messagebox("Entre al if") Endif Skip Enddo
1 respuesta

Busqueda CON SEEK

Programadores requiero de su ayuda, he creado un indice con mis campos sede+dtoc(fecha de ingreso)+cod_cli, el primero y el segundo son de tipo char, entonces cuando presiono guardar quiero que busque en la tabla si los registros son iguales y que el...
2 respuestas

Codigo mas conveniente para botones para touch validando numeros

El textbox y los botones estan en el mismo formulario... En el textbox en lostfocus tengo el siguiente codigo: SET ESCAPE OFF *SET DEFAULT TO C:\VSEEK\ USE Demages ORDER pin SEEK(thisform.ppin.value) IF FOUND() thisform.pPin.Value=Demages.Pin...
2 respuestas