Re: [belajar-access] Progress Bar

Mas Tio,

Tambahkan atau Script ini setelah  next

    

.

.

.

.

Next 
MsgBox "Proses progres bar sudah selesai !", vbInformation, "Progres bar " 

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "F_00_MenuUtama"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

catatan:

"F_00_MenuUtama"

disesuaikan dengan nama form yang akan di buka setelah progress bar

Selamat mencoba

Darsono

---

From: "tio.adjie@ptssb.co.id" <tio.adjie@ptssb.co.id>
To: belajar-access@yahoogroups.com
Sent: Monday, June 6, 2011 12:55 PM
Subject: [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

__,_._,___