PS: Destroy contains: CLEAR EVENTS
G. On Wed, Feb 20, 2008 at 5:37 PM, Garry Bettle <[EMAIL PROTECTED]> wrote: > On Wed, Feb 20, 2008 at 3:18 PM, "Dave Crozier" wrote: > > > > Garry, > > Definitely QueryUnload as this is ALLWAYS called however you unload the > > form. > > > > Dave Crozier > > Hi Dave, > > Thanks to you and everyone else for the replies. > > I've moved my output code from a timer into a separate form method > called CloseDown: > > WITH thisform > ldtCurrent = DATETIME() > lcStatus = .txtEventStatus.Value > replace ALL curLPMs.Notes WITH lcStatus > INSERT INTO LPMHistory SELECT *, lcStatus, ldtCurrent FROM curLPMs > IF !EMPTY( .lblRaceDetails.Caption) > .XLSOutput( FORCEEXT( .lblRaceDetails.Caption + [ - > LPMHistory], [xls])) > ENDIF > ENDWITH > > thisform.XLSOutput is simply: > > LPARAMETERS tcFilename > > SET TALK OFF > > SELECT * FROM LPMHistory INTO CURSOR curXLSOutput READWRITE > CALCULATE MAX( LEN( TRIM( curXLSOutput.LPMs))) TO lnLPMLen > IF lnLPMLen = 0 > lnLPMLen = 10 > ENDIF > ALTER TABLE curXLSOutput ALTER COLUMN LPMs c( MIN( 254, lnLPMLen)) > > SET SAFETY OFF > COPY TO ( tcFilename) FIELDS EXCEPT NewLPM TYPE XLS > SET SAFETY ON > > USE IN curXLSOutput > > > In the forms QueryUnLoad method, I have only: thisform.CloseDown > > This works fine for when the user clicks the X in the top-right corner > of the form - the XLS file is created. > > However, if the market is closed - the code that handles this is in a > timer - it doesn't work: > > WITH thisform > IF UPPER( ALLTRIM( .txtMarketStatus.Value)) != [CLOSED] > .cmdGetMarket.Click > This.Reset > ELSE > .cmdPauseResume.Click > > SELECT curLPMs > > .Destroy > ENDIF > ENDWITH > > I get Error 52 "No table is open in the current work area." in > thisform.CloseDown, Line #4 and Error 1 (!) "File 'curlpms.dbf' does > not exist." in thisform.CloseDown, Line #5. > > ? > > Cheers, > > Garry > _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
