> * Check for cursors
> FOR i = 1 TO m.nTotMem
> IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "CURSOR"
> WITH EVAL("."+aMems[m.i])
> STORE .Database TO cDB
> cDB = SUBSTR(cDB,RAT('\',cDB)+1)
> .Database = SUBSTR(FULLPATH(cDB),1,RAT('\',FULLPATH(cDB)))+cDB
> ENDWITH
> ENDIF
> ENDFOR
> .OpenTables()
> ENDIF
> ENDWITH
>ENDIF
>RELEASE oEnviron


Hi,

Sorry it has taken me such al long time to reply.
I had some urgent busines to take care off.

Next i am loking to your tip, will surely try it.

Thanks already, will give you a sign.


Regards, Marc