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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 8

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___