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@live.com> Sent by: belajar-access@yahoogroups.com 06/08/2011 04:26 PM | 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
> > > >
> > >
> >
>
No comments:
Post a Comment