Nesneler Görev Çubuğunda çıkmasın !

Nesneler Görev Çubuğunda çıkmasın ! - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Nesneler Görev Çubuğunda çıkmasın ! (/konu-nesneler-gorev-cubugunda-cikmasin.html)

Sayfalar: 1 2

Nesneler Görev Çubuğunda çıkmasın ! - mehmeser - 21/06/2009

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 ?

Cvp: Nesneler Görev Çubuğunda çıkmasın ! - cuneyt - 21/06/2009

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.

Cvp: Nesneler Görev Çubuğunda çıkmasın ! - benremix - 21/06/2009

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

Cvp: Nesneler Görev Çubuğunda çıkmasın ! - mehmeser - 21/06/2009

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.

Cvp: Nesneler Görev Çubuğunda çıkmasın ! - mehmetdemiral - 21/06/2009

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..

Cvp: Nesneler Görev Çubuğunda çıkmasın ! - mehmeser - 22/06/2009

Bilen kimse yok mu ?