hi,
thank you for your code,
i need to filter or take every group alon table,
or if i can insert the group number via thisform.text2.value.

USE moh11&& myfield name is group,i habe group 1,2,3,4,5....
total = ALLTRIM(thisform.text1.text)
RAND(-1)
INDEX ON RAND() TO SYS(2023)+'\RANDOM'
COPY TO moh111 NEXT &total
SET INDEX TO
ERASE SYS(2023)+'\RANDOM'

thanks.
m.qasem
>you have not copied this line correctly
>

>COPY TO moh111 NEXT &total
>

>
>>hi,
>>thank you for reply,
>>i try to run the code as under but i get all records from moh22 to moh111
>>as copy file to another file.
>>mytable have ex ..55220 record, i want to replace at moh111 ex...778 ...records randomly.
>>

>>USE moh11
>>total = ALLTRIM(thisform.text1.text)
>>RAND(-1)
>>INDEX ON RAND() TO SYS(2023)+'\RANDOM'
>>COPY TO moh111 NEXT total
>>SET INDEX TO
>>ERASE SYS(2023)+'\RANDOM'
>>

>>thanks.
>>m.qasem
>>
>>>>hi all,
>>>>i want to insert to mynewtable total of records randomly
>>>>as
>>>>thisform.text1.value=778
>>>>my code under copy this records but not randomly
>>>>any idea.
>>>>

>>>>USE moh11
>>>>COPY TO newmoh111 NEXT  (thisform.text1.value)
>>>>

>>>>thanks.
>>>>m.qasem
>>>
>>>

>>>USE moh11
>>>total = ALLTRIM(thisform.text1.text)
>>>RAND(-1)
>>>INDEX ON RAND() TO SYS(2023)+'\RANDOM'
>>>COPY TO \SELECTION NEXT &total
>>>SET INDEX TO
>>>ERASE SYS(2023)+'\RANDOM'
>>>