[belajar-access] Re: Progress Bar

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/