كيف يتم ترميز سجلات ثلاث جداول مرتبطة؟ _ ترقيم مخصص

[عبدالرحمن هاشم]

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

 

أساتذتي وإخواني الأفاضل

 

كيف يتم ترميز أو ترقيم جدول أصناف حسب الأصناف الرئيسية والفرعية كمثال شجرة الحسابات؟

المرفق به ثلاث جداول

◘ جدول التصنيف الرئيسي.. وترقيمه 100 و200 و300.. وهكذا

◘ جدول التصنيف الفرعي.. وترقيمه حسب الرئيسي 1001 و1002 أو 2001 و2002 وهكذا

◘ جدول بيان الأصناف.. وهنا تكمن المشكلة في نموذج إدخال الأصناف Indx_item

حيث أريد أن يتم الترقيم بعد اختيار التصنيف الرئيسي والفرعي

فمثلا اخترت الكود 100 والفرعي تبعه 1001.. أريد بعد إدراج تفاصيل الصنف أن يكون 100101 ويبدأ من جديد طبقا لآخر سجل حسب الصنف المختار ولا يرقم تسلسليا مثلما يفعل الآن على الأصناف ككل

 

أرجو أن أكون وفقت في إيصال طلبي وأعتذر عن الإطالة

 

ولو تكرمتم مشكورين إبداء رأيكم في تلك الفكرة فهل ستكون سهلة على المستخدم أم أنها ثقيلة وغير مستحسنة؟

 

جزاكم الله عنا كل خير

Items.rar

[ابو جودي]

طب معلش اتاقل على حضرتك فى الاسئله واتحملنى علشان اقدر افهم كويس 

 

انا فتحت النموذج

 

التصنيف الرئيسي   LapTop       الكود   200

التصنيف الفرعى       Dell         الكود    2002

 

 

 

حضرتك عاوز الترقيم يبدأ بـ    200201     ده اللى انا فمته تمام

بس اللى انا مش عارفه الترقيم ده مفروض يبقى فين ؟.         فى كود الصنف ؟

[عبدالرحمن هاشم]

ايوة استاذي محمد هيكون في الحقل item_No بالجدول Detls_Items

 

الترقيم شغال لكن للأسف بيرتب حسب الاصناف كلها على بعضها

وانا عايزه يرقم حسب آخر صنف في الصنف اللي بيدخل فيه الايتم الجديد

 

يعني مثلا دخلت اخترت

Laptop كود 200

صنف dell كود 2002

وكتبت فيه مثلا بيانه i7 - hd500 يبقى رقمه 200201

 

ولما اجي اختار اختيار جديد PC كود 300

صنف Compac كود 3001

يبقى اللي هيتكتب في بيان الصنف دة يكون ترقيمه 300101

[ابو جودي]

طيب ما تعمل تلات جداول لكل تصنيف رئيسى

[عبدالرحمن هاشم]

ماهو فعلا موجود ثلاث جداول Indx_Item - Sub_Items - Detls_Items

ولا تقصد ايه؟

[ابوخليل]

السلام عليكم

بعد اذنكم مداخلة

استاذ عبدالرحمن 

 

تقصد  انك تريد لكل صنف ترقيمه الخاص داخل جدول التفاصيل ؟

 

بغض النظر عن الصنف الرئيسي لانه داخل ضمن الفرعي .. هل هذا صحيح ؟

[ابوخليل]

اذا كان فهمي صحيح

هذا كود يقوم بالمهمة  سحبته لك من مشاركة لمشرفنا القدير الاستاذ ابو عمر

item_No = ([Num_itemSub] * 100) + DCount("item_No", "[Detls_Items]", "Num_itemSub=" & [Num_itemSub]) + 1

 وهذا مثالك بعد تحويله الى mdb

db1.rar

[عبدالرحمن هاشم]

الله ينور عليك أستاذي أبو خليل هو المطلوب

خالص تحياتي أستاذي محمد عصام

جزاكم الله خيرا جميعا