nummeren VBA Code

[allard1977]

Hallo,

Ik heb een vba code. waar ik nummers aan deelnemers geef. dit gaat goed maar begint altijd bij 1 ik zou graag vanaf een ander nummer willen beginnen. kan je deze code aanpasssen of moet je iets anders gebruiken.

Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim l As Integer
Dim n As Integer



    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("qryT007_HondenummerstekennenMT")

    While Not oRst.EOF
      
     l = l + 1
      oRst.Edit
      
                        
    oRst.Fields("hondnr").value = l
     
      oRst.Update
      oRst.MoveNext
    Wend

    oRst.Close
    oDb.Close
    Set oRst = Nothing
    Set oDb = Nothing

 

[edmoor]

Niet zo simpel als dit? Je wilt bijvoorbeeld bij 100 beginnen:

l = 100
While Not oRst.EOF
    oRst.Edit
    oRst.Fields("hondnr").value = l  
    l = l + 1
    oRst.Update
    oRst.MoveNext
Wend

 

[allard1977]

Top edmoor,

Had al veel varianten gemaakt maar l = l +1
achter aanzetten nog niet. werkt perfect

groet