Mark,
Similar code is what we're adding. But it OUGHT to work!!!
Thanks,
Barbara
>Barbara,
>
>Have you tried cheating?
>
>
>lRet = seek(cSeek, 'MyTable', 'MyTag')
>
>If !IsNull(IRet) and type('lRet') = 'L' and lRet
> End Transaction
>else
> Rollback
>endif
>
>
>MInd you, that might not work either!!!!