Karen and Dennis this is the code I am using now:
 
How would this work with your suggestions?
 
 

set var vlastkey0 = (lastkey(0))

 

if vlastkey0 = '[mousebutton1]' then

   recalc

   recalc var

   screen restore off

   edit using spidispy where custnub2 = .this_Custnub2

   screen restore on

   skip to drivname

endif

 

if vlastkey0 in ('[shift][tab]', '[up]') then

   skip -2

else

   skip 1

endif

 

return
 
 

________________________________

From: [email protected] [mailto:[email protected]] On Behalf Of Dennis
McGrath
Sent: Wednesday, November 25, 2009 10:09 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Saving Data in form to table



On you forms, instead of having a button call another form, the button
does something like ths:

 

SAVEROW

Set vBtnFlag = 'SecondForm'

CLOSEWINDOW

RETURN

 

the code that calls your form would look something like this

 

Label MainForm

EDIT USING FirstForm where .......
if vBtnFlag = 'SeconForm' then

   Run seconformcode

   Goto MainForm

Endif

If vBtnFlag = 'Quit' then

   Return

Endif

 

Dennis McGrath

 

________________________________

From: [email protected] [mailto:[email protected]] On Behalf Of
[email protected]
Sent: Wednesday, November 25, 2009 8:58 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Saving Data in form to table

 

Actually I was confused by your terminology...  What do you mean by
"popup"?  I think everyone here considers a "popup" as being a "popup
menu" that you define on the field where it just brings up a list of
values to choose from.

If you are calling the form from an eep (whether from a field or a
button), then you do something like this.  Haven't tested it...   

Your main program  (you need a flag to tell you whether to come back to
the first form)

LABEL formagain

SET VAR vFromSecond TEXT = NULL
EDIT USING FirstForm

IF vFromSecond = 'yes' THEN
  GOTO formagain
ENDIF

The eep code that calls up the second form
        
EDIT USING SecondForm
-- this code happens after you have exited the second form and want to
go back to the first form
SET VAR vFromSecond = 'yes'
CLOSEWINDOW    -- this closes the first form
RETURN





Ok,

Sounds good.

Now how do you exit the form when you use the popup instead of the form
being in the background.






 

Reply via email to