Access SQL   ›   ACCESS KÜTÜPHANESİ   ›   ACCESS BİLGİ DEPOSU   ›   LİSANSLAMA / DEMO / ŞİFRE / YETKİLENDİRME UYGULAMALARI   ›   Yetkilendirme ile Treeview Menü Oluşturmak

Yetkilendirme ile Treeview Menü Oluşturmak
beab05
Forum Yöneticisi

*
Kayıt Tarihi: 05.03.2008
Toplam 252 konu açtı.
Toplam 3.105 yorum yaptı.
Toplam 131 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 9 / 23
#1
15-11-2008, 18:46
Merhabalar;

Elimde uzun zamandır bulunan bir örneği başka bir Access forumlarından birinde sadece resimlerini görünce hatırladım. Buraya eklediğim orjinal halidir, diğer forumlarda sanırım Türkçeye çevrilmiş ve bazı özellikler eklenerek verilecek ama denildiği üzere sabırsızlananlar için ben de buraya upload edeyim dedim..
Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#2
15-11-2008, 18:58
Merhaba..

Paylaşımın için teşekkür ederim beab2005.
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Tembel
Yeni Üye 15-40

*
Kayıt Tarihi: 24.05.2008
Toplam 1 konu açtı.
Toplam 27 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
15-11-2008, 20:59
Smile
Hata veriyor ama mesajı aldık hocam.



  Bul
  Alıntı
Bu mesajı beğenenler:
beab05
Forum Yöneticisi

*
Kayıt Tarihi: 05.03.2008
Toplam 252 konu açtı.
Toplam 3.105 yorum yaptı.
Toplam 131 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 9 / 23
#4
15-11-2008, 23:01
Bilmem ki, bende hata vermiyor Wink
Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Website   Bul
  Alıntı
Bu mesajı beğenenler:
smmustafa
Aktif Üye 40-100

*
Kayıt Tarihi: 14.11.2008
Toplam 6 konu açtı.
Toplam 42 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#5
15-11-2008, 23:13
slm

bu uygulama çok güzel gibi görünüyor fakat ben bir türlü çalıştıramadım

yaptığım işlem ise deneme adında bir form oluşturdum ve bu formu menüden açtırmaya çalıştım fakat açtıramadım
acaba bu uygulamayı anlayan bir arkadaş yeni bir form açtırma işlemini yapabilirmi ?



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
beab05
Forum Yöneticisi

*
Kayıt Tarihi: 05.03.2008
Toplam 252 konu açtı.
Toplam 3.105 yorum yaptı.
Toplam 131 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 9 / 23
#6
16-11-2008, 01:14
frmDatabaseMenuSubPane formunun kod sayfasında bulunan alttaki click kodunun en altına asterixler içine aldığım satırı eklerseniz menudeki ismi taşıyan formunuz açılır..

Visual Basic
  1. Private Sub cmdHoverCover_Click()
  2.  
  3. Dim intLetterWidth As Integer
  4.  
  5. Dim strParentName As String
  6. Dim strChildName As String
  7.  
  8.     intLetterWidth = 135
  9.  
  10.     strParentName = DLookup("[MenuItemText]", "tblDatabaseMenuItem", "[MenuItemID]=" & Me.txtMenuItemID)
  11.     strChildName = DLookup("[MenuItemText]", "tblDatabaseMenuItem", "[MenuItemID]=" & Me.MenuItemID)
  12.  
  13.     Me.txtGrayControl = Me.ctlCurrentLine
  14.     Call FormatHighlights(Me.txtMenuOrder, True)
  15.          With Me.Parent
  16.         .txtParent = strParentName   
  17.         '.txtParent.Width = Len(strParentName) * intLetterWidth
  18.         ResizeControl .txtParent
  19.         .lblArrow.Left = .txtParent.Left + .txtParent.Width
  20.         .txtChild = strChildName
  21.         '.txtChild.Width = Len(strChildName) * intLetterWidth
  22.         ResizeControl .txtChild
  23.         .txtChild.Left = .lblArrow.Left + .lblArrow.Width
  24.     End With
  25.      '*************************************************************************************
  26.      DoCmd.OpenForm strChildName
  27.     ' *************************************************************************************
  28.  
  29. End Sub


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-12 Gelişmiş Kullanıcı Ve Grup Yetkilendirme Taruz 99 65.940 09-12-2021, 01:40
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi