الترقيم التلقائي فى دليل الحسابات

وددت لو أستطعت المساعدة 

أرجو أن تجد الجواب المفيد

لعلني أستفيد معك 

انظر لهذا الشرح على يد معلمينا الكرام جزاهم الله كل خير

/index.php/topic/167380--/

عبدالرحمن هاشم كتب:

انظر لهذا الشرح على يد معلمينا الكرام جزاهم الله كل خير

 

/index.php/topic/167380--/

شكرا  لك أخى الفاضل  يبدو انك  لم تقم بتحميل المرفق 

دليل الحسابات غير منضم للجدول فهذا امر اخر غير الرابط الذى ارفقتة انت

وشكرا لك

sayedaaa كتب:

 

ما اريدة الترقيم تلقائيا بداية من اول حساب  دون التدخل من المستخدم

 

اعطني مثال وبالتفصيل لوسمحت ، فانا لا افهم في الحسابات :)

جعفر

شكرا جزيلا لك أستاذ جعفر

ما اريدة  عند الوقوف على بند الاصول يتم زيادة الترقيم  100

مثلا الاصول 1+100  يصبح البند التالى لها 101  ،    102   ،  103  ،،،،،، وهكذا  يكون الترقيم تلقائيا

وعند الوقوف على بند الخصوم   يكون  201  ، 201  ، 203 وهكذا    تلقائيا

وعند الوقوف  على بند الايرادات يبدا الترقيم  من 301 ، 302  ، 303 وهكذا   

وعند الوقوف على بند المصروفات يبدا الترقيم من 401 ، 402 ، 403 وهكذا

مرفق مثال

:rolleyes:  :rolleyes:

TREE_S.rar

تفضل يالسيد :)

معادلتك الآن اصبحت:

Private Sub TreeView0_NodeClick(ByVal Node As Object)
On Error GoTo err_TreeView0_NodeClick

lblItemCode.Caption = ""
If Node.Key <> "Root" Then
   lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1)
End If
lblPath.Caption = Node.FullPath

    Dim colon As Integer
    
    colon = InStr(Node.Text, ":")
    Me.txt3 = Mid(Node.Text, 1, colon - 1)
    Me.Txt4 = Mid(Node.Text, colon + 1)
    
    colon = InStr(Node.Child, ":")
    If colon = 0 Then
        Me.txt1 = (Val(Mid(Node.Text, 1, InStr(Node.Text, ":") - 1)) * 100) + 1
        'Me.txt1 = ""
    Else
        Me.txt1 = Val(Mid(Node.Child, 1, colon - 1)) + Node.Children
    End If
   

On Error Resume Next
Debug.Print "node.Child; " & Node.Child
Debug.Print "node.Children; " & Node.Children
Debug.Print "node.Expanded; " & Node.Expanded
Debug.Print "node.FirstSibling; " & Node.FirstSibling
Debug.Print "node.FullPath; " & Node.FullPath
Debug.Print "node.Index; " & Node.Index
Debug.Print "node.Key; " & Node.Key
Debug.Print "node.LastSibling; " & Node.LastSibling
Debug.Print "node.Next; " & Node.Next
Debug.Print "node.Parent; " & Node.Parent
Debug.Print "node.Previous; " & Node.Previous
Debug.Print "node.Root; " & Node.Root
Debug.Print "node.Selected; " & Node.Selected
Debug.Print "node.Sorted; " & Node.Sorted
Debug.Print "node.Tag; " & Node.Tag
Debug.Print "node.Text; " & Node.Text
Debug.Print "----------------------"

Exit Sub
err_TreeView0_NodeClick:

    If Err.Number = 91 Then
        colon = 0
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

جعفر

بيض الله وجهك 

وزوجك من حور الجنة 

واسقاك من نهر الكوثر 

وشكرااا   لك

حياك الله اخوي :)

للعلم ، السطور اللي تبدأ بـ Debug.Print هي سر ايجادي حل اسئلتك :)

انا من البداية بحثت عن جميع اواومر Tree View ورتبتها في الكود عندك ، ومنها آخذ ما اشتهي :)

علشان تشوف النتائج اللي تعطينا هذه الاسطر:

1. ادخل في الكود ،

2. View > Immediate window ، الآن تنفتح لك نافذة تحت الكود ،

3. اذهب للنموذج واضغط على اي من نقاط\مسميات الشجرة ، وتعال شوف شو الاختيارات اللي تحصلها :) ، وطبعا الاختيارات تختلف على حسب اي نقطة\مسمى انت ضغطت عليه في النموذج :)

جرب وشوف :)

جعفر

مرة  اخر  شكرااا جزيلا أستاذ جعفر  

فعلا تم التجربة   

وكلام صحيح  100%