استعلام غريب حيرنىيعتمد على قيمة الصف السابق

أرفق مثال حتى يتم تطبيق الحل عليه

تم ارفاق مثال

طبعا انا حسبتها بنفسى فى الجدول بس انا عاوز استعلام يحسبها اتوماتيك

pipe.rar

UP

للرفع للاهمية

الغوث يا قوم

يا جماعة حد يعبرنى والله احترت مش عارف اعمل ايه

السلام عليكم

أخي الكريم ممكن توضح كيفية حساب ما تريد

لانه غير واضح

يا ريت توضح أكثر

السلام عليكم

الاخوة الكرام وأعضاء المنتدى الافاضل

لكل ماسورة وزن وعليه فان لكل خط وزن ويتم حساب وزن الخط بوزن المواسير المكونة له

ولكن اذا كان هناك ماسورة غير منتهية بمعنى لم يتم دهانها او لم يتم لحامها فى الخط فيكون حساب وزن الماسورة كالتالى

-اذا كانت الماسورة منتهية و السابقة لهافى الخط منتهية يتم حساب وزنها الجديد كاملا

-اذا كانت الماسورة منتهية و السابقة لهافى الخط غير منتهية يتم حساب وزنها الجديد نصف وزنها

-اذا كانت الماسورة غير منتهية و السابقة لهافى الخط منتهية يتم حساب وزنها الجديد نصف وزنها

-اذا كانت الماسورة غير منتهية و السابقة لهافى الخط غير منتهية يتم حساب وزنها الجديد صفر

مع العلم بان الماسورة فى بداية كل خط يتم حساب وزنها كاملا سواء كانت منتهية او غير منتهية

وبالتالى نستطيع حساب وزن الخط تراكمى

اذا المطلوب حساب العمودين بالون الاحمر فى الاستعلام

ارجو ان اكون وفقت فى الشرح ويارب تقدروا تساعدونى مع العلم بان عندى حوالى 14000 ماسورة فى 5200 خط تقريبا

للرفع

السلام عليكم

سؤال:- كيف تميز الخطوط?

انا أعتبرت ان كل خط يبدأ بالحرف نفسه

اقتباس

عندى حوالى 14000 ماسورة فى 5200 خط تقريبا

في المرفق استعلام اسمه NewQuery اّمل ان يكون طلبك

اذا هناك طريقة أخرى لمعرفة الخطوط أرجوا توضيحها

وفيه ايضا استعلام أخر لا يعتمد على VBA Code ويمكن استخدام طرق أخرى

والله أعلم

pipe.rar

السلام عليكم

:D

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

اما بعد

استنتاجك صحيح بالنسبة لتمييز الخطوط ولكن انا هنا ضربت مثل اما فعليا فهى بالارقام والحروف مثل:

01-aa-236859

02-aa-236859

01-ab-234259

02-ab-234259 وهكذا

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

هل للاستعلام LongerQuery علاقة بالحل new query

كما ارجو منك -عذرا- شرح بسيط عن new query وعلاقة LongerQuery به وكذلك module1

وما هو الاستعلام الأخر الذى لا يعتمد على VBA Code

وعفوا لازعاجك

واشكرك بشدة مرة اخرى والسلام عليكم ورحمة الله وبركاته

:D

السلام عليكم

حياك الله أخي الكريم

بالنسبة للLongerQuery ليس له علاقة واستخدم الnewquery أفضل

ال newquery هو يستخدم function في ال module

بالنسبة لاسماء الخطوط فيجب أستخدا هذا الاستعلام بدل الاستعلام newquery

SELECT [pipe no], [pipe type], wieght, status, 
nz(
	(select top 1 iif(status='no',0,1) from table1 as t  
	   where t.no =table1.no-1 
	   and mid(t.[pipe no],instr(t.[pipe no],'-')+1)=
		   mid(table1.[pipe no],instr(table1.[pipe no],'-')+1)),
  -1) AS prev_status,
iif(prev_status=-1,wieght,
	iif(status='done',
		iif(prev_status=1,wieght,IIf(prev_status=-1,wieght,wieght/2)),
		iif(prev_status=1,wieght/2,0))) AS new_wieght, TotalWeight(mid([pipe no],instr([pipe no],'-')+1),new_wieght) AS TotalWeight
FROM table1;

والله أعلم

مشكور