Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/06/2009 01:53
Konu Sahibi
mehmeser
Yorumlar
8
Okunma
3163
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mehmeser

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
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 ?


Cevapla

cuneyt

Aktif Üye
Kullanici Avatari
Aktif Üye
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
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

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Bugün,06:56
Çözüldü 
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

mehmeser

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
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.


Ek Dosyalar Ekran Görüntüleri
   
Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Sayın benremix
O zaman modulü şöyle yapın

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

mehmeser

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Bilen kimse yok mu ?


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Raporda Verilerin Hepsi Çıkmasın. ankaram 8 582 17/06/2017, 10:36 ankaram
Çözüldü Windows Görev Çubuğundaki Access Simgesini Değiştirme hulsen 4 442 01/06/2017, 01:56 ozanakkaya
Çözüldü Komut Düğmesine birden fazla görev Yükleme fascioğlu 18 2.273 07/11/2015, 23:51 atoz112
Çözüldü görev programı paseidon19 5 807 05/11/2015, 08:56 ozanakkaya
Çözüldü teslim tarihi boşsa çıkmasın yenginoglu 5 765 15/09/2015, 09:48 yenginoglu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.