Skip to main content

generate auto ID number

This code will generate auto id number for the unique id. Public Sub id() Dim lastnumber As Long, newnumber As Long 'Check if there are records in the file With recordset If .BOF = True And .EOF = True Then lastnumber = (any number) Else .MoveLast lastnumber = !field in recordset End If 'Generate New Number newnumber = lastnumber + 1 Text1.Text = newnumber End With End Sub please comment if this post helps you.....

Comments

  1. Om RajeshMay 19, 2016 at 10:34 AM

    Thank you very much for the code.......It was very helpfully

    ReplyDelete
  2. UnknownAugust 22, 2016 at 10:07 AM

    where will i put those codes sir ? in general for Dim lastnumber As Long, newnumber As Long ?

    ReplyDelete
    Replies
    1. E-commerace&MarketingSeptember 4, 2017 at 2:52 AM

      please share vb6.0 & db file that generate auto ID number....I face error
      & I REALLY WANT AUTO NUMBER IN MY PROJECT

      please help

      Delete
  3. UnknownAugust 22, 2016 at 10:08 AM

    or create a sub procedure ? for what

    ReplyDelete
  4. RazeOctober 11, 2016 at 7:49 AM

    Works Well... ^_^

    ReplyDelete
    Replies
    1. E-commerace&MarketingSeptember 4, 2017 at 2:51 AM

      please share vb6.0 & db file that generate auto ID number....I face error
      & I REALLY WANT AUTO NUMBER IN MY PROJECT
      where to put this code ..kindly help me

      Delete
  5. E-commerace&MarketingSeptember 4, 2017 at 2:48 AM

    please share vb6.0 & db file that generate auto ID number....I face error
    & I REALLY WANT AUTO NUMBER IN MY PROJECT

    ReplyDelete
  6. E-commerace&MarketingSeptember 4, 2017 at 2:49 AM

    Any one can help where to put this code

    ReplyDelete

Post a Comment