onclick :
IF ME.DataValue(“TAG1.MODE”) = 1 THEN R = MSGBOX("ENTER TO SELECT MAN ",VBOKCANCEL) IF R = VBOK THEN ME.DataValue(“TAG1.MODE”) = 0
END IF
ELSEIF ME.DataValue("TAG1.MODE") = 0 THEN
R = MSGBOX("ENTER TO SELECT AUTO ",VBOKCANCEL)
IF R = VBOK THEN
ME.DataValue("TAG1.MODE") = 1
END IF