Cristophilin
18 de Marzo del 2005

tengo el siguiente problema con este codigo en Visual FoxPro 6.0

Use Usuario
Locate for Usuario.cUsuario = Usuario
Seek(Usuario)
If Not Found ()
Messagebox( "Usuario No Existe")
Loop()
Else
Messagebox( "Usuario Existe")
EndIf
Me dice que no encuentra la Variable usuario, la variable usuario es un textbox, le agregue de esta manera y tampoco funciona
Locate for Usuario.cUsuario = Usuario.Textbox
si me pueden ayudar seria genial

MARCOS74
18 de Marzo del 2005

MIRA AMIGO YO PONDRIA ESTE CODIGO EN UN COMMAND BUTTON, QUE SERIA EL BOTON BUSCAR

Use Usuario
*ORDENO LA TABLA
set order to id_usuario
*USUARIO1 ES EL CONTROLSOURCE DEL TEXTBOX
Seek(ALLTRIM(Usuario1))
If Found ()
Messagebox( "Usuario si Existe")
Else
Messagebox( "Usuario no Existe")
EndIf
PONGO EN BLANDO EL TEXTBOX PARA OTRA BUSQUEDA
USUARIO1=""
*Y COLOCO EL CURSOR EN EL TEXTBOX
thisform.text1.setfocus

Y RECUERDA QUE EL EVENTO INIT DEL TEXTBOX DEBES INICIALIZAR LA VARIABLE EN BLANCO OK

ESPERO QUE ESTO TE SIRVA CUALQUIER DUDA AQUI ESTOY PARA SERVIRTE

Cristophilin
18 de Marzo del 2005

Quiero agradecerles su ayuda, me funciona super bien gracias, estoy aprendiendo solo a programar en Visual FoxPro 6.0 e igual es super complicado aprender solo. Gracias espero me sigan ayudando en futuras preguntas que hare
Nuevamente muchas gracias