MS ACCESS MAILING LIST: [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
> > > > >
> > > >
> > >
> >
>