• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'الدليل'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 2 نتيجة

  1. الأخوة الكرام  شهر مبارك وكل عام والجميع بألف خير  استفدت كثيرا من شروحات الأخوة الأعضاء حول الدليل المحاسبي واخص بالذكر الاستاذ كمال النحال    في المرفق شجرة الحسابات التي أعدها الاستاذ كمال مع تعديل طفيف    سؤالى انني لاحظت في كثير من البرامج المحاسبية وضع جدول للصندوق أو جدول للبنوك بجانب الدليل المحاسبي بحيث اني لو رغبت في اضافة صندوق اضيفه في الدليل المحاسبي ثم اذهب الى الجدول واضيفه مرة اخرى واربطه برقم الصندوق في الدليل المحاسبي لماذا لا يكون ذلك في الدليل المحاسبي مباشرة  حيث ان مستخدم البرنامج قد لا يجيد اضافته في الدليل المحاسبي   في المرفقات فكرة لإضافة الصناديق والبنوك مباشرة في الدليل لتسهيل العملية  افيدوني هل هذه الطريقة صحيحة    وجزاكم الله خير    Tree view.rar
  2. Private Sub Form_Load() Dim DBS As Database Dim rst As Recordset Dim nodX As Node Set DBS = CurrentDb Set rst = DBS.OpenRecordset("custmer", dbOpenDynaset) Set nodX = TreeView1.Nodes.Add(, , "A", "الدليل") With rst Do While Not .EOF Set nodX = TreeView1.Nodes.Add("A" & CStr(Nz(!ParAcc)), tvwChild, "A" & CStr(!AccID), CStr(!AccID) & ":" & !ArAccDes) nodX.EnsureVisible .MoveNext Loop End With rst.Close Set DBS = Nothing For Each nodX In TreeView1.Nodes nodX.Expanded = False nodX.Sorted = True Next End Sub