Re: [belajar-access] Re: Progress Bar

OK Mas, setelah saya coba dan berhasil, saya kirim ke sini dan tentunya dengan tampilan yang seprofesional mungkin (paling tidak, profesional menurut saya) . Btw Thanks ya Mas Sudarsono,

semoga Tuhan membalas.

Salam,
Tio

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

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___