How do I auto create increamental REF number in VB.NET

Question

0.00/5 (No votes)

See more:

I designed a booking program in VB.net and MS Access as database. I need a booking reference number to be automatic increase each time there's booking and must start from 100. With the code I tried it does increase when I run the program.The problem it always start from 100 anytime I run the program. See code I used

What I have tried:

Option Strict On
Option Explicit On

Public Class Form1
    Dim i As Integer = 100
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        REFNOTextBox.Text = CStr(i)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        i = i + 1
         REFNOTextBox.Text = CStr(i)
    End Sub
End Class

Posted 8-May-20 0:59am

NyikoB

Updated 8-May-20 2:49am

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

MadMyche · Accepted Answer · 2020-05-08T02:50:00

MS Access has an AutoNumber data type which would take care of this for you. You can set the initial value as well as its increment amount.
If down the road you need to scale up into a larger db like Sql Server; there is an Identity specification you can place on a numeric field with the same basic setup

References:
Add an AutoNumber field as a primary key - Access[^]
IDENTITY (Property) (Transact-SQL) - SQL Server | Microsoft Docs[^]

Daniele Goffi · Accepted Answer · 2020-05-08T01:07:00

Solution 1

You have to write the counter in some place, then read it back when you run the program.
Use the database maybe?

Posted 8-May-20 1:07am

Daniele Goffi

Comments

NyikoB 8-May-20 7:36am

I'm little bit lost. What actually mean when you say I have to write the counter? or use database?

Richard MacCutchan 8-May-20 8:59am

That is not the correct way. See MadMyche's solution.

MadMyche 8-May-20 11:01am

Thanks for the pitch!

Daniele Goffi · Accepted Answer · 2020-05-08T02:18:00

Assume that you use a table in the database for keeping track of the index.
Follow these steps :
- On opening, check if there is an index record on the database
- If a record is found, set the "i" variable to the record value and add 1
- If there is no record, set the "i" variable to 1
- On each button click increase the "i" variable and store it's value to the record in the database.

(I assume that you know ho to read and write from access database)

How do I auto create increamental REF number in VB.NET

3 solutions

Solution 3

Solution 1

Solution 2

Add your solution here

Preview 0