[belajar-access] Re: Progress Bar

Dear Mas Tio, maaf ikutan nimbrung, dulu ada pengalaman sy pernah buat progress bar juga, untuk menolkan bisa menggunakan kode: ProgressBar4 = 0

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
--- In belajar-access@yahoogroups.com, tio.adjie@... wrote:
>
> Mas, ini bukan di form baru tapi di form awal. Code di bawah ini sudah
> berhasil, maksud saya setelah progressbar.value sudah mencapai maximal
> value, saya tidak close form itu dan tidak buka form
>
> lain. Form ini bukan form login, tapi form searching file, jadi setelah
> file ketemu, ada message box "Done". Terus saya ingin click tombol itu
> lagi untuk searching file lain, berarti khan progress barnya
>
> harus dari nol lagi. Saya sudah coba dengan : setelah progressbar. value
> sudah max, saya pakai j=0, tapi progress bar tidak balik lagi ke nol.
> Pertanyaannya, bagaimana untuk membalikkan progress
>
> bar itu ke nol, kemudian progress bar berjalan lagi, tapi tidak di form
> baru, masih di form awal.
>
> Ini filenya untuk memperjelas :
>
>
>
> Terima kasih sebelumnya,
> Salam,
> Tio
>
>
>
>
>
>
> "sudarsono" <jkssbma@...>
> Sent by: belajar-access@yahoogroups.com
> 06/10/2011 07:39 AM
> Please respond to belajar-access
>
>
> To: belajar-access@yahoogroups.com
> cc:
> Subject: [belajar-access] Re: Progress Bar
>
>
>
> Di Form baru ? tinggal tambah koding itu di vba editor Form Searching .
> Dim j As Integer
> ' yang lain ok , alias tak perlu diubah
> Private Sub StartProgress_Click()
> Me.ProgressBar4.Visible = True
> Me.TimerInterval = 500
> End Sub
> Private Sub Form_Open(Cancel As Integer)
> j = 0
> Me.TimerInterval = 0
> Me.ProgressBar4.Visible = False
> End Sub
> Private Sub Form_Timer()
> Me.ProgressBar4.Max = 20
> Call isiprogress(j)
> j = j + 1
> End Sub
> Sub isiprogress(ByVal parj As Long)
> If parj > Me.ProgressBar4.Max Then
> Me.TimerInterval = 0
> ' kalau ingin buka form lain
> DoCmd.Close acForm, Me.Form.Name
> DoCmd.OpenForm "Form1", acNormal, , , , acDialog
> '--------
> Exit Sub
> End If
> Me.ProgressBar4.Value = parj
> End Sub
> mudah khan .....
> cuma kalau searching , atur property Max, sehingga tampilan lebih tepat dan sesuai lamanya searching. ( ini yang
> agak coba2 )
>
> --- In belajar-access@yahoogroups.com, tio.adjie@ wrote:
> >
> > Mas Sudarsono, ini sudah berhasil , tapi kalau untuk dipakai tidak untuk
>
> > form Login tapi untuk misalnya searching file (jadi tidak ditutup
> > formnya), bagaimana memulai progress bar dari nol lagi ?
> >
> > Terima kasih sebelumnya,
> >
> > regards,
> > Tio
> >
> >
> >
> >
> >
> > "sudarsono" jkssbma@
> > Sent by: belajar-access@yahoogroups.com
> > 06/08/2011 04:26 PM
> > Please respond to belajar-access
> >
> >
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: [belajar-access] Re: Progress Bar
> >
> >
> >
> > apa saya sudah mengingatkan untuk menambahkan dim j as long ?
> > ' ini di vba editor
> >
> > Option Compare Database
> > ' ini harus ada
> > Dim j As Integer
> > ' yang lain ok , alias tak perlu diubah
> > Private Sub StartProgress_Click()
> > Me.ProgressBar4.Visible = True
> > Me.TimerInterval = 500
> > End Sub
> > Private Sub Form_Open(Cancel As Integer)
> > j = 0
> > Me.TimerInterval = 0
> > Me.ProgressBar4.Visible = False
> > End Sub
> > Private Sub Form_Timer()
> > Me.ProgressBar4.Max = 20
> > Call isiprogress(j)
> > j = j + 1
> > End Sub
> > Sub isiprogress(ByVal parj As Long)
> > If parj > Me.ProgressBar4.Max Then
> > Me.TimerInterval = 0
> > DoCmd.Close acForm, Me.Form.Name
> > DoCmd.OpenForm "Form1", acNormal, , , , acDialog
> > Exit Sub
> > End If
> > Me.ProgressBar4.Value = parj
> > End Sub
> >
> > --- In belajar-access@yahoogroups.com, tio.adjie@ wrote:
> > >
> > > Dear Mas Sudarsono,
> > >
> > > Belum berhasil juga Mas,
> > >
> > > Proses validasi saya rubah dengan tombol (untuk menguji apakah
> progress
> > > bar berjalan sesuai dengan yang di harapkan) ,
> > >
> > > Ini filenya :
> > >
> > >
> > >
> > > Selebihnya saya copy code vbanya persis sama spt Mas Darsono kasih,
> > tetapi
> > > tetap gak ada perubahan hanya ProgressBar4 saja yang visible.
> > >
> > > regards,
> > > Tio
> > >
> > >
> > >
> > >
> > >
> > > "sudarsono" jkssbma@
> > > Sent by: belajar-access@yahoogroups.com
> > > 06/07/2011 03:23 PM
> > > Please respond to belajar-access
> > >
> > >
> > > To: belajar-access@yahoogroups.com
> > > cc:
> > > Subject: [belajar-access] Re: Progress Bar
> > >
> > >
> > >
> > >
> > > Kalau begitu alur-nya di ubah
> > >
> > > ' di Form Login
> > > ' jika proses login validasi
> > > Me.ProgressBar4.Visible = True
> > > Me.TimerInterval = 500
> > >
> > > Private Sub Form_Open(Cancel As Integer)
> > > j = 0
> > > Me.TimerInterval = 0
> > > Me.ProgressBar4.Visible = False
> > > End Sub
> > >
> > > Private Sub Form_Timer()
> > > Me.ProgressBar4.Max = 20
> > > Call isiprogress(j)
> > > j = j + 1
> > > End Sub
> > >
> > > Sub isiprogress(ByVal parj As Long)
> > > If parj > Me.ProgressBar4.Max Then
> > > Me.TimerInterval = 0
> > > DoCmd.Close acForm, Me.Form.Name
> > > DoCmd.OpenForm "form1", acNormal, , , , acDialog
> > > Exit Sub
> > > End If
> > > Me.ProgressBar4.Value = parj
> > > End Sub
> > >
> > > Kalau bisa di kirim file mdb/accdb , dengan tabel kosong , aja ,
> > > password untuk user di kosongkan biar , saya yang buat2 sendiri.
> > > '====
> > >
> > > --- In belajar-access@yahoogroups.com, tio.adjie@ wrote:
> > > >
> > > > Mas Sudarsono, belum berhasil. Saya sudah pakai cara Mas Sudarsono.
> > > Untuk
> > > > cara Mas Darsono, sepertinya kurang tepat, karena prosess progress
> > > selesai
> > > > berjalan, baru link table juga berjalan,
> > > >
> > > > jadi ada 2 prosess yang berjalan secara berurutan..Maksud saya untuk
> > > > progress bar ini adalah ketika User berhasil mengetik pasword di
> login
> > > > form, maka proses link table berjalan, dan secara
> > > >
> > > > bersamaan progress bar berjalan juga. Nah, ketika link table selesai
> > > dan
> > > > berhasil, pada saat bersamaan progress bar penuh dan buka main form.
> > > Ini
> > > > sama seperti tampilan progress bar di database
> > > >
> > > > Mas Darsono waktu di Kopdar kemarin. Untuk sementara saya tidak
> pakai
> > > > progress bar dulu. Apa ada alternatif lain ??
> > > >
> > > >
> > > > regards,
> > > > Tio
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > "sudarsono" jkssbma@
> > > > Sent by: belajar-access@yahoogroups.com
> > > > 06/06/2011 04:02 PM
> > > > Please respond to belajar-access
> > > >
> > > >
> > > > To: belajar-access@yahoogroups.com
> > > > cc:
> > > > Subject: [belajar-access] Re: Progress Bar
> > > >
> > > >
> > > >
> > > > kalau sudah berhasil membuat form yang bagus , harap kirim ke sini .
> > > biar
> > > > saya lihat2 , eeeh kagumi dengan mata berbinar-binar.
> > > >
> > > > --- In belajar-access@yahoogroups.com, "sudarsono" jkssbma@ wrote:
> > > > >
> > > > >
> > > > > Buat Form Utama ( misal form1) dan Form Progress ( misal Form2)
> > > > >
> > > > > ' ini di Form2 ( misalnya )
> > > > >
> > > > > Option Compare Database
> > > > >
> > > > > Dim j As Long
> > > > >
> > > > > Private Sub Form_Open(Cancel As Integer)
> > > > > j = 0
> > > > > End Sub
> > > > >
> > > > > Private Sub Form_Timer()
> > > > > Me.TimerInterval = 500
> > > > > Me.ProgressBar4.Max = 20
> > > > > Call isiprogress(j)
> > > > > j = j + 1
> > > > > End Sub
> > > > >
> > > > > Sub isiprogress(ByVal parj As Long)
> > > > > If parj > Me.ProgressBar4.Max Then
> > > > > Me.TimerInterval = 0
> > > > > DoCmd.Close acForm, Me.Form.Name
> > > > > DoCmd.OpenForm "form1", acNormal, , , , acDialog
> > > > > Exit Sub
> > > > > End If
> > > > > Me.ProgressBar4.Value = parj
> > > > > End Sub
> > > > >
> > > > > Atur dir form2, sebagus mungkin, dimana prodress berlangsung.
> > > Setelah
> > > > > progress penuh , maka form1 akan dibuka. Tentu form2 ditutup dulu.
> > > > >
> > > > >
> > > > > '=================
> > > > > --- In belajar-access@yahoogroups.com, Darsono darsono72@ wrote:
> > > > > >
> > > > > > 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@" tio.adjie@
> > > > > > 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 PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/