Setfocus en messagebox y búsqueda
Publicado por Franco (2 intervenciones) el 19/06/2012 01:36:38
Tengo unos pequeños problemas (soy MUY nuevo programando),
1° Quiero hacer un botón que permita verificar si el registro está o no en una tabla, traté de hacerlo de una forma, pero siempre me toma como si no existiese el registro, y a veces sí existe. Esto es lo que traté de hacer (puse los messagebox para verificar si funcionaba o no :P)
SET ORDER TO MAYMEN
_key=thisform.text1.Value
SELECT productos
GO top
IF SEEK(_key)
MESSAGEBOX("Ya existe!")
ELSE
nAnswer= MESSAGEBOX("No existe el registro, crear uno nuevo?", 4+32+256,"Registro no encontrado")
DO case
CASE nAnswer = 6
&&Desbloquear los text (esto lo sé)
CASE nAnswer= 7
RETURN
ENDCASE
ENDIF
RETURN
2° ¿Cómo hago setfocus a la opción Si del messagebox (se hace setfocus en la No de forma predeterminada)?
GRACIAS!
1° Quiero hacer un botón que permita verificar si el registro está o no en una tabla, traté de hacerlo de una forma, pero siempre me toma como si no existiese el registro, y a veces sí existe. Esto es lo que traté de hacer (puse los messagebox para verificar si funcionaba o no :P)
SET ORDER TO MAYMEN
_key=thisform.text1.Value
SELECT productos
GO top
IF SEEK(_key)
MESSAGEBOX("Ya existe!")
ELSE
nAnswer= MESSAGEBOX("No existe el registro, crear uno nuevo?", 4+32+256,"Registro no encontrado")
DO case
CASE nAnswer = 6
&&Desbloquear los text (esto lo sé)
CASE nAnswer= 7
RETURN
ENDCASE
ENDIF
RETURN
2° ¿Cómo hago setfocus a la opción Si del messagebox (se hace setfocus en la No de forma predeterminada)?
GRACIAS!
Valora esta pregunta
0