How To Have MS Access Increment A Number Without An Autonumber VBA

So I had an interesting question come my way today via the chatbox on this website.

Basically it was to increment a value in a label based on the button that was clicked. Here is what part of the form looked like:

The data was saved and read from this table:

So if the green “+10” button was clicked, 10 got added to the value of the table and was displayed in the form’s label.

The similar functionality happened when you clicked on the orange, blue, and purple buttons.

Here is the code used when you click the corresponding buttons (you can add or subtract from lngCounter to fit the button)

Private Sub btnG_01_Click()
    Dim lngCounter As Long
    Dim strUpdateSQL As String
    
    'get the counter from the table
    lngCounter = DLookup("[Scores]", "tblLogger", "ID=1")

    lngCounter = lngCounter + 10
    
    'update the table with the incremented count
    strUpdateSQL = "UPDATE tblLogger SET Scores =" & lngCounter & " WHERE ID=1"
    
    CurrentDb.Execute strUpdateSQL
    
    'update the label caption
    Me.lblCounter_LG.Caption = lngCounter
End Sub

What the code does is lookup the value in the table and assigns it to a variable, lngCounter, then the quantity of the button clicked on it totaled with it, and then the new value gets updated in the table.

To make sure only one row gets updated, we use the “WHERE ID=x”.

Then the new value gets reflected in the caption property of the label on the form.

Thanks for a fun question.




By the way, if you got or are getting value from the VBA information, please give me a tip, thanks!


These posts may help answer your question too...

How To Escape Apostrophe In SQL Update Query

If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]

How To Make An Access Form Time Picker

Here is a relatively easy way to select times for your time entry text boxes. It’s a reusable form that allows you to pick a time from an Access form. There are probably different ways to do this but here is the way I would do it. On the form that has the time fields, […]

How To Parse A Flat File In Excel VBA

In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]

How to pick a file to load In VBA

Picking a file to load in your Microsoft App is a very important skill to know. In this blog post you will see how to do it. First you need to set a reference to the MS office object library From VBE editor –> select Tools > MS office object library (click check mark) Sub […]

Previous Post

MS Access Form Calculation On Checked Items

Next Post

How To Use 2 Access Checkboxes Update 1 Field