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

وفقكم الله

حقل رقم الموظف هل هو مفتاح أساسى

إذا كانت الإجابة نعم

فهو لن يتكرر

و إذا كانت الإجابة لا

فمن خياراتك أن تجعل مفتاحا أساسىا مزدوجا من الحقلين

رقم الموظف + التاريخ

و بهذا يمكن أن يسمح بتكرار أحدهما

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

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

مثلا لو هو حقل نعم/لا

اجعل المعيار 

0

لماذا لم تضف حقلا 

منتظم/منازل

منذ البداية فى تصميم قاعدة البيانات

1 ساعه مضت, ابوخليل said:

Public Function ConAmnt(a As Date, b As Double)

لاحظ المتغيرين داخل القوسين للوظيفة

يتم التعويض عنهما عند استدعاء الوظيفة

1 ساعه مضت, ابوخليل said:

Consume_Amount: ConAmnt([issue date];[Consum])

لاحظ الاستدعاء

لابد من ذكر قيمتين مطابقتين لنوعى المتغيرين فى الوظيفة

ماشاء الله 

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 اسم جدولك

بالتوفيق

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

وفقك الله 

على أى أساس تحدد عدد السجلات

أو أن ذلك عشوائى؟

استخدم استعلام إلحاق

ثم استعلام حذف

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

التكرار غير مقبول

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

بارك الله فيك أستاذنا أبا خليل

هل البرنامج لجدول عام واحد أو لأكثر من عام

ولو كان لأكثر من عام

فما هو الحل عند تغير عدد الفصول فى كل صف لكل عام

في ١٠‏/٧‏/٢٠١٨ at 01:15, عبد الفتاح كيرة said:

rs.Close Set rs = Nothing

أغلق مجموعة السجلات

ثم اجعلها لا تساوى شيئا

لتنظيف الذاكرة العصماء

أرجو أن أكون قد أفدتك و لو قليلا

وفقكم الله

في ١٠‏/٧‏/٢٠١٨ at 01:15, عبد الفتاح كيرة said:

rs!kolaf = rr rs.Update

اجعل حقل غلاف فى rs  =

المتغير rr

وبدايته هنا = 1

لكن طبعا مع الحلقة سيزيد

بدون سطر update 
كأنك لم تعدل فى السجلات

في ١٠‏/٧‏/٢٠١٨ at 01:15, عبد الفتاح كيرة said:

If rrr Mod 50 = 0 Then rr = rr + 1 End If

بعد تعديل أول سجل و جعل رقم الغلاف = 1

تحقق من هذا الشرط

إذا كان باقى قسمة المتغير rrr  على 50 = 0

يعنى عدلنا 50 سجلا

اجعل المتغير rr الذى هو رقم الغلاف يرجع إلى واحد من جديد

في ١٠‏/٧‏/٢٠١٨ at 01:15, عبد الفتاح كيرة said:

rs.MoveNext rrr = rrr + 1 Loop

انتقل للسجل التالى

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

do....... loop

زد   rrr بمقدار 1

في ١٠‏/٧‏/٢٠١٨ at 01:15, عبد الفتاح كيرة said:

Do Until rs.EOF

نفذ الآتى من التعليمات حتى كلمة  loop

ما لم تصل إلى نهاية الريكورد سيت rs

rs.Edit

بداية التعليمات داخل حلقة  do >>> loop

أول تعليمة 

قم بالتعديل فى مجموعة السجلات rs

كما يلى

Me ("Labe

أول مرة أعرف هذه

Me

بدون نقطة

معلومات قيمة جدا فى هذا الرابط

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

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

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

و الحل أيضا وجدته فى إحدى عبقرياتك

بارك الله فيك و جزاك خيرا

بهذا صار الاستعلام الجدولى حلا أمثل

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

و لو فرضنا أن حقلا خلا من أيه بيانات

فلن يظهر أصلا فى الاستعلام الجدولى

هذه طريقة أخرى أقوم بشرحها لعل الإخوة يستفيدون منها

باستخدام crosstab

عناوين الصفوف = رقم الصف و رقم الفصل

و عمود حالة القيد بعد تعديلها بحقل nhq 

و هذا شكل الاستعلام الجدولى

و هذه نتيجة تشغيله

و هذا تقرير مبنى على الاستعلام الجدولى

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

والملف مرفق نرجو الاطلاع و إبداء الرأى

mezanya-kera.accdb

ولى سؤال هام جدا

لو فرضنا - وهذا مستبعد لدينا - أنه فى إحدى السنوات لم يوجد طالب معيد فى أى صف من الصفوف الثلاثة

النتيجة : سيختفى حقل معيد من الاستعلام الجدولى

و سيظهر خطأ فى التقرير المبنى عليه

ما رأيكم فى هذه المشكلة؟

وشكرا للأستاذ جعفر