In this video, you’ll find out how to create an MS Access timer.
Timers in MS Access are needed when you want to set a time limit on anwering questions or other tasks.
[sourcecode language=”vb”]
Dim m_intTimer As Integer
Private Sub btnTimer_Click()
Me.TimerInterval = 1000
m_intTimer = 10 ’10 seconds
Me.txtTime.SetFocus
Me.txtTime.Text = m_intTimer
Me.btnTimer.SetFocus
End Sub
Private Sub Form_Timer()
m_intTimer = m_intTimer – 1 ‘ count down
Me.txtTime.Value = m_intTimer ‘ show the time in a textbox
If m_intTimer = 0 Then
‘do your event.
TimerInterval = 0 ‘ Stop the timer
MsgBox "Time is up"
End If
End Sub
[/sourcecode]
You can download the database file, by clicking here.
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 […]
What is the purpose of the Me keyword in Access VBA?
What does the Me keyword mean? “Me” refers to the Access form currently in focus. Instead of writing out the entire form reference, you can just use the keyword “Me” which is easier. Like: Me.txtbox = “I am a textbox on the form that currently has the focus.” or you can update a label’s caption […]
How do I handle errors in Access VBA code?
I am going to give you the answer to “How do I handle errors in Access VBA code?” In my opinion there are 2 ways to handle errors: 1. Avoid the potential for an error to occur. 2. Handle the error in your code. Number 1 – If you have a control on your form […]