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@live.com> Sent by: belajar-access@yahoogroups.com 06/10/2011 07:39 AM | 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
> > > > >
> > > >
> > >
> >
>
Attachment(s) from tio.adjie@ptssb.co.id
1 of 1 File(s)
__._,_.___
No comments:
Post a Comment