[belajar-access] Progress Bar

Dear Master Access,

Saya buat code program untuk progress bar  untuk form login saya :

Private Sub cmdProses_Click()
Dim i As Integer
Dim jml_data As Integer
jml_data = 10000
Me.ProgressBar1.max = jml_data
For i = 1 To jml_data
Me.ProgressBar1.Value = i
Next
MsgBox "Proses progres bar sudah selesai !", vbInformation, "Progres bar "
End Sub

---------

Permasalahannya, bagaimana  kalau saat Main form terbuka, progress bar tsb. selesai. Kalau di kode VBA itu hanya menunjukkan angka , bukan main form terbuka. Adakah solusinya untuk hal ini ?

Trims,
Tio

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___