That sounds perfect!
I will try it asap.
Mike

On Aug 8, 2010, at 11:06 PM, "Javier Valencia" <[email protected]> 
wrote:

Mike,

There are several ways of doing what you want but the quickest would be:
On your "EXIT" button use the code:

SET VAR vGoToRPrompt TEXT = 'N'
CLOSEWINDOW
RETURN

On your "R> Prompt" Button use the code"

SET VAR vGoToRPrompt TEXT = 'Y
CLOSEWINDOW
RETURN

Modify the r.dat file that R:azzak suggested to:

-- RBASE.DAT
G:
CD G:\RBDATA
CONNECT dbname
CLS
EDIT USING formname
IF vGoToRPrompt = 'N' THEN
   DISCONNECT
   EXIT
ENDIF
CLEAR VAR vGoToRPrompt
RETURN

That should do it...

Javier,

Javier Valencia, PE
913-829-0888 Office
913-915-3137 Cell
913-649-2904 Fax
[email protected]

________________________________________
From: [email protected] [mailto:[email protected]] On Behalf Of Michael J.
Sinclair
Sent: Sunday, August 08, 2010 9:40 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: sw: RBG76.EXE - Application Error

That worked!
Now what would be the best code to put in an EEP if I want to go to the
database editor/R>?
Basically, I want 2 buttons...one to exit, and another to go the R> or to
the Database editor screen.
 
Mike

________________________________________
From: A. Razzak Memon <[email protected]>
To: RBASE-L Mailing List <[email protected]>
Sent: Sun, August 8, 2010 10:17:55 PM
Subject: [RBASE-L] - Re: sw: RBG76.EXE - Application Error

At 09:47 PM 8/8/2010, Michael J. Sinclair wrote:

I use the Rbase.dat file to run the application

G:
CD G:\RBDATA
CONNECT dbname
EDIT USING formname

The form seems to run just fine until I want to exit.

When I click on the Enhanced Speed Button (the name on the
Button is EXIT), the code that runs is...

CLOSEWINDOW
DISCONNECT
EXIT
RETURN

If I get rid of the word EXIT, the error goes away, but
then the program does not exit, it goes to the database
desinger/R> screen.


Mike,

Without knowing all other details, I suggest the following:

Update the RBASE.DAT file as follows:

-- RBASE.DAT
G:
CD G:\RBDATA
CONNECT dbname
CLS
EDIT USING formname
IF (CVAL('NetUser')) <> 'MSinclair' THEN
    DISCONNECT
    EXIT
ENDIF
RETURN

-- Edit Custom EEP
CLOSEWINDOW
RETURN

Note: Using the EXIT command in a Variable/TableView based
is not a good idea. EXIT command should not be used from
within an active window, such as form.

Hope that helps!

Very Best R:egards,

Razzak.


Reply via email to