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

[Attachment(s) from tio.adjie@ptssb.co.id included below]

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@yahoo.com>
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
> > >
> >
>