FoxAudit Error Information A problem has occurred that FoxAudit was unable handle. The following information was available at the time of the problem. Error: 1569 Message: Database h:\testing\budget2004\dbbudget.dbc: File access denied. Method: openlogtables Line #: 76 Code: Do h:\testing\budget2004\budget.exe Retry CancelHere is what my main.prg looks like. My main.prg is also running stonefield utility.
*main.prg CLEAR ALL CLEAR RELEASE ALL LOCAL lcDefDrivePath lcDefDrivePath = SYS(5)+SYS(2003) SET DEFAULT TO (lcDefDrivePath) _screen.Caption = 'Budget 2003 - 2004' private oMeta oMeta = newobject('DBCXMgr', 'DBCXMGR.VCX', '', .F., justpath(dbc())) if type('oMeta') <> 'O' or isnull(oMeta) MESSAGEBOX('display an error message and exit, because DBCX cannot be used',1,'Warning from main.prg') endif type('oMeta') <> 'O' ... oMeta.SetDatabase(dbc()) oMeta.oSDTMgr.lQuiet = .T. if oMeta.oSDTMgr.NeedUpdate() oMeta.oSDTMgr.Update() endif oMeta.oSDTMgr.NeedUpdate() on shutdown do myshutdown _screen.windowstate=2 _screen.closable=.f. * Adjust the path to point to the FoxAudit 6.0 Class Library (FoxAudit.VCX) LOCAL lcFoxAuditLoc, lcLogLoc lcFoxAuditLoc = 'C:\FOXAUDIT6\' lcLogLoc = 'H:\TESTING\BUDGET2004\DBBUDGET_LOG.DBF' SET CLASSLIB TO (lcFoxAuditLoc+'FOXAUDIT.VCX') ADDITIVE PUBLIC oFoxAudit_DBBUDGET oFoxAudit_DBBUDGET = CREATEOBJECT('FoxAudit',lcLogLoc) * Make sure the FoxAudit 6.0 Object was created properly IF TYPE('oFoxAudit_DBBUDGET') == 'O' AND NOT ISNULL('oFoxAudit_DBBUDGET') oFoxAudit_DBBUDGET.cUserID = SYS(0) ENDIF do form frmbudget read event on shutdownhere is myshutdown
&& myshutdown.prg clos all clea all clear events quitAny help appreciated