MS ACCESS MAILING LIST: Re: [belajar-access] Progress Bar

Monday, June 6, 2011

Re: [belajar-access] Progress Bar

ngikut,,,,
progres bar buat apaan y???

From: Darsono <darsono72@yahoo.com>;
To: belajar-access@yahoogroups.com <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] Progress Bar
Sent: Mon, Jun 6, 2011 7:23:58 AM

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

__,_._,___