عبد الفتاح كيرة

أولا جعلت كل حقول جدول العهد مفتاحا أساسيا كى لا يتم تكرار أى عهدة لأى موظف فى نفس التاريخ ثانيا أنشأت استعلام إلحاق لإضافة كل العهد للموظف الثانى ثالثا أنشأت زر أمر فى النموذج لتنفيذ ذلك المرفق برنامج المستودع - kera.rar

وفقكم الله

حقل رقم الموظف هل هو مفتاح أساسى إذا كانت الإجابة نعم فهو لن يتكرر و إذا كانت الإجابة لا فمن خياراتك أن تجعل مفتاحا أساسىا مزدوجا من الحقلين رقم الموظف + التاريخ و بهذا يمكن أن يسمح بتكرار أحدهما ولا يسمح بتكرارهما مجتمعين

مادام الحقل موجودا ضع فيه شرطا مثلا لو هو حقل نعم/لا اجعل المعيار 0

لماذا لم تضف حقلا منتظم/منازل منذ البداية فى تصميم قاعدة البيانات

لاحظ المتغيرين داخل القوسين للوظيفة يتم التعويض عنهما عند استدعاء الوظيفة لاحظ الاستدعاء لابد من ذكر قيمتين مطابقتين لنوعى المتغيرين فى الوظيفة ماشاء الله 3 ردود فى نفس واحد

قمت بإنشاء مربع نص فى نموذج karabs اسمه txt4 فى قسم التفاصيل للنموذج فى حدث عند التلوين وضعت الكود التالى Private Sub تفصيل_Paint() If [Issue Date] < #1/8/2016# Then Me.txt4 = ConsumD0817([Consum]) ElseIf [Issue Date] >= #1/8/2016# And [Issue Date] < #7/30/2017# Then Me.txt4 = ConsumA0817([Consum]) ElseIf [Issue Date] >= #1/8/2017# And [Issue Date] < #7/30/2018# Then Me.txt4 = ConsumB0817([Consum]) ElseIf [Issue Date] >= #1/8/2018# And [Issue Date] < #7/30/2019# Then Me.txt4 = Consumc0817([Consum]) End If End Sub أول نتيجة ظهرت هى .133 مرفق الملف Test 10000-kera.mdb استبدل ب txt4 اسم عنصر التحكم الذى تريد ظهور النتيجة فيه * قمت بتعديل الكود هنا عدله فى الملف لنحقق شرط Between

أنشى وحدة نمطية جديدة و ضع الكود فيها

If("[issue date]"<#01/08/2016#;consumD0817([consum]);If([issue date] >= #01/08/2016# And ([issue date] <=#30/07/2017#;consumA0817([consum]);If([issue date] >= #01/08/2017# And ([issue date] <=#30/07/2018#;consumB0817([consum]);IIf([issue date] >= #01/08/2018# And ([issue date]<=#30/07/2019#;consumC0817([consum]))))

إذن فى حدث قبل التحديث لهذا الحقل ضع ما يلى If DCount("madrsa", "[tblmdaress]", "[madrsa]= '" & Me.Madrsa & "'") > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If وإذا كان الحقل رقميا If DCount("madrsa", "[tblmdaress]", "[madrsa]= " & Me.Madrsa ) > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If استبدل ب madrsa اسم الحقل لديك استبدل ب tblmdaress اسم جدولك بالتوفيق

يعنى حليت المسألة قبل ما نفهمها؟ وفقك الله

على أى أساس تحدد عدد السجلات أو أن ذلك عشوائى؟

استخدم استعلام إلحاق ثم استعلام حذف

لماذا لا تغير فى خاصية الحقل التكرار غير مقبول

مربع عنصر تحكم=لا

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

أغلق مجموعة السجلات ثم اجعلها لا تساوى شيئا لتنظيف الذاكرة العصماء أرجو أن أكون قد أفدتك و لو قليلا وفقكم الله

اجعل حقل غلاف فى rs = المتغير rr وبدايته هنا = 1 لكن طبعا مع الحلقة سيزيد بدون سطر update كأنك لم تعدل فى السجلات بعد تعديل أول سجل و جعل رقم الغلاف = 1 تحقق من هذا الشرط إذا كان باقى قسمة المتغير rrr على 50 = 0 يعنى عدلنا 50 سجلا اجعل المتغير rr الذى هو رقم الغلاف يرجع إلى واحد من جديد انتقل للسجل التالى بدون هذا الانتقال يظل الكود يدور حول السجل الأول و يتوقف البرنامج عن العمل بسبب الحلقة do....... loop زد rrr بمقدار 1

نفذ الآتى من التعليمات حتى كلمة loop ما لم تصل إلى نهاية الريكورد سيت rs rs.Edit بداية التعليمات داخل حلقة do >>> loop أول تعليمة قم بالتعديل فى مجموعة السجلات rs كما يلى

Me ("Labe أول مرة أعرف هذه Me بدون نقطة

معلومات قيمة جدا فى هذا الرابط لكن إظهار الحقول الفارغة فى التقرير مطلوب عندى لحسن الحظ ليعلم أن هذا الحقل غير موجود به بيانات وشكرا لحضرتك على هذه الفوائد الغزيرة و هى محل تقدير و نحتفظ بها لوقت الحاجة إن شاء الله

بارك الله فيكم

و الحل أيضا وجدته فى إحدى عبقرياتك بارك الله فيك و جزاك خيرا بهذا صار الاستعلام الجدولى حلا أمثل

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