HI,

I'm pulling up a number of records each with a unique number by going into find mode, then selecting new request, then entering another number, then slectting new request, etc. . . Is it possible to sort by the order in which I performed the find? The field I'm using is a number field

Thanks,

Danny

My first thought was to put the numbers into records in a related file, define a value list from the main file using the related file, and do a custom sort based upon the value list. Neat idea, doesn't work.

For plan B, you could create records in a related file, related by the field you are entering into in the find requests. Create a new related record each time you create a find request. In the related file have a second field with an auto enter serial number incremented by one. When you a done with the find, sort on the related serial number field.

Hope this make some sense (as I read it over, I'm not sure ).

-bd

...here's a plan C. It may not be too elegantbut it avoids the need for a related file and has just as much clicking as creating new find requests.

You need a global number field (Count) to generate numbers for your sort order, the unique number field you already have (Serial) and another number field (Sort). Then create this script:

Set Field [count, 1]

Enter Find Mode

Go to Field [serial]

Pause/Resume Script [ ]

Perform Find

Insert Calculated Result [sort, count][selectentire contents]

Loop

Here's plan C. It may not be too elegant but it avoids the need for a related file and lets you click in response to a message and add as many find requests as you want.

You need a global number field (Count) to generate numbers for your sort order, the unique number field you already have (Serial) and another number field (Sort). Then create this script:

Set Field [count, 1]

Enter Find Mode

Go to Field [serial]

Pause/Resume Script [ ]

Perform Find

Insert Calculated Result [sort, count][select entire contents]

Loop

Show Message [buttons:"Yes", "No", ""; Data:"Find another?"]

Exit Loop If [status(CurrentMessageChoice) = 2]

If [staus(CurrentMessageChoice) = 1]

Enter Find Mode

Go to Field [serial]

Pause/ResumeScript [ ]

Perform Find

Set Field [count, count+1]

Insert Calculated Result [sort, count]

End If

End Loop

Enter Find Mode

Insert Text [sort, >=1][select entire contents]

Perform Find

Sort[sort Order:sort (Ascending)]

[Restore sort order, No dialog]

Clear[sort]

[select entire contents]

Replace [sort, Replace data:Current contents]

[No dialog]

This should work.

Thanks a ton. I'm going to paly with it this weekend. I'll let you now if I have questions.

Thanks again,

Danny