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