Autonumbering

[riyaza]

Below code is in my DB file.
If I enter a card no in first record, for Others card no will be automatically comming.

but for the other "Test " I want to show the record no automatically.
I was coded below. but it's not working.
Pls help me.
Thank you.

Dim card As Long
Dim aNumber As Long
 
Private Sub CardNo_AfterUpdate()
    card = card + 1
End Sub

Private Sub CardNo_BeforeUpdate(Cancel As Integer)
    card = CardNo.Text    
End Sub

Private Sub CardNo_GotFocus()
    If CardNo.Text = "" Then
        CardNo.Text = card
    End If
End Sub

Private Sub test_AfterUpdate()
    aNumber = aNumber + 1
End Sub

Private Sub test_BeforeUpdate(Cancel As Integer)
    aNumber = test.Text
End Sub

Private Sub test_GotFocus()
    If test.Text = "" Then
        aNumber = 1
        test.Text = aNumber
    End If
End Sub

[sknake]

Usually the database supports incremental numbering natively. What database are you using?

[riyaza]

I'm using MS Access

[sknake]

Why don't you use autonumbering built in to access?
http://www.databasedev.co.uk/reset_autonumber.html
http://www.google.com/search?hl=en&safe=off&ei=n1izSs4mk5K2B7jlraIO&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=Microsoft+access+autonumber&spell=1

[Drlionheart]

Every Data base can support auto numbering .......

can I know that for which database you connect to the system........