How to Use READKEY() to Test If Data Has Been Changed

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

SUMMARY

The UPDATED() function returns .T. if any object has changed during a READ, or if a control such as a push button has been selected.

This article explains how you can also determine if the data itself has changed during a READ.

MORE INFORMATION

The READKEY() function provides an easy method of testing if the current user has made any modifications to the data during the READ. It does not test if another user has modified the same record residing on a network drive.

READKEY() can be used to return two distinct sets of values. If READKEY() is issued with no arguments, as in the following example, it returns a value in the range 0-36 if no data has changed, and 256-292 if data has changed:

   ?READKEY()

   ?READKEY(0)

The following steps will create a simple screen based on memory variables. A push button labeled Cancel will test if the data has been changed. If no data has been changed, the READ will terminate. If any data has been changed, a wait window will be displayed and the user will remain within the READ.

1. USE the CUSTOMER database in the TUTORIAL subdirectory. Create a quick screen based on memory variables.

2. In the Setup code snippet, enter the following code:

         m.cancel = ""
         SCATTER MEMVAR
   

3. Add a terminating push button with the prompt "Cancel". Enter M.CANCEL

1. In the READ VALID snippet, enter the following code:

         IF READKEY(0) = 3     && Execute only if terminating button chosen
            IF readkey() > 255
               WAIT WINDOW "Can't cancel ... Data has changed"
               RETURN .F.      && Don't allow READ to terminate
            ELSE
               RETURN .t.      && Terminate READ
            ENDIF
         ENDIF
   
   

2. Generate and run the screen program.

The code to test for the value of READKEY() must be located in the READ VALID snippet or in the Cleanup code, not in the VALID snippet of the push button. The value of READKEY() will not change until after the VALID snippet of the push button has been executed.

REFERENCES

For additional information about how to test if data on disk has been changed by another user, please see the following article in the Microsoft Knowledge Base:

   ARTICLE-ID: Q97638
   TITLE     : How to Check for Changes Made in a Database Record