>Code is VERY lengthy, but here are the pieces involving the problem.
>
>LPARAMETERS tcDatabase,tcTable
>*-- Note:
>*-- tcDatabase = "AS-400DispensingData"
>*-- tcTable = "Non_Formulary_Data" as passed in
>
>*-- several LOCAL variable declarations
>
>lcTable=LOWER(IIF(EMPTY(tcTable),ALIAS(),ALLTRIM(tcTable)))
>
>lcDBF=lcTable
>lcAlias=LOWER(SYS(2015))
>IF !EMPTY(tcDatabase) AND FILE(tcDatabase)
> OPEN DATABASE (tcDatabase)
>ENDIF FILE(tcDatabase)
>IF FILE(lcDBF)
> SELECT 0
> USE (lcDBF) ALIAS (lcAlias) AGAIN SHARED
>ENDIF
>
>Error is "Alias Non_Formulary_Data not found"; however, I had already opened and closed it earlier in the same routine.
Brett,
Thanks. I can't see anything in this code that would cause the 'Alias ... not found error'. Even if the parameters were incorrect or empty expected error message is not that.
This makes me to think if this would error too (from command window):
close all
set defa to APathWhereNoDataFileExist
set path to
use 'HardcodedFullpathOfErroringDBF'
What I think is there might be code in properties or indexes with referencing aliases. ie: Though VFP doesn't recommend it lets you reference other tables in an index key. Would put up the error but continue to open.
Cetin