Search This Blog

Loading...

Membuat Progres Bar pada Microsoft Access


Bagaimanakah cara menggunakan progres bar pada Microsoft Access ?
Programer access mungkin perlu membuat progres bar dalam aplikasi mereka untuk memberikan informasi progres suatu proses yang sedang dilaksanakan oleh aplikasi, misalnya proses transfer data.
Progres bar cocok digunakan untuk proses yang bersifat berulang atau proses looping, misalnya proses pembacaan data dari suatu tabel atau query dari record pertama sampai record terakhir.

Cara menambahkan activex control Progress Bar pada form MS-Access:
  1. Buat form baru dengan design view
  2. Pada toolbar toolbox klik pada icon More Control (gambar palu dan kunci pas)
  3. Microsoft access akan menampilkan daftar activex control yang dapat kita masukkan ke dalam form
  4. Cari nama control Microsft Progress Bar Control 6.0 (SP6), lalu klik pada pada Microsft Progress Bar Control 6.0 (SP6)
  5. Lalu klik pada area form design view yang sudah dibuka sebelumnya
  6. Atur ukuran tinggi dan lebar progress bar sesuai dengan kebutuhan
  7. Secara default ActiveX Control progress bar yang kita masukkan ke dalam form akan bernama ProgressBar1
  8. Tambahkan control Command Button dan beri nama cmdProses
  9. Tambahkan kode berikut pada even onclick pada tombol cmdProses
----------------------------------------------------------------------
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 demo progres bar sudah selesai !", vbInformation, "Progres bar sample"
End Sub
----------------------------------------------------------------------

Selamat mencoba.

Catatan :
Jika Activex control Progress Bar belum ada pada icon More Activex Control pada Microsoft Access yang anda gunakan berarti file MSCOMCTL.OCX belum ada pada windows system anda. Untuk dapat menggunakan ActiveX Control Microsoft Progress Bar anda harus me-register file MSCOMCTL.OCX.
Cara me-register activex control pada Windows XP:
  1. Jika anda belum mempunyai file MSCOMCTL.OCX anda dapat men-download di sini
  2. Setelah anda mendownload file MSCOMCTL.ZIP extract fileMSCOMCTL.OCX lalu copykan file ini ke folder C:\Windows\system32
  3. Lalu jalankan perintah berikut c:\WINDOWS\system32\regsvr32.exe c:\WINDOWS\system32\MSCOMCTL.OCX
  4. Jika proses registrasi file berhasil maka akan muncul pesan DllRegisterServer in c:\WINDOWS\system32\MSCOMCTL.OCX succeded

Post a Comment