Ok, I'll try that. I didn't realize you could do a seek like that.

Thanks,

-Michelle


>So Michel,
>To prevent it I suggest open keylist on entry and keep it open. Never select it but do a seek+replace.

>proc getkey
>parameter lcKeyName
>
>local lnKeyNum
>
>*use KeyList in 0   && Already opened and has a tag for keyname as ie: keyindex
>
>if seek(alltrim(lcKeyName),"keylist","keyindex")
>   replace KeyList.KeyNum with KeyList.KeyNum + 1
>   lnKeyNum = KeyList.KeyNum
>else
>   lnKeyNum = 0
>endif
>
>return lnKeyNum

Cetin