30/09/2010, 12:30
Toolbar Örneği
30/09/2010, 13:53
estapan
sn Coskun_Cakal,
Örneğiniz çok güzel. Acaba ToolBar da ard arda açılan altmenü yapmak mümkünmü ?. Alt resimdeki örnekteki gibi.
Örneğiniz çok güzel. Acaba ToolBar da ard arda açılan altmenü yapmak mümkünmü ?. Alt resimdeki örnekteki gibi.
30/09/2010, 14:02
Coskun0559
malesef o şekilde yapılmıyo.onu menülerle yapabilirsin.
22/12/2010, 09:49
saygincilli
şö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ü
22/12/2010, 10:16
Coskun0559
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.
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.
22/12/2010, 10:33
saygincilli
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