Finde brugte nr.

Er det ikke bare at loope gennem alle poster i din DB, og sammenligne med det nummer den foreslår? Er det allerede brugt, så loop igen fra første nummer, og stop første gang nummeret springer med mere end een.

En anden ting - hvis det nummer nu var en unik nøgle i din database, ville det jo være smart :o)

Hej.

I et gammelt VB3-projekt har jeg lavet sådan en.  Se idéen og se bort fra mine variabel-navne.

Her anvendes en kombination af liste og array, men det kan ligeså gost ske ved direkte læsning i en db.

'procedure for genanvendelse af ledigblevne numre - afstillet 30-01-2001
'-----------------------------------------------------------------------------
  For X = 1 To varer.ListCount - 1
    If Val(Left$(samtlige(X), 3)) > X + 1 Then Exit For
  Next
  If X < varer.ListCount - 2 Then varer.ListIndex = X Else varer.ListIndex = X - 1
  '-----------------------------------------------------------------------------

  'procedure for næste ledige én over det højeste.
  '---------------------------------------------------------------
  ln1 = 0
  For X = 1 To varer.ListCount - 1
    If Val(Left$(samtlige(X), 3)) > ln1 Then ln1 = Val(Left$(samtlige(X), 3))
  Next
  '-----------------------------------------------------------------------------

M.v.h.  Jørn

--> martin jo det har jeg prøvet men ???
listen.
1
2
3
123
så siger den 3 er det højeste.
men da jeg gik i skole var det "123" der var det højeste men det kan jo godt være lavet om *lol**GG*
koden:
rs.MoveFirst
    i = 0
    Do Until rs.EOF
    If rs("nr") > i Then
    i = rs("nr")
    End If
    rs.MoveNext
    MsgBox i
    Loop

---> joern Øhh jeg fatter "klejne" af det.

jobb

det er fordi den opfatter det som tekst, at 3 er højere end 123. Brug funktionen Val()
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctvalx.asp

mener du
koden:
rs.MoveFirst
    i = 0
    Do Until rs.EOF
    If val(rs("nr")) > i Then
    i = val(rs("nr"))
    End If
    rs.MoveNext
    MsgBox i
    Loop
???????

Hvad tror du selv ;o)

Hej.

Ok, i mit eksempel indeholder et array nogle strenge, der altid (i filen de læses fra) står i nummerorden.  Nummeret står først og det er altid på 3 tegn, altså højst 999.  Numre under 100 angives '077' og under 10 angives '004'.

Når jeg så læser fra 0 til Ubound array'et - i eksemplet sidste post i en liste, men de er ens - så vokser tælleren i For / Next løkken jo med 1 ad gangen.  Dette tal sammenlignes med Val() af venstre del af strengen i array'et.  Hvis tallet i array'et er større (end X - tælleren) har der altså været et ledigt nummer og derfor 'Exit For'.

Men der kan let laves andre løsninger, og det vil være påkrævet hvis din database ikke er i nummerorden.

M.v.h.  Jørn

Jeg har fået det til at virke men jeg vil gerne give jer begge point.
da i begge har været en utrolig stor hjælp for mig "det er det man kalder eksperter :)".
håber i begge bliver tilfres.
koden : --> til andre der mangler den er.
rs.MoveFirst
    i = 0
    Do Until rs.EOF
    If Val(rs("nr")) > i Then
    i = Val(rs("nr"))
    End If
    rs.MoveNext
    Loop
    MsgBox i

Lukker.

PS: der er plads til et par optimeringer af din kode:

Du gemmer jo kun den SIDSTE værdi af "i" (inde i din if-sætning), og kører du loopet igennem fra den anden ende, vil det blive den FØRSTE værdi af i du skal gemme. Altså hvis du bruger movelast i stedet for movefirst og movePrevious i stedet for movenext. Herefter kan du exit dit loop inde i if-løkken lige efter du har givet "i" en værdi, og spare en MASSE gennemløb af dit recordset og dermed gøre programmet mere effektivt (hvis der nu f.eks. er 1000-vis af pladser i din record)

??? vil du være sød og vise det i kode.

Kør loopen igennem fra sidste record mod første i stedet for som nu, hvor du kører fra første record mod sidste. Drop ud af loopet når du tildeler "i" en værdi første gang...

Hej.

Tak for point, fint du fik en god løsning.  m.v.h. Jørn