ACCESS FEED: [belajar-access] Progress Bar

Selasa, 07 Januari 2014

[belajar-access] Progress Bar

Mas Hariyanto,

Ikut nimbrung nih, sy mau tanya tentang progress bar. Saya sudah baca2 di web-nya mas Hariyanto (LPJK Jatim) tentang buat progress bar-nya. Pertanyaan saya gimana caranya supaya progrees bar itu menggambarkan proses yg sedang berlangsung?

Proses berikut yang saya ingin kaitkan dengan progress bar:

Private Sub CmdRefresh_Click()

DoCmd.SetWarnings False

DoCmd.OpenQuery "QCloneNameTempTbl"

DoCmd.OpenQuery "QMediaIncomingTempTbl"

DoCmd.OpenQuery "QMediaProductionTempTbl"

DoCmd.OpenQuery "QMediaDeliveryTempTbl"

DoCmd.OpenQuery "QMediaWastageTempTbl"

DoCmd.OpenQuery "QCultureIncomTempTbl"

DoCmd.OpenQuery "QCultureProductionTempTbl"

DoCmd.OpenQuery "QCultureDeliveryTempTbl"

DoCmd.OpenQuery "QCultureWastageTempTbl"

DoCmd.SetWarnings True

MsgBox "Done!", vbOKOnly, "Refresh"

End Sub

VBA ini sudah berjalan cuman tidak ada progress bar-nya.

Best Regards

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of hari yanto
Sent: 08 Januari 2014 0:30
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Mencari Data yang Mirip [1 Attachment]

[Attachment(s) from hari yanto included below]

Tasurun....,

Harapan Sampeyan bisa dijalankan. Yang harus dilakukan sudah barang tentu harus mengubah tabel dan script VBA.

Untuk tabel, perlu ditambah 1 field yang berisi keterangan kata alamat sama. Misal, kita tambah field bernama ket. Type text. Panjang 255.

Sedangkan script, yang harus diubah adalah variabel kontrolnya. Bila semula berada di tangan user, ganti dengan record mulai pertama sampai terakhir.

Lalu, dibandingkan dengan dengan record-record lain dengan catatan nama sama persis. Apabila dari proses tersebut berisi data mirip, update field ket pada tabel dengan data mirip itu.

Agar tampak menarik, beri progress bar saat proses sedang berlangsung. Dan bila sudah selesai, matikan progress bar. Serta sampaikan hasilnya ke user.

Terlampir, adalah revisi file mdb 2003 yang merangkup uraian diatas.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)