[ تمت الإجابة ]نموذج غير منضم وبه شجرة الحسابات

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

ماشاء الله عليك أستاذي الكريم ... تصميم جمالي وبرمجي رائع ... الله يعطي العافية

وبالنسبة لسؤالك ... أتمنى أن أكون فهمت مرادك

وسيتحقق بإستخدام الكود التالي ... وهو حدث TreeView1_NodeClick

Private Sub TreeView1_NodeClick(ByVal Node As Object)
If Node.Key = "A" Then Exit Sub
Dim Str As String
Str = Left(Node.Text, InStr(Node.Text, ":") - 1)
Set Q1 = CurrentDb.OpenRecordset("select * from Accounts where AccId = '" & Str & "'")
If Q1.RecordCount > 0 Then
   SVE.Caption = "تعـــديــل"
   Me.AccID = Q1!AccID
   Me.ArAccDes = Q1!ArAccDes
   Me.EnAccDes = Q1!EnAccDes
   Me.ParAcc = Q1!ParAcc
   Me.EnParDes = Q1!EnParDes
   Me.ArParDes = Q1!ArParDes
   Me.AccLevel = Q1!AccLevel
   Me.IsPrimary = Q1!IsPrimary
   Me.S = Q1!S
   Me.X = Q1!X
   Me.Notes = Q1!Notes
End If
End Sub

وبالتوفيق

koao_db1.zip

أخي العزيز :clapping:

مليون تحية طيبة لك ...

بارك الله فيك على هذا الكود الرائع .. شكراً لك وسدد الله خطاك .. اللهم آمييييييييييييييييييييييين.

أخي الفاضل

هل يمكنك عمل تحديث لشجرة الحسابات؟؟؟؟ بمعنى عند تخزين حساب جديد يظهر هذا الحساب في شجرة الحسابات بمجرد التخزين.

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

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

وبالتوفيق

koao_db1new.zip

koao كتب:

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

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

وبالتوفيق

بارك الله فيك أخي على التعديل وشكراً لك على مجهوداتك

اود ان اشكر كل شخص قائم على هذا المنتدى لاني بصراحة استفدت الكثير الكثير من هذا المنتدى ، اخي العزيز ،، اسمح لى اخي ان اطلب منك تعديل بسيط في كود النموذج باعتبار حقل AccID الموجود في جدول Accounts حقل رقمي وليس حقل نصي فارجواااااااااااااااا منك المساعدة وبارك الله فيك ودمتم بالف خير والسلام ختام

للرفع

تفضل أخي yahya76

حقل AccID الموجود في جدول Accounts أصبح حقلا رقميا كما طلبت

أنظر للكود وتتبع المتغيرات بين المثالين لتتعرف على ماتم تعديله .. موفق

koao_db1new.rar

ماشاء الله عليك اخي كمال برنامج رائع وسيكون مفيدا لنا باذن الله

اخي koa كل التقدير والاحترام على جهودكم

بسم الله الرحمن الرحيم شكراً للاخ / اكسير الحياة على لما لمسناه من مجهود متميز فى جميع الموضوعات ولا يسعنا سوى تقديم خالص الشكر والتقدير للقائمين على الموقع والسادة الأعضاء متنين لهم دوام التقدم ، ودمتم بحفظ الله ورعايته .

وفقكم الله ورعاكم .. تمت الاجابة وبالله التوفيق