Re: [belajar-access] Progress Bar

Terima kasih Mas, di coba dulu ya..

Salam,
Tio

Darsono <darsono72@yahoo.com> Sent by: belajar-access@yahoogroups.com 06/06/2011 02:23 PM Please respond to belajar-access

To:        "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>         cc:                 Subject:        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

__,_._,___