Merhabalar,
Access çalışırken açılan her rapor form ve diğer nesneklerin görev çubuğu düğmeleri de ayrıyeten çıkıyor.
Evet seçenekler kısmından
Görev Çubuğundan Düğmeleri işaretini kaldırınca oluyor ama bu geçerli dosya için değil tüm
Access bir ayar.
Başka bilgisayarda bu aayr seçili değilse asorun olacak.
Görev çubuğu düğmelerini nasıl kapatabiliriz veritababnı için ?
Merhaba,
basit olarak bir iki işlem yaparak menülerden kurtulabiliriz.
bir modül açarak aşağıdaki kodu yapıştır.
Global OkToClose As Boolean
Function RemoveMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = False
Next I
End Function
Daha Sonra programının ilk açılışındaki formun açıldığında yordamına aşağıdaki kodu yapıştır.
RemoveMenu
dilersen programın ilk açılışında Autoexec makro hazırladıysan Eylem alanına KodÇalıştır yazarak İşlev Adına RemoveMenu() ekleyerekte programın ilk açılışıyla bütün ıvırzıvırları ortadan kaldırabilirsin.
Sn. Cüneyt Bey iyi günler; bu menüleri kaldırdıktan sonra tasarımda bir şeyler yapmak istediğimizde bu menülere ihtiyacımız olacak. Tekrar menüleri açmak istediğimizde ne yapmaılıyız. Ya da menüleri kullanıcılar için kapalı yönetici için açık yapabilirmiyiz. Şimdiden teşekkür ederim. Saygılar
Merhaba,
istediğim menülerin kaldırılması değil resimde gördüğünüz gibi görev çubuğundaki ana
Access uygulasmı dışındaki nesnelerin düğmesi idi.
Sayın benremix
O zaman modulü şöyle yapın
Kod:
Global OkToClose As Boolean
Function RemoveMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = False
Next I
End Function
Function gelsinMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = true
Next I
End Function
Sonra da istediğiniz bir olay veya düğmeyle "gelsinMenu" komutunu çalıştırın. Menüleriniz gelecektir. Bu işlemleri yönetici ve kullanıcılara ayrı ayrı çalıştırmak için ise yönetici ve kullanıcılar için oluşturulmuş olan düzeneğin içine if...then ile bu komutları yerleştirin. Yönetici açtığında komut çalışmasın, kullanıcı açtığında çalışsın. Bunun için admin ekranı koyun ve ordan kullanıcı ve adminleri tanımlayın. if kullanımı da şöyle
mesela admin ve user için ana forma bir metin kutusu koyup giriş yapan kişinin yetkisini yazdığınızı varsayalım. Bütün yetkiler burdan alınsın. Bu kutunun adı da "yetki" olsun
Kod:
if me.yetki= "admin" then
gelsinMenu
else
removeMenu
end if
Bu kadar.
Kolay gelsin. Uygulama üzerinde görmek isterseniz müsait olunca bir örnek hazırlarım..