+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Toolbar Örneği (/konu-toolbar-ornegi--8544.html)
Cvp: Toolbar Örneği - ozguryasin - 30/09/2010
güzel paylaşım için teşekkürler
+
Cvp: Toolbar Örneği - estapan - 30/09/2010
sn Coskun_Cakal,
Örneğiniz çok güzel. Acaba ToolBar da ard arda açılan altmenü yapmak mümkünmü ?. Alt resimdeki örnekteki gibi.
![[Resim: 1sl635.jpg]](http://i55.tinypic.com/1sl635.jpg)
Cvp: Toolbar Örneği - Coskun0559 - 30/09/2010
malesef o şekilde yapılmıyo.onu menülerle yapabilirsin.
Cvp: Toolbar Örneği - saygincilli - 22/12/2010
şöyle bir sıkıntı var bu toolbarda mesela formuma User ve Admin erişiyo ben ikisi için ayrı yetkiler vermek istiyorum yani adminde kullanıcı kayıt menübutonu aktif ama userda değil,,böyle bişey yapmak mümkünmü
Cvp: Toolbar Örneği - Coskun0559 - 22/12/2010
syn saygincilli;
kullanıcı yetkilendirmesini login formunuzu ayarladığınızı varsayıyorum,toolbardan istediğiniz menünün enable=etkin/etkin değil
visible = görünür/görünmez
özelliklerini ayarlayın
örnek verecek olursak toolbarda "yedekle" diye bi buton oluşturalım ve enabled değerini (seçilmemiş) yapalım default olarak öyledir zaten.siz "user" olarak oturum actığınızda, yedekle butonun enabled özelliğini false yapacaksınız.
Cvp: Toolbar Örneği - saygincilli - 22/12/2010
sayın coşkun dediğinizi anladım fakat başka bi yöntem buldum onu uyguladım sorunsuz çalışıyor
if yetki="user" then
If ButtonMenu.Key = "sifreDegistir" Then
MsgBox "Yetkiniz bu alanı görmenize izin vermiyor.", vbInformation, "Yetkisiz Giriş"
End If
If ButtonMenu.Key = "Kduzenle" Then
MsgBox "Yetkiniz bu alanı görmenize izin vermiyor.", vbInformation, "Yetkisiz Giriş"
End If
end if
if yetki="admin" then
If ButtonMenu.Key = "sifreDegistir" Then
DoCmd.OpenForm "sifredegistir", acNormal
End If
If ButtonMenu.Key = "Zduzenle" Then
DoCmd.OpenForm "ZiyaretciDuzenle", acNormal
End If
end if