شجرة حسابات متقدمة

[محب العقيدة]

السلام عليكم ورحمة الله

احاول استخدام شجرة العرض لاول مرة وليس لدي المعلوات الكافية عنها رغم مساوئها 

VBوهذا الرابط ييعطيك مساوئها ومثالا لعمل الشجرة بواسطة 

بالكسل والاكسيس

http://www.jkp-ads.com/articles/treeview.asp?AllComments=True?ref=driverlayer.com

الا انني وجدت نفسي مضطرا لها

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

example1 ان اعدل عليها امرين من قاعدة بيانات سميتها  

example1الاول :للتحديث المياشر للشجرة كما في 

الثاني:عند حذف الحساب الرئيس الاول وليكن الاصول في قاعدة كمال النحال

فانه يحذفه دون جذوره وبالتالي تحدث مشكلة ورسالة خطا عند فتح النموذج مرة اخرى

exampl1والاصل يكون كما في قاعدة

واتمنى لو احد من الخيراء يقوم يالتعديل على قاعدة 

الثانية ويجعلها شجرة حسابات وله جزيل الشكر

 

chart7.rar

تم تعديل نوفمبر 11, 2017 بواسطه محب العقيدة

[محب العقيدة]

ممكن السؤال بطريقة مختلفة

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

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

ومساويءTREEVIW BY ACTIVEX

chart7.rar

[محب العقيدة]

اخواني جاولت ان اطبق التعليمات الموضوعة في قاعدة بدون اكتف اكس في زر How do I؟
How do I add the treeview control to my Access project(s)?
 
You would import the following objects:
subTreeView
clsNode
clsTreeview
modStartup
يقول   صاحب القاعدة
اذا اردت استخدم الشجرة هذه في قاعدة بياناتك فما عليك الا التالي
الابقاء على التالي
في النماذج   النموذج الفرعي subTreeView  
ضعها  ضمن نموذجك الرئيسي كنموذج فرعي وصمم نموذج الرئيسي كما تشاء
في   الوحدات النمطية احتفظ ب
clsNode
clsTreeview
modStartup
read data from tableفي امر 
نقوم بتغير  ما في الاجراء من استدعاء الجداول في قاعدته الى استدعاء الاوامر في قاعدتك التي
تريد تطبيق الشجرة عليها
وانتهى الامر
read data from tableحاولت ان اغير الاجراء في زر 

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

Set dbs = CurrentDb
        ' Open recordset that returns the unique dates from tblClasses
        strSQL = "SELECT DISTINCT StartDate FROM tblClasses"
        Set rst1 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
        ' Loop through the dates
        Do While Not rst1.EOF
            ' Add node
            strKey = "D" & rst1!StartDate
            strCaption = "Date " & rst1!StartDate
            Set cNode1 = cRoot.AddChild(sKey:=strKey, vCaption:=strCaption)
            ' Open recordset that returns the classes for each date
            strSQL = "SELECT ClassID, ClassNumber FROM tblClasses WHERE StartDate=#" & _
                     Format(rst1!StartDate, "mm\/dd\/yyyy") & "# ORDER BY ClassID"
            Set rst2 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
            ' Loop through the classes
            Do While Not rst2.EOF
                ' Add node
                strKey = "C" & rst2!ClassID
                strCaption = "Class " & rst2!ClassNumber
                Set cNode2 = cNode1.AddChild(sKey:=strKey, vCaption:=strCaption)
                ' Open recordset that returns the students for each class
                strSQL = "SELECT StudentID, StudentFullName FROM tblStudents WHERE StudentClassID=" & _
                         rst2!ClassID & " ORDER BY StudentFullName"
                Set rst3 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
                ' Loop through the students
                Do While Not rst3.EOF
                    ' Add node
                    strKey = "S" & rst3!StudentID
                    strCaption = rst3!StudentFullName
                    Set cNode3 = cNode2.AddChild(sKey:=strKey, vCaption:=strCaption)
                    ' Move to nex student
                    rst3.MoveNext
                Loop
                ' Close student recordset
                rst3.Close
                ' Move to next class
                rst2.MoveNext
            Loop
            ' Close class recordset
            rst2.Close
            ' Move to next date
            rst1.MoveNext
        Loop
        ' Close date recordset
        rst1.Close
        ' Clean up
        Set rst3 = Nothing
        Set rst2 = Nothing
        Set rst1 = Nothing
        dbs.Close
        Set dbs = Nothing
        
        ' Create the node controls and display the tree
        .Refresh
    End With

ACCOUNTSارفقت قاعدة بدون اكتف اكس ووضعت  جدول  
من قاعدة كمال النحال  
ACCOUNTSغير انني اريد تغير الاجراء (حيث انه لا يعمل الان بعد حذف جداول القاعدة) واستبداله بجدول  

ACCOUNTSبحيث يستدعي الاجراء جدول

قاعدة بدون اكتف اكس.rar