Betul Bpk, barangkali ada langkah2 yg kurang, jadi yg pertama Bpk harus
tambahkan Microsoft Office 11.0 Object Library di references dulu. Kalau Bpk
pakai 2007, pilih Microsoft Office 12.0 Object Library. Lalu Bpk buat form baru
utk coba2, tambahkan command button, tambahkan procedurenya, misal:
Private Sub Command1_Click()
Dim CBarTool As CommandBar
Set CBarTool = CommandBars("CustomMenuBar")
'Kalau menunya langsung, seperti menu File:
CBarTool.Controls("Custom1").Enabled = False
'Kalau menunya dibawah, seperti menu File -> Print:
CBarTool.Controls("New Menu1").Controls("Custom2").Enabled = False
'Kalau menunya dibawah terus ada lagi kekanannya, seperti menu File -> Send
-> Email:
CBarTool.Controls("New Menu1").Controls("New
Menu2").Controls("Custom3").Enabled = False
End Sub
Thank's
----- Original Message -----
From: Cecep W
To: [email protected]
Sent: Monday, 01 March 2010 10:53 AM
Subject: Re: [belajar-access] Me-non active-kan beberapa menu bar
itu sudah dicentang mas.....tapi tetap ga bisa...
menu bar lengkapnya sbb:
Menu Bar Utama:
Macro Name Action
Data AddMenu Menu Name: Data
Menu Macro Name :
Menu1
Ganti Password AddMenu Menu Name: Ganti Password
Menu Macro Name :
Menu2
Menu1:
Macro Name Action
Print RunCommand Command : Print
Export RunCommand Command : Export
Exit Quit
Menu2:
Macro Name Action
Ganti Password OpenForm Form Name : FrmGantiPassword
kemudian saya jalankan Menu Bar Utama ini.....nah ketika Report di buka saya
ingin Menu "Ganti Password" di menu bar dibikin disable/tidak active. Adakah
langakah saya yag kurang pas?
Regards
Cecep Wahyudin
Pada 1 Maret 2010 10:15, Belajar Office <[email protected]> menulis:
Bpk di VBA nya klik menu Tools -> References, kemudian beri tanda centang
pada "Microsoft Office 11.0 Object Library", kemudian klik OK.
Thank's
----- Original Message -----
From: Cecep W
To: [email protected]
Sent: Thursday, 25 February 2010 7:50 AM
Subject: Re: [belajar-access] Me-non active-kan beberapa menu bar
Error mas BO,
ini saya masukan pada event On Open. ketika dijalankan CBarTool As
CommandBar diblok dan error-nya adalah "User-defined type not defined"
kalo saya ketik langsung setelah CBarTool As...tidak ada CommandBar tapi
cuman Command ato CommandButton dll.
Kenapa Ya?
Regards
Cecep Wahyudin
Pada 24 Februari 2010 13:27, Belajar Office <[email protected]>
menulis:
Bpk tinggal set False saja di propertiesnya, misal:
Dim CBarTool As CommandBar
Set CBarTool = CommandBars("Menu Bar Utama")
CBarTool.Controls("Menu1").Enabled = False
'dst...
Thank's
----- Original Message -----
From: Cecep W
To: [email protected]
Sent: Wednesday, 24 February 2010 11:45 AM
Subject: [belajar-access] Me-non active-kan beberapa menu bar
Assalamu alaikum pakar access semua,
saya membuat menu bar dengan Macro "Menu Bar Utama", didalam "Menu Bar
Utama" ini ada Menu1, Menu2 dan Menu3,
yg jadi pertanyaan saya adalah bisakah kita Me-non active-kan salah
satu menu yg ada di dalam "Menu Bar utama"? misalkan saya ingin ketika
Form A dibuka maka Menu2 tidak bisa diklik sementara Menu1 dan Menu3
tetap bisa diklik.
Regards
Cecep Wahyudin
