Randy,

I was recently told to never do a DO FORM from within a form without first releasing the current form using THISFORM.Release prior to the DO FORM and then the forms won't stack up in memory. I had a similar problem.

I was using all modal forms and had to change my .PRG that called the first form into play also. I ended up having to remove all references to EVENTS. So I dumped CLEAR EVENTS and READ EVENTS from my form and PRG that started the forms, in their place I did the following in my .PRG program-

USE c:\data\reference\DIALER IN 0 SHARE
SELECT DIALER
SET ORDER TO lastname

USE c:\data\reference\AGENCY IN 0 SHARE
USE c:\data\reference\HOSPITAL IN 0 SHARE
USE c:\data\reference\DIALRFRM IN 0 SHARE

SELECT DIALRFRM
SET ORDER TO entry_type

DO FORM c:\dialer\dialersrch
DO WHILE PROC <> "QUIT"
   IF proc="SEARCH"
      DO FORM c:\dialer\DIALERSRCH
     ELSE
 	  SEEKID=ALLT(dialer.entry_type)
	  SELECT dialrfrm
	  SEEK SEEKID
	  IF FOUND()
	     formname=ALLT(dialrfrm.form_name)
*!*	          save_entry_type=ALLT(dialer.entry_type)
		SET DEFAULT to c:\dialer
		 DO FORM (formname)
        ELSE
		 MESSAGEBOX("Entry Type "+ALLT(dialer.entry_type)+" not found in Dialer Forms database. "+ ;
		 "Contact supervisor.",0+64, "Master Dialer")
		 PROC="QUIT"
      ENDIF
   ENDIF
ENDDO
USE IN dialer
USE IN dialrfrm
USE IN hospital
USE IN agency
RETURN
<\pre>

Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site: www.stephenkramer.com
Would you believe Far Side Lite?
More than 270 original cartoons.