Membuat Multiple Timer Pada Microsoft Access

Niguru.com | Senin, 29 Apr 2019 | Salah satu perbedaan antara VB (Visual Basic) dan MS (Microsoft) Access, adalah pada fasilitas komponen Timer.

VB memiliki fasilitas yang membuat programmer dapat membuat banyak Timer dalam sebuah form. MS Access hanya memiliki sebuah Timer pada sebuah form.

Berikut ini contoh instruksi Timer pada VB:


Private Sub Timer1() 'interval 10 detik
 [NamaSubProgram1]
End Sub
                       
Private Sub Timer2() 'interval 3 detik
 [NamaSubProgram2]
End Sub
                       
Private Sub Timer3() 'interval 19 detik
 [NamaSubProgram3]
End Sub
'--------------------------------------------------------------------------                     

Karena MS Access hanya memiliki sebuah Timer, maka programmer harus menggunakan counter untuk menduplikasi fungsi Timer, menjadi sebagai berikut:

 Dim CounterTimer1 As Integer 

 Dim CounterTimer2 As Integer

 Dim CounterTimer3 As Integer

Private Sub Form_Load()
 Form.TimerInterval = 1000 '1 detik
End Sub

Private Sub Form_Timer()
 CounterTimer1 = CounterTimer1 + 1

 CounterTimer2 = CounterTimer1 + 1

 CounterTimer3 = CounterTimer1 + 1

 If CounterTimer1 = 10 Then 'counter 10 detik
 [NamaSubProgram1]
 CounterTimer1 = 0 
 End If

 If CounterTimer2 = 3 Then 'counter 3 detik
 [NamaSubProgram1]
 CounterTimer2 = 0 
 End If

 If CounterTimer3 = 19 Then 'counter 19 detik
 [NamaSubProgram1]
 CounterTimer3 = 0 
 End If
End Sub

Jadi dengan menggunakan counter, maka programmer dapat memanfaatkan counter tersebut sebagai pengganti timer. Dan mirip seperti pada VB, disini programmer juga bebas membuat banyak counter sekaligus dalam sebuah form.

Demikianlah cara untuk membuat multiple timer pada MS Access. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)