Anónimo
Propiedad LostFocus en TexBoxt de Visual Fox
Buenas Tardes, favor si me puedes ayudar en ésto:
1- Tengo 2 TextBox : txt_codigo, txt_descripcion
2- Asociado cada uno de ello a un ControlSource: intCodigo, strDescripcion
3- El siguiente código en la propiedad LostFocus del txt_codigo
SELECT Productos
SET ORDER TO codigo
SEEK intCodigo
IF FOUND()
strDescripcion=descripcion
else
MESSAGEBOX('El Código de Producto NO Existe')
Endif
A- Resulta que al Ingresar al Formulario e inmediatamente decido salir del mismo
desde un CommandBottom: cmd_salir con el código: ThisForm.Release() en la propiedad Click, siempre me da el : MESSAGEBOX('El Código de Producto NO Existe').
Quisiera saber cómo evitar ése mensaje.
1- Tengo 2 TextBox : txt_codigo, txt_descripcion
2- Asociado cada uno de ello a un ControlSource: intCodigo, strDescripcion
3- El siguiente código en la propiedad LostFocus del txt_codigo
SELECT Productos
SET ORDER TO codigo
SEEK intCodigo
IF FOUND()
strDescripcion=descripcion
else
MESSAGEBOX('El Código de Producto NO Existe')
Endif
A- Resulta que al Ingresar al Formulario e inmediatamente decido salir del mismo
desde un CommandBottom: cmd_salir con el código: ThisForm.Release() en la propiedad Click, siempre me da el : MESSAGEBOX('El Código de Producto NO Existe').
Quisiera saber cómo evitar ése mensaje.
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
En el evento LostFocus debe ser algo similar a:
If !Empty( This.Value )
Select Productos
Set Order To codigo
Seek intCodigo
If !Eof()
strDescripcion=descripcion
Else
MessageBox('El Código de Producto NO Existe')
EndIf
EndIf
If !Empty( This.Value )
Select Productos
Set Order To codigo
Seek intCodigo
If !Eof()
strDescripcion=descripcion
Else
MessageBox('El Código de Producto NO Existe')
EndIf
EndIf