نجوم المشاركات

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

في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

وين تجربتك علشان نساعدك في المكان اللي تةقفت فيه !! هذا المرفق هو نفس المرفق في مشاركتك الاولى !! على العموم ، وكما اخبرتك بأن هناك اكثر من طريقة ، تفضل 3 طرق لعمل الترقيم التلقائي للمواد : Private Sub Name_AfterUpdate() '1 DMax 'only work if the field is empty ' If Len(Me![Number] & "") = 0 Then ' Me![Number] = Nz(DMax("[Number]", "tblName", "[typeID]=" & Me.Parent!typeID), Me.Parent!typeID) + 1 ' End If '2 Dcount 'only work if the field is empty ' If Len(Me![Number] & "") = 0 Then ' Me![Number] = DCount("*", "tblName", "[typeID]=" & Me.Parent!typeID) + Me.Parent!typeID + 1 ' If Me![Number] = 0 Then ' Me![Number] = Me.Parent!typeID + 1 ' End If ' End If '3 Recordset 'only work if the field is empty If Len(Me![Number] & "") = 0 Then Me![Number] = Me.Recordset.RecordCount + Me.Parent!typeID + 1 End If End Sub جعفر 1518.Code.accdb.zip

تفضل أخي @أكسس وبس 🙂 تضع هذا الكود في حدث قبل الإدراج للنموذج الفرعي ( وهو نفس كود الأستاذ جعفر بتصرف ) : Private Sub Form_BeforeInsert(Cancel As Integer) Me.Number = Nz(DMax("[Number]", "[tblName]", "[typeID] =" & [Forms]![TypeNam]![ID] & ""), [Forms]![TypeNam]![ID]) + 1 End Sub Code.rar

السلام عليكم استخدام عدة جداول اكثر مرونة حيث يمكن اجراء بعض العمليات التي يصعب عملها من خلال الجدول الواحد هذه وجهة نظري ولعل اهل الخبرة في هذا المجال من اخوتك هنا يدلون بتجاربهم

ما عرضه الأخ @عبد الله قدور أراه مثاليًا ، وكما أوضحت سابقا يمكن عمل دالة لإرجاع قيمة المستوى لتفادي أخطاء الإدخالات.

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

كان لازم اخي تضيف هذا الكود في حدث الشيت 😄 Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect If Not Intersect(Sheets("Sheet1").Range("N9"), Target) Is Nothing Then Range("N24").Value = Range("N24").Value + 1 End If ActiveSheet.Protect End Sub جرب اخي الكريم الملف المرفق اضافة رقم الطباعة.xls

لا أرى أي فائدة لعمل عدة جداول ، العملية سهلة ليش نصعبها ونعقدها؟! ، جدول واحد ويمكن عن طريق الاستعلام ترتيب الحسابات حسب ربطها الصحيح ويمكن عمل دالة لاستخراج مستوى الحساب إذا كان مطلوب مع أني لا أرى فيه فائدة. يفضل استخدام الأكواد الرقمية وليكن كتابتها بشكل يسمح لها بالترتيب الصحيح. والرأي لكم.

أنا شكلي استعجلت ودخلت بالعرض 😅

ماشي ما أحبه 😂😁

وعليكم السلام 🙂 في الواقع هناك عدة طرق لتنفيذ اي طلب في الاكسس ، وبالنظر الى طلبك ، فاخوي احمد اعطاك رابط الجواب العام والاسهل ، طبعا مع اختلاف اسماء الحقول والجدول ، وانت مبرمج وادرى بهذه الامور : . . ارفق لنا عملك في الكود اعلاه ، وخلينا نساعدك في المكان اللي توقفت فيه. جعفر

