تحديث الشجرة

[السيد الجوهرى]

السؤال هو 

 

ان عند  التعديل بالجدول الذي تقراء منة الشجرة  لم يتم  التعديل بالشجرة نفسها

 

 

على سبيل المثال

 

تم التعديل بالجدول   من محمد   الى احمد

 

وبالتالي عند فتح الشجرة لابد ان  يكون  احمد 

 

 

الذي يحدث غير ذلك  ولا يتم التعديل بالشجرة

 

 

 

هل من حل  عند تعديل البيانات بالجدول  يتم تعديلها تلقائيا عند فتح الشجرة

 

وشكرا لكم

 

 

[ابو محمد2]

السلام عليكم

ارفق مثال اخي الكريم

والله الموفق

[السيد الجوهرى]

هذة صورا توضح  حقيقة المشكلة

 

 

 

[ابو محمد2]

السلام عليكم

اخي الفاضل

الصور لا تعطينا ما نريد من معلومات عن مصدر الشجرة 

وكيفية بنائها واكوادها

لذلك انصحك ان ترفق مثال كي يتمكن الاساتذه من مساعدتك 

بالتوفيق

[Elsayed Bn Gemy]

السلام عليكم

اخي الفاضل

الصور لا تعطينا ما نريد من معلومات عن مصدر الشجرة 

وكيفية بنائها واكوادها

لذلك انصحك ان ترفق مثال كي يتمكن الاساتذه من مساعدتك 

بالتوفيق

 

 

نعم اتفقك معك تماما اخى ابو محمد  ولا اعرف لما يخاف الاعضاء من ارفاق الامثلة على برامجهم ام هو كسل ؟؟؟

[السيد الجوهرى]

On Error Resume Next

Dim dbs As Database
  Dim rst As Recordset
  Dim nodX As Node
  
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("accountsub", dbOpenDynaset)
  Set nodX = TreeView0.Nodes.Add(, , "A", "دليل الحسابات")
  With rst
    Do While Not .EOF
      Set nodX = TreeView0.Nodes.Add("A" & CStr(Nz(!no_account)), tvwChild, "A" & CStr(!no_subaccount), CStr(!no_subaccount) & ":" & !name_subaccount)
      nodX.EnsureVisible
      .MoveNext
    Loop
  End With
  rst.Close
  Set dbs = Nothing
  For Each nodX In TreeView0.Nodes
   nodX.Expanded = False
   nodX.Sorted = True
  Next

تم تعديل مايو 23, 2015 بواسطه السيد الجوهرى

[السيد الجوهرى]

تم حل المشكلة

شكرا  لكل من تفاعل