AccessTr.neT

Sayfalar: 1 2 3 4

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...

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

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

Ş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]

Merhaba,

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

Teşekkür ediyorum.

ş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

Sayfalar: 1 2 3 4

benremix

esrefigit

mehmeser

esrefigit

mehmeser

esrefigit