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.
How to Delete Blank Rows in Excel Using VBA (Step-by-Step Guide)
How to Delete Blank Rows in Excel Using VBA (Step-by-Step Guide) When you work with large datasets in Excel, it’s common to end up with thousands of blank rows scattered throughout your worksheet. Maybe your data came from a mainframe export, a CSV download, or a legacy system that doesn’t format properly. Deleting all those […]
How to Copy Data from One Worksheet to Another Using VBA in Excel
Learn how to copy data between worksheets in Excel using VBA step-by-step! This quick tutorial shows how to automate data movement, save time, and boost productivity. Watch: How to Copy Data from One Worksheet to Another Using VBA Why Automate Copying Data Between Worksheets? Copying and pasting data manually can take up valuable time and […]
Learn Access VBA: Understand Tables, Queries, Forms, and Reports
Learn Access VBA: From Zero to Database Hero If you’ve ever opened Microsoft Access and wondered how all the pieces fit together — tables, queries, forms, and reports — this tutorial is made for you. In just a few minutes, you’ll understand how Access works behind the scenes and see how VBA (Visual Basic for […]
How to Fix Run Time Error 1004 in Excel
If you work with Microsoft Excel frequently, chances ar ling for a solution. Fortunately, this error is well-documented, and there are several ways to resolve it. In this article, we’ll explore the causes of run time error 1004, practical steps to fix it, and preventive measures to reduce the chances of it happening again. What […]
Support these sponsors: