Autonummer til liste

Du skal bare sætte feltet til autonummerering.

>> googolplex
Hvor kan man sætte autonummerering til i en SQL forespørgsel.
Vh Henrik13

Hvis du bruger Access går jeg ud fra at du opretter Tabellerne der ? Hvis det er tilfældet, så kan du sætte Autonummerering samtidig ?

Du får svært ved at lave numrene i en Formular.
Faktisk skal der laves et nyt sæt numre efter hver opdatering af tabellen.
Hvis det ikke er brugeren, der skal opdatere, men dig selv, er det let at lave.

Men det afhænger helt af hvor mange poster der er din tabel.

Jeg har ca. 1000 personer i DB, og jeg ved at det skal gøres via VBA, men jeg kan ikke få funkionen til at virke. Jeg har prøvet med en Function der sætter 1 til recorden med Nr=Nr+1, men det virker ikke efter hensigten, derfor er det jeg spørger i eksperten.

Jeg skal lige oplyse at jeg har 2 lister på samme form, hvilket betyder at Nr skal nulstilles for hver liste. Altså er det formindeligt ikke noget med en global Nr ???

meelby>I can see that there is NO sort order even though it is actually sorted after descending date. If you can accept soring by date then I think I have a solution!

Du kan opdatere dine kolonner med Nr i en skjult formular.
Sender eksempel senere.

I havent tested this
SELECT PersonID, Navn, CPR, (Select Count (*) from Person Where [CPR] > [P].[CPR])+1 AS SortOrder
FROM Person AS P WHERE HoldID=[Forms]![UnderFormTilHovedForm]![TempHoldID] ORDER BY CPR DESC;

Private Sub Form_Open(Cancel As Integer)
            Dim SidsteNr As Long
            Dim IndexNr As Long
           
            DoCmd.GoToRecord , , acLast
            SidsteNr = [ID]
            DoCmd.GoToRecord , , acFirst
            IndexNr = 0
           
            Do
                IndexNr = IndexNr + 1
                [NR] = IndexNr
                If [ID] = SidsteNr Then Exit Do
                DoCmd.GoToRecord , , acNext
            Loop
           
            DoCmd.Close
End Sub

Denne kode anbringes i en formular, som åbnes skjult - ellers kan det ses på skærmen. Den lukker sig selv

og formularen skal åbnes lige før du gemmer en ny post.

og den i forespørgslen for den skjulte formular skal navn eller hvad
du nu ønsker være sorteret som i KomboBoxen

Terry>> Det er næsten ok, men den viser altså ikke helt korrekt. Den starter med 2, springer 5 over, resten kommer fint:

2 Morten Anthon 290987
3 Patrick     280686
6 Ahmet Satan    270886
7 Glenn Bütow    261186
8 Mads Hornbæk    240786

Jeg vil gerne have den til at starte med 1 og skal sorterer efter Navn!

fynbohans>> Hvis jeg forstår din idé, vil du oprette en Nr-felt i tabellen, som bliver opdateret ved oprettelse eller ændringer med den skjulte form. Hvis det er tilfældet vil listen kun blive vist korrekt hvis jeg viser alle poster på én gang, hvilket jeg ikke gør!

Hvis du bruger de samme betingelser i forespørgslen, der ligger til
grund for den skjulte formular, som for listen, får du hvad du ønsker. Eller du kan bruge en IF/ENDIF i VBA-koden.

can you send me your dB so I can play around with it? eksperten@santhell.dk

Brug Terrys finte "Where [CPR] > [P].[CPR])+1", men brug den på et autonummereret felt, som du tilføjer tabellen, så er du sikker på, at feltet er unikt...Modificér, så den starter med 1.

SELECT P.PersonID, P.Navn, P.CPR, P.Billed, (Select Count (*) from Person P1 Where [P1].[Navn] < [P].[Navn] AND P1.HoldID = [Forms]![UnderFormTilHovedForm]![TempHoldID])+1 AS SortOrder
FROM Person AS P
WHERE (((P.HoldID)=[Forms]![UnderFormTilHovedForm]![TempHoldID]))
ORDER BY P.Navn;

It cant be used on an autonumber field because we are sorting on Navn, therefore Count(*) has to be on Navn!