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

[A. Razzak Memon]

At 01:44 PM 2/12/2016, Hodges, Dennis wrote:

Razzak,
I got distracted for a while, but I'm back to it.  How do you define 
a table "on Row Entry" EEP?


Dennis,

Here's how:

While in Form Designer ...

01. Main Menu | Tables | Add or Remove Tables | Main Table > Table 
Settings ...

    [Entry/Exit Procedure]

    On Row Entry
    Edit Custom EEP ...

02. Copy and paste the following code as "On Row Entry EEP"

   -- On Row Entry EEP
   GETPROPERTY TABLE 'tablename->RECORDCOUNT' vRecordCount
   GETPROPERTY TABLE 'tablename->RECNO' vRecNo
   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
   CLEAR VARIABLES vRecordCount,vRecNo
   RETURN

Note:

01. Replace the word tablename with the actual table name
02. Repeat the same technique for "Slave" table(s), if any.

Feel free to reach out to me with any questions.

Very Best R:egards,

Razzak



-----Original Message-----
From: rbase-l@rbase.com [mailto:rbase-l@rbase.com] On Behalf Of A. 
Razzak Memon
Sent: Wednesday, February 10, 2016 11:18 AM
To: Hodges, Dennis
Subject: [RBASE-L] - Re: Beep on last record

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