Get the number of the chosen entry in a Dynamic Choise field

Fred 

Yes, that  is what i want, one Next and one Previous button.

The list can be long, as pr. now close to 100 in some occations, so Radio button take up to much space.

This all works fine, it just would be handy with Next/Previous buttons.

Below is the dynamic value formula, with some Nowegian naming I'm afraid  

This DC named "Velg_Beboer" (Chooce resident)  is based on two previous DC fields, that filter first on County, and then Farmname.

So "Velg_Beboer" show all the Persons that lived/lives on the selectet farmname.

the if/else in the code is based on a normal Choice field that allow to filer on Firstname, Lastname and Year.

The list can be long, if i have many records of persons in a Farm. And as it is dynamic it will grow as i add more records.

do as server
    let grd := text(Gard);
    let gn := text(GV_F);
    if Beboer_Sortering = 1 then
        (select Pers_Bydebok where Stedsnavn.Stedsnavn = grd and Stedsnavn.'Gnr.2021' = gn) order by Beboernr
    else
        if Beboer_Sortering = 2 then
            (select Pers_Bydebok where Stedsnavn.Stedsnavn = grd and Stedsnavn.'Gnr.2021' = gn) order by Person.Fornavn + Person.Farsnavn
        else
            if Beboer_Sortering = 3 then
                (select Pers_Bydebok where Stedsnavn.Stedsnavn = grd and Stedsnavn.'Gnr.2021' = gn) order by Person.Etternavn
            else
                if Beboer_Sortering = 4 then
                    (select Pers_Bydebok where Stedsnavn.Stedsnavn = grd and Stedsnavn.'Gnr.2021' = gn) order by year(Fra)
                else
                    if Beboer_Sortering = null then
                        (select Pers_Bydebok where Stedsnavn.Stedsnavn = grd and Stedsnavn.'Gnr.2021' = gn) order by Beboernr
                    end
                end
            end
        end
    end
end

RoSoft_Steven 

Hurray, this works well, thanks.

First I was using FX fields with the code in On click. Then only the "Previous" worked, not "Next" for some reasons. Then i switched to real Buttons, and both is working fine now.

The code in my Previos button is:

let rec := record(Pers_Bydebok,number(Velg_Beboer));
let c := index((select Pers_Bydebok) order by Bostednr, rec);
if c != 0 then
    Velg_Beboer := item((select Pers_Bydebok) order by Bostednr, c - 1)

end

And Next Button:

let rec := record(Pers_Bydebok,number(Velg_Beboer));
let c := index((select Pers_Bydebok) order by Bostednr, rec);
let t := cnt((select Pers_Bydebok) order by Bostednr) - 1;
if t > c then
    Velg_Beboer := item((select Pers_Bydebok) order by Bostednr, c + 1)
end

Fred 

Thank you. When I try your switch command code (copy/paste from your code) i get an error message at line 5 (case 1:)

symbol expected do, symbol excpected end and end excpected case at line 5.

I have not explored the switch option much, so I may miss something.

Regarding the 100 records limit in DC, I myself have DC fields that show thousands of records. Not practical always, but when i select (emty) on top I can easily search. See Image below, where I am only at the middle of the 6000 + Persons Lastname. (the scrollbar is ca. at the middle)

Regarding the code from RoSoft_Steven , I was a bit quick to say it works well as I first implemented it. It works partly sometimes, but i am working on making the buttons work always.

I have allmost figuered it out, my problem was probably the order by staement i used.

The Previous button right now is like this, order by Stedsnavn.BygdebokLink.number(Beboernr) :

This refere to the selected Stedsnavn (Farm name), witch have a link to Pers_Bygdebok table, and filter on the  'Beboernumber' field witch is 001, 002, 003 etc.

let rec := record(Pers_Bydebok,number(Velg_Beboer));
let c := index((select Pers_Bydebok) order by Stedsnavn.BygdebokLink.number(Beboernr), rec);
if c != 0 then
    Velg_Beboer := item((select Pers_Bydebok) order by Stedsnavn.BygdebokLink.number(Beboernr), c - 1)
end