وعليكم السلام اخي عمار 🙂 للأسف لا دراية لدي عن التحزيم ، فجوابي هنا عن الاكسس 😁 في الكود اعلاه ، انت لا تفتح تقرير ، وانما تفتح نموذج !! هذه هي الطريقة . فيصبح الكود: Dim stDocName As String stDocName = "PrintPreviewFrm" DoCmd.OpenReport stDocName, acViewPreview جعفر

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم جميعا سامحوني لم استطع ان اقرا ماكتب في الموضوع كاملا ، لكني اريد ان اضع فكرة استخدمها في برنامجي المحاسبي ووجدتها في برامج محاسبية اخرى 1- في جدول بطاقة المادة تسمح للمستخدم باضافة ثلاث وحدات لكل مادة مع تحديد معامل التحويل بين كل واحدة ، كما هو متعارف عليه في معظم برامج المحاسبة ، (باستثناء برنامج الفا للمحاسبة يسمح لك باضافة عدد غير محدود من الوحدات ) 2- في جدول الفواتير تضع حقل للكمية يستخدمه المستخدم في ادخال الكمية والوحدة التي يستخدمها في عملية البيع او الشراء ويكون هناك عمود اخر للكمية مخفي يقوم البرنامج بتسجيل الكمية بالوحدة الاولى دائما فيه اعتمادا على عمود الكمية الاولى الذي ادخله المستخدم مثال عندي مادة قلم ازرق اضيفه في جدول بطاقة المادة بالوحدة الاولى قلم و الوحدة الثانية دستة ومعامل التحويل هو 12 (اي كل دستة تحوي على 12 قلم ) في الفواتير يسجل المستخدم في فاتور الشراء 2 دستة (في عمود الكمية الاول ) في عمود الكمية المخفي يقوم البرنامج تلقائيا بكتابة القيمة 24 (2*12) 3- بهذه الحالة اصبح عندك عمود يحوي حركة المادة بالوحدة الاولى دائما تقوم باستخدامه في حساب رصيد المادة ويمكن ان تحول منه للوحدات الاخرى في العرض في حركة المادة

الفكرة التي عملتها واشرت اليها في مشاركتي الاولى وان كان النقاش قد تجاوزها بمشاركة الاساتذة الافاضل اقول الفكرة تعتمد بشكل كلي كما اشرت سابقا ⬇️ العمود الفقري هو جدول الاصناف فلا بيع بدون توفر الصنف ولا شراء بدون وجود ترميز الصنف فاتورة المشتريات هي من يغذي كميات جدول الاصناف اضافة للرصيد الافتتاحي في حالة وجودة المرتجع من فواتير البيع هو بمثابة شراء الاصناف المعادة للمورد بمثابة عملية بيع اذا كانت الفاتورة مدفوعة مسبقا البرنامج بمجملة برنامج بسيط وغير ربحي وكان يوزع بشكل مجاني وفق شروط خاصة تتولاها الجهة المسئولة حينها عن المبادرة اي ان عملية الكتابة تكون فقط في اسم الصنف وسعر الشراء والبيع لمرة واحدة فقط عند ادخال صنف جديد لم يسبق ادخاله وهذا يتوافق مع ما اشار اليه الاستاذ الفاضل @ابوخليل ⬇️ الحقيقة اني بحثت عن نسخة من البرنامج ولكن للاسف ذهبت مع الريح ولم اجد سوى ملف فيديو للنسخة التجربية الاولى وهي نسخة اولية مختلفة بشكل كلي عن النسخة النهائية من حيث التصميم وامور اخرى تتعلق باصلاح بعض الاخطاء والتي لا يتسع المجال لذكرها ولكن مع ذلك ربما تلقي بعض الضوء على الفكرة الاساسية من حيث طريقة الترميز والشراء والبيع بالباركود التي تحدثت عنها واعتذر مقدما اذا لم يكن فيها ما يخدم الموضوع تحياتي

أخي الكريم هذين الملفين معاً فك الضغط عنهما وجرب وأعلمني بالنتيجة إن سمح أمرك والسلام عليكم File Name.rar

السلام عليكم إن أذن لي أستاذنا الكبير أ / محمد صالح ووفق فهمي لسؤالك أخي الكريم يمكنك إضافة عمود بإزاحة بقية الأعمدة إلى اليسار في الملف الأول 2022 ثم تكتب المعادلة التالية في الخلية A2 من نفس الملف 2022 وتسحب نزولاً إلى المدى الذي تريد: =IF(B2="";"";VLOOKUP(B2;CHOOSE({1,2};'[2023.xlsm]المقيمين النشطين'!$B$2:$B$2000;'[2023.xlsm]المقيمين النشطين'!$A$2:$A$2000);2;0)) راجياً لك التوفيق والسلام ختام

السلام عليكم ورحمة الله وبركاته مشاركة مع اساتذتى الافاضل كنا قد تطرقنا الى موضو ع شبيه لذلك وهذا >---->> رابط الموضوع واليكم المرفق بتطبيق الكود من الموضوع الذى تم التنويه عنه بعاليه والشرح تفصيلا موضوح بالموضوع مدة عمل الموظف.accdb

تابعوا معنا طرق التعامل مع البيانات ومعالجتها وتنظيفها في برنامج الاكسل من خلال الحلقة في الرابط أدناه: