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.
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