Search This Blog

Mengaktifkan Toolbar dengan Code Visual Basic di Microsoft Access 2002/2003

Setelah kita membuat menu bar dan toolbar, kita dapat mengaktifkan menu bar dan toolbar buatan kita pada saat file access kita buka. Selain itu kita juga dapat menonaktifkan atau menyembunyikan menu bar dan toolbar standard dari Microsoft Access.

Secara default Microsoft Access akan mengaktifkan menu bar dan toolbar sesuai dengan objek yang aktif pada file Microsoft Access kita.

Daftar toolbar standard dari Microsoft Access:
  1. Alignment and Sizing
  2. Filter/Sort
  3. Form Design
  4. Form View
  5. Database
  6. Formatting (Datasheet)
  7. Formatting (Form/Report)
  8. Formatting (Page)
  9. Formatting (PivotTable/PivotChart)
  10. Macro Design
  11. Menu Bar
  12. Page Design
  13. Page View
  14. PivotChart
  15. PivotTable
  16. Print Preview
  17. Query Datasheet
  18. Query Design
  19. Relationship
  20. Report Design
  21. Source Code Control
  22. Table Datasheet
  23. Table Design
  24. Toolbox
  25. Utility 1
  26. Utility 2
  27. Web
Toolbar “Table Datasheet” akan aktif secara default jika kita membuka tabel untuk mengedit data sedangkan toolbar “Table Design” akan aktif jika kita membuka tabel pada mode design.

Untuk menyembunyikan atau menonaktifkan toolbar/menu bar kita dapat menggunakan perintah:

DoCmd.ShowToolbar “nama toolbar” , acToolbarNo

Untuk menampilkan toolbar digunakan perintah:
DoCmd.ShowToolbar “nama toolbar” , acToolbarYes

Untuk menampilkan toolbar secara default dari Microsofrt Access digunakan perintah:
DoCmd.ShowToolbar “nama toolbar” , acToolbarWhereApprop

Jadi jika kita ingin menampilkan toolbar buatan kita dan menyembunyikan toolbar standar Microsoft Access pada saat file Access dibuka script program berikut dapat digunakan:

‘ Sembunyikan toolbar stabdar
DoCmd.ShowToolbar "Alignment and Sizing", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Page)", acToolbarNo
DoCmd.ShowToolbar "Formatting (PivotTable/PivotChart)", acToolbarNo
DoCmd.ShowToolbar "Macro Design", acToolbarNo
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Page Design", acToolbarNo
DoCmd.ShowToolbar "Page View", acToolbarNo
DoCmd.ShowToolbar "PivotChart", acToolbarNo
DoCmd.ShowToolbar "PivotTable", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
DoCmd.ShowToolbar "Query Design", acToolbarNo
DoCmd.ShowToolbar "Relationship", acToolbarNo
DoCmd.ShowToolbar "Report Design", acToolbarNo
DoCmd.ShowToolbar "Source Code Control", acToolbarNo
DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
DoCmd.ShowToolbar "Table Design", acToolbarNo
DoCmd.ShowToolbar "Toolbox", acToolbarNo
DoCmd.ShowToolbar "Utility 1", acToolbarNo
DoCmd.ShowToolbar "Utility 2", acToolbarNo
DoCmd.ShowToolbar "Web", acToolbarNo

‘ Menampilkan toolbar dan menu bar buatan sendiri
DoCmd.ShowToolbar "myToolbar", acToolbarYes
DoCmd.ShowToolbar "myMenuBar”, acToolbarYes


Agar script ini dieksekusi pada saat kita membuka file access kita harus menset satu buah form sebagai start up form dan pada form start up inilah script ini dijalankan.

Sedangkan untuk mengembalikan seting standar menu dari Microsoft Access maka script berikut harus dijalankan pada saat file Microsoft Access ditutup

‘ Menonaktifkan toolbar dan menu bar buatan sendiri
DoCmd.ShowToolbar "myToolbar", acToolbarNo
DoCmd.ShowToolbar "myMenuBar", acToolbarNo

‘Mengembalikan Toolbar standard ke default Microsoft Access
DoCmd.ShowToolbar "Alignment and Sizing", acToolbarWhereApprop
DoCmd.ShowToolbar "Filter/Sort", acToolbarWhereApprop
DoCmd.ShowToolbar "Form Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Form View", acToolbarWhereApprop
DoCmd.ShowToolbar "Database", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Page)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (PivotTable/PivotChart)", acToolbarWhereApprop
DoCmd.ShowToolbar "Macro Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Menu Bar", acToolbarWhereApprop
DoCmd.ShowToolbar "Page Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Page View", acToolbarWhereApprop
DoCmd.ShowToolbar "PivotChart", acToolbarWhereApprop
DoCmd.ShowToolbar "PivotTable", acToolbarWhereApprop
DoCmd.ShowToolbar "Print Preview", acToolbarWhereApprop
DoCmd.ShowToolbar "Query Datasheet", acToolbarWhereApprop
DoCmd.ShowToolbar "Query Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Relationship", acToolbarWhereApprop
DoCmd.ShowToolbar "Report Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Source Code Control", acToolbarWhereApprop
DoCmd.ShowToolbar "Table Datasheet", acToolbarWhereApprop
DoCmd.ShowToolbar "Table Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Toolbox", acToolbarWhereApprop
DoCmd.ShowToolbar "Utility 1", acToolbarWhereApprop
DoCmd.ShowToolbar "Utility 2", acToolbarWhereApprop
DoCmd.ShowToolbar "Web", acToolbarWhereApprop

Script program ini diletakan di form startup pada even load (untuk mengaktifkan menu buatan dan menonaktifkan menu standard) dan even unlaod (untuk menonaktifkan menu buatan dan menngembalikan default menu Microsoft Access)

Agar form Start up langsung dibuka oleh file access maka harus diseting dengan cara:
1. Pilih menu Startup dari Menu Tools pada Microsot Access
2. Akan muncul Startup dialog box, pada Display Form/Page pilih Start Up form yang sudah kita buat

3. Klik tombol OK untuk menyimpan setingan baru kita

Screen shoot hasil program file MS-ACCESS:

Contoh file program dapat di download di sini.

No comments: