شجرة الحسابات

[محمد الخدر52]

السلام عليكم معي استفسار 

عملت شجرة حسابات كائن tree view 

اريد مثلا البحث داخل شجرة الحسابات

ماهو الكود اللي يمكنني البحث داخلها

[عمر ضاحى]

اول شئ بتحتاج عمل نموذج رئيسي واخر فرعي

وتعمل استعلام جديد 

وتعمل مربع نص للبحث بواسطته 

وفى الاستعلام تضع هذا الكود فى المعيار

Like "*" & [Forms]![Form Name]![NameTXTBox].[Text] & "*"

 

والنموذج الفرعي هيكون مصدر البيانات ليه هو الاستعلام الجديد 

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

 

تم تعديل فبراير 9, 2022 بواسطه عمر ضاحى

[محمد الخدر52]

عفو استاذ عمر

انت لم تفهمني

انا عملت شجرة حسابات عن طريق اداة

microsoft treeview control 6.0

اريد البحث داخل هذي الادة

بمعنى نموذج اسمه شجرة الحسابات وفيه اداة microsoft treeview control 6.0 وفي النموذج مربع نص مثلا ادخلت اصول متداولة وعملت زرار بحث اريد البرنامج ان يبحث في الادة عن الاصول المتداولة

[Eng.Qassim]

جرب هذا الكود

Private Sub cmdFind_Click()
 Dim NodX As Node
        Dim lNod As Node
     
            For Each NodX In TreeView1.Nodes
                If NodX.Text = UCase(txtFind.Text) Then
                    lNod = NodX
                    NodX.Selected = True
                    TreeView1.SetFocus
                End If
            Next
End Sub