How to Keep Cursor in GET Object If Data Is Invalid

• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, 2.5b, 2.6
• Microsoft FoxPro for Windows, versions 2.5, 2.5a, 2.5b, 2.6
• Microsoft FoxPro for Macintosh, versions 2.5b, 2.5c

SUMMARY

This article describes how to keep the cursor in a GET object if the data that was entered is invalid.

MORE INFORMATION

The following code examples illustrate two ways of keeping the cursor in a GET object.

Example 1

This example uses a GET field called m.pass and calls a UDF function named Testit() each time the cursor leaves the field. By default, the Testit() function will always return true (.T.), which updates the object with the current value. If invalid or incorrect data was entered in a field, you can return false (.F.), which keeps the original value unchanged in the GET field and displays an "Invalid Input" message.

   *** Code begins here ***
   @ 5,0 GET m.pass DEFAULT '  '  VALID Testit()
   READ CYCLE

   FUNCTION testit
   IF m.pass = "Y"
      RETURN .T.
   ELSE
      RETURN .F.
   ENDIF
   *** Code ends here ***

   ARTICLE-ID: Q90415
   TITLE     : Suppressing the "Invalid Input" Message in FoxPro

Example 2

The following code illustrates how you can force the cursor to remain in the same field object by setting the value of _CUROBJ (current object) to itself instead of using RETURN .F. in the called procedure.

   *** Code begins here ***
   @ 5,0 GET m.anyx DEFAULT '     ' VALID Test2()
   @ 6,0 GET m.anyz DEFAULT '     '
   READ CYCLE

   FUNCTION test2
   WAIT WINDOW m.anyx TIMEOUT 5
   _CUROBJ=_CUROBJ
   *** Code ends here ***