Bpk mungkin tinggal set saja ke false menu mana yg hendak di disable. Contohnya
adalah:
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
Kalau hendak di enable kan lagi, set sebagai True.
Thank's
----- Original Message -----
From: Cecep W
To: [email protected]
Sent: Tuesday, 02 March 2010 10:03 AM
Subject: [belajar-access] Fw: Re: Me-non active-kan beberapa menu bar
Mas BO mau nanya lagi nih...
kalo non active-kan yg atas misal : File (seluruh yg dibawahnya jadi
non-active)
itu sudah bisa tapi yg step selanjutnya yg non active-kan salah satu
yg di bawahnya saja belum bisa karena setelah
"CBarTool.Controls("Menu1").------"tidak ada Controls lagi, maksudnya
setelah titik terakhir tidak ada "Controls" lagi. adakah yg kurang
lagi?
Tool Reference di VBA yg sudah saya centang sbb:
- Visual Basic for Applications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft ActiveX Data Object 2.1 Library
- Microsoft Office 11.0 Object Library
ini procedure yg udah berhasil:
Private Sub Form_Activate()
Dim CBarTool As CommandBar
Set CBarTool = CommandBars("Menu Bar Utama")
CBarTool.Controls("Data").Enabled = False
CBarTool.Controls("Ganti Password").Enabled = True
End Sub
Regards
Cecep Wahyudin
----- Original Message -----
From: Cecep W <[email protected]>
To: [email protected]
Date: Mon, 1 Mar 2010 15:09:36 +0700
Subject: Re: Me-non active-kan beberapa menu bar
> Akhirnya SUKSES juga......
> betul sekali mas BO saya tidak mencentangnya, yg saya centang hanya
> "Microsoft Access 11.0 Object Library"
> terimakasih banyak mas BO atas kesediaan anda yg ga bosen2 membimbing
> saya dan juga saya minta maaf atas keteledoran saya yg tidak begitu
> teliti sehingga banyak waktu anda yg terbuang untuk meneyelasikan
> masalah saya ini.
>
> Regards
> Cecep Wahyudin
>
> ----- Original Message -----
> From: "Belajar Office" <[email protected]>
> To: [email protected]
> Date: 1 Maret 2010 13:47
> Subject: Me-non active-kan beberapa menu bar
>
> > Bpk pakai Acc 2003, berarti Microsoft Office 11.0 Object Library, coba Bpk
> > klik tools -> references, pastikan yg Bpk centang adalah:
> >
> > - Visual Basic for Applications
> > - Microsoft Access 11.0 Object Library
> > - OLE Automation
> > - Microsoft Office 11.0 Object Library
> >
> > Thank's
> > ----- Original Message -----
> > From: "Cecep W" <[email protected]>
> > To: <[email protected]>
> > - Perlihatkan kutipan teks -
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
>
