[RBASE-L] - Re: Beep on last record

[A. Razzak Memon]

At 10:39 AM 2/10/2016, Hodges, Dennis wrote:

I have a form that allows the user to scroll 4 related tables.  A 
change request
wants a system beep when they have scrolled to the last record. Any 
ideas on how
I accomplish this?

Dennis,

There are many different ways to accomplish the task at hand.

Here's how ...

01. Define a Table "On Row Entry" EEP

02. Get the Record Count

    GETPROPERTY TABLE 'tablename->RECORDCOUNT' vRecordCount

03. Get the currently selected Record Number

    GETPROPERTY TABLE 'tablename->RECNO' vRecNo

04. Compare the Record Count vs. Currently Selected Record

    IF vRecordCount = .vRecNo THEN
       BEEP
       PAUSE 2 USING 'You have reached the end of record!' +
       CAPTION 'End of Record' ICON INFO +
       BUTTON 'Press any key to continue ...' +
       OPTION BACK_COLOR WHITE +
       |MESSAGE_FONT_NAME Tahoma +
       |MESSAGE_FONT_COLOR NAVY +
       |MESSAGE_FONT_SIZE 11
     ENDIF
     RETURN

That's all there is to it!

Very Best R:egards,

Razzak