الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلقمُجاب
بدأه فرقدي في 19 فبراير 2013 · 2 رد · 784 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

في المرفق قاعدة مبسطة تحتوي على ثلاثة جداول

الجدولين B  و  C  يرتبطان  بالجدول  A

 

عن طريق الحقل   Emp_No

 

قمت بعمل استعلام لربط البيانات وجلبها من الجداول الثلاثة

 

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

 

اريد ان يظهر عدد مرات تكرار  مافي الحقل    a  - b - c - d   في الجدول  C

 

بناء على حقل  Gr   في جدول  B

 

واظهاراها في الحقول حسب الترتيب في النموذج المرفق

 

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

 

 

db1.zip

#2 أفضل إجابة

فى الحقيقة أخى

مطلوبك غير واضح

 

عموما هذا هو كودك بعد تصويبه اتمنى ان يكون هذا ما تريد

 

  a1 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=1 And  [a]=1")  a2 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  =1")  a3 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  [c]=1")  a4 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  [d]=1")   b1 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=2 And  [a]=2")  b2 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=2 And  =2")  b3 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=2 And  [c]=2")  b4 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=2 And  [d]=2")   c1 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=1 And  [a]=3")  c2 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  =3")  c3 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  [c]=3")  c4 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=1 And  [d]=3")   d1 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=4 And  [a]=4")  d2 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=4 And  =4")  d3 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=4 And  [c]=4")  d4 = DCount("[Emp_No]", "zhhz", "[magal]=1 And  [Gr]=4 And  [d]=4")

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

اخي المشرف الفاضل  ابو يوسف

 

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

 

 

بارك الله فيك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…