Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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 ?
Son Düzenleme: 21/06/2009, 01:54, Düzenleyen: mehmeser.
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
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
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #4
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.
Cevapla
Çözüldü #5
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..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
Bilen kimse yok mu ?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task