oMeta = CREATEOBJECT('DBCXMgr', .F. , THIS.cdefaultdirectory , .T. ) IF VARTYPE( oMeta ) <> 'O' OR ISNULL(oMeta) =ErrorMsg("Classe ometa non instantiée !" ) * display an error message and exit, because DBCX cannot be used RETURN .F. ELSE oError = CREATEOBJECT('ErrorObject') ON ERROR oError.ErrorHandler( ERROR(), MESSAGE(), LINENO()) *-- !!! Ici une erreur 114 n'est pas gérée ! WHY ? OPEN DATABASE ( THIS.cdefaultdatabase + '.dbc' ) oMeta.SetDatabase( DBC() ) oMeta.oSDTMgr.lQuiet = .F. lnretval = oMeta.oSDTMgr.OpenAllTables( .F. , .F. , .F. ) ON ERROR *-- Pour restituer l'environment qui aurait été modifié ds oMeta THIS.oEnvironment.SET()J'use also testerr.prg in my project.