Skip to main content

AccessTr.neT


Değişik Bir Treeview Uygulaması

Değişik Bir Treeview Uygulaması

#7
Emeği geçen arkadaşlara teşekkürler. Çalışmanızın ve başarılarınızın devamını diliyorum..Kodlarla yaptığınız için şimdilik ulaşılmaz görüyorum...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
#8
sayın mehmet eser kardeş benim kodumun içine başka bir kişiye ait bir kod girdimi o proje benim için bit miştir ve bu diğer formda sizin için bunca emek harcayan kişiyede saygısızlık olur bir proje benimseyin ve onun üzerinden devam edin asla birinin kodu üzerine diğerinin kodunu yamamayın ben görüyorum ismi önemli değil ama o kişi sizin için günlerce o proje için çalıştı sizin işiniz tamamlansın diye şimdi siz onu tamamen bırakmışsınız ve bütün projenizi benim kodum üzerine kurmuşsunuz şimdi ben sizin dedkilerinizi yaptım diyelim bahsettiğiniz olayların hepsini hepside bait şeyler ancak benim bunca zahmetime karşın yarın bunuda bırakıp bir başka projeye dalarsanız benim emeğime ne olacak
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#9
Merhaba,

Burda sizin kodunuzun üzerine başka birinin kodu yamanmadı ki! Hatta bilerek bahsettiğiniz değerli kişinin verdiği kodu buna iliştirmedim. Aynı işi sorunsuzca gördükten sonra değiştirmenin anlamı yok.

İlk örneğim yabancı siteden alınma kodun üstüne idi. Sizden yardım istedim, yerli malı kullanın telkini aldım. Beyefendi X'den (bahsi geçen kişi) yardım istedim sağ olsun elinden geldiğince yol gösterdi ama o şekilde olmuyordu. Bu arada baştan zaten değişecekti temel kodlar. Beyefendi X'in önceden emeği geçtiği başka örneğe yöneldim ama henüz uyarlamamıştım. İstediğim şeyin olabilirliğine dair ufukta güneşi gördüm. Bu sırada sizin istek üzerine yoktan var ettiğiniz örnek çıktı. İlerde takılınca danışacak birisi olması açısından ve örneği geliştirici olduğunuz için (daha iyi bildiğiniz için ya da daha büyüksündüğümden değil, yerli üretici olduğunuzdan, Beyefendi X ile sizi karşılaştırmadım) bu kodlar üzerine uyarlama yaptım. Değiştirdiğim şeyler ise kendi bildiklerim. İhtiyaç doğrultusunda uyarladım.

Bir tek farklı yöntem olarak kayıt buldurma var, onu da zaten Access'in kendisi veriyor liste kutularının kayıt buldurma olarak kullanılması için.

Ben yelkeni bir rotaya çevirdim, dediğinizi yaptım bu sefer de burda kara yok başka yönet mesajı geliyor. Yardım nasıl alınır anlamadım. Bahsettiğiniz kişiyle bugüne kadar bir defadır olsun böyle bir yazışma olmadı. Ben zannettim yaptıklarımdan ötürü siz de memnun olursunuz. Beyefendi X de verilen kararın artılarına eksilerine bakar kanımca ve büyük ihtimal burda yazılanları da okumayacaktır tanıdığım kadarıyla.

En azından tam takır bir başvuru kaynağı olacaktı sizin örneğiniz tamamlanırsa. Ben yine de anladığım kadarıyla bitirmeye çalışırım. Aynı eksikler her iki örnekte de vardı. Yabancı birinin örneğine eklemeler yapmaktansa bizden birilerini tercih ettim.

Sadd
Son Düzenleme: 19/07/2009, 17:45, Düzenleyen: mehmeser.
Cevapla
#10
Şayet bu proje ile devam etmek istiyorsanız istedikleriniz kolay. Sırası ile hepsini yaparız. Ben kodları veririm siz yerine ekler ve son halini eskisi ile değiştirirsiniz.

Kod:
Private Sub btn_TVAc_Click()
For Each Node In TreeView1.Nodes
Node.Expanded = True
Next
End Sub

Private Sub btn_TVKapa_Click()
For Each Node In TreeView1.Nodes
Node.Expanded = False
Next
End Sub

Bunlar nodları açma kapama ve diğer istekleriniz de kolay. Onlar da sırası ile gelecek. Tabi sizden "bu projeye devam ediyorum" şeklinde bir cevap geldiği zaman...
yarın seçilen noda kadar açma olayı ondan sonraki gün gelinen kayda göre nodu bulma ve açma olayı

[img=http://img411.imageshack.us/img411/9427/adszvpv.th.jpg]
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 19/07/2009, 20:19, Düzenleyen: esrefigit.
Cevapla
#11
Merhaba,

Evet, kesinlikle bu kodlar kalacak. Siz şimdi geri dönmeseniz de aynı kodlar üzerinde uğraşacaktım.

Teşekkür ediyorum.
Cevapla
#12
şu açılışta ilk nodun id sinin gelmesi vardıya işte onun için kodun bazı yerlerinde değişiklik yapacaksın

burda diğerlerini biliyorsun ancak ilk noda gitme olayını nodes(1) işte bu ilk noda gitmeyi sağlıyor selected seçiyoruz expanded ile kapalı tutuyoruz ve akabinde sec fonksiyonunu çağırıyoruzki id yi metin kutusuna alsın
Kod:
Private Sub Form_Load()
   TreeView1.Nodes.Clear 'ağacı temizle
  Call treeyap(TreeView1) 'ağaç yap
    With TreeView1.Nodes(1)
    .Selected = True
    .Expanded = False
  Call sec
  End With
End Sub

ve şu id yi ayr-ırma kodunuda fonksiyona dönüştürdük
Kod:
Function sec()
Dim nodSelected As MSComctlLib.Node
    Set nodSelected = Me.TreeView1.SelectedItem
    If nodSelected.key Like "BirimId*" Then
    Me.Metin5 = Mid(nodSelected.key, 8)
  
        Else
    Me.Metin5 = Null
    End If
End Function

var olan kodları bu şekilde değiştir bylelikle istekelerinden 3 ü yapılmış oldu
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 20/07/2009, 08:52, Düzenleyen: esrefigit.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da