Fungsi ini digunakan untuk menyembunyikan tombol Ribbon pada MS Access 2007 ke atas. Seperti kita ketahui pada versi ini tampilan menu Access terlihat adanya menu khas berupa tombol Ribbon yang mungkin  sebagian pengguna Access akan merasa tidak nyaman dengan keberadaan tombol ini.



Berikut kode VBA cara menyembunyikan tombol Ribbon:

Public Function TRibbon(LShow As String)
If LShow = "Yes" Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End If
End Function

Cara penggunaan :

Ketik kode VBA seperti ini, pada form utama aplikasi Anda. Bisa dimasukkan pada event On Load :

Call TRibbon("No")

Untuk menampilkan kembali, ketik :

Call TRibbon("Yes")

Bila Anda menyukai ini, share ke yang lain, klik disini :