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

حفظكم الله و رعاكم 

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

لدى حقل لرقم الفصل  وحقل مجموع الطالب فى السنة السابقة

أرغب فى ملء هذا الحقل حسب النمط التالى بالتتابع

حيث يتم ترتيب مجموع التلاميذ تنازليأ و النمط هو

مثلا 5 فصول

1_2_3_4_5

2_3_4_5_1

3_4_5_1_2

4_5_1_2_3

5_1_2_3_4

وهكذا بحيث تتحقق أكبر نسبة من التوازن بين مجموع المجاميع فى الفصول

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

وفقكم الله

السلام عليكم

كل عام و أنتم بخير

على قدر ما فهمت

عند كتابة تاريخ فى datename

يتم فحص الشهر فى هذا التاريخ 31/30/28/29

بدون تدخل

و على حسب نتيجة الفحص

يتم تحديد أحد مربعات الاختيار فى etar

الخطوات

أولا غيرت حقل datename إلى تاريخ

ثانيا : هذه وظيفة لحساب عدد أيام أى شهر فى أى تاريخ

تكتب فى نفس المودويل

Function EndOfMonth(mDate As Date) As Variant
        EndOfMonth = Day(DateSerial(Year(mDate), Month(mDate) + 1, 0))
End Function

ثالثا فى حدث "بعد التحديث " ل datename

نكتب الكود التالى

Private Sub DateName_AfterUpdate()
Select Case EndOfMonth(Me.DateName)
        Case 31
                Me.etar = 2
        Case 30
                Me.etar = 1
        
        Case 28
                Me.etar = 3

End Select
End Sub

و هذا ملفك بعد التعديل

وفقكم الله

ProgEmp20.rar  

كل عام وانتم بخير 

شكرا لكم

تم حل المشكلة

جعلت المتغير رقما من نوع double

وغيرت خصائص الحقل إلى ثابت

ولا أدرى لأيهما الفضل فى الحل

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

السلام عليكم

كل عام و أنتم بخير إخوتى الكرام

لدى كود برمجى يرجع فى أحد سطوره .5   يعنى نصف

i=i+.5

المشكلة أنه يرجع واحدا صحيحا

و السؤال

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

المفروض فى التواجد الجزئى الذى يساوى 2 أن يرجع الكود نصفا

وفقكم الله

Private Function getcountW(ss2 As Double) As Double
Dim i As Integer
Dim skn As Integer
i = 0
skn = Me.kn
    Do Until rs.EOF
        If rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 1 Then
                    i = i + 1
        
       ElseIf rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 2 Then
                    i = i + Fix(0.5)
       
        End If
        rs.MoveNext
    Loop
  getcountW = i
    rs.MoveFirst
End Function

الحل الخامس

هو المذكور فى مشاركة الأخ رضوان

وهو بفلترة ال recordset

الحلول التى توصلت لمعرفتها من البحث فى الشبكة فى الملفات التالية

انظر إلى البارامتر فى الاستعلام و البارامتر فى الكود فى حدث الحالى للفورم

https://drive.google.com/folderview?id=1Kz0GHr3zRO5ycXYalkvFJiEwcCtnbT1l

سأقوم بشرح الطرق إن شاء الله

عند فتح الكمبيوتر

ربما تفيدنا الصور فى شرح بعض الطرق

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

لكن هل يزال الأخ يحتاجها

من 2005

؟

اكتب الكود هنا

أنشئ استعلام تحديث

فى معيار الحقل الذى تريد تحديثه

اجعل القيمة إحالة لمربع النص فى النموذج

بعد ذلك فى النموذج أنشئ زرا لتشغيل هذا الاستعلام

وفى نهاية الكود حدث النموذج

اكتب كود الحفظ هنا

هناك نوعان من الاستعلامات

الأول استعلامات تنتج سجلات كاستعلام التحديد

وهناك استعلامات تنفذ إجراءات كاستعلام التحديث و الحذف

استخدم

DoCmd.openquery

إذا كنت تفتح التقرير من زر أمر فى نموذج

ضع الكود التالى لفتح التقرير و تمرير اسم الحقل الذى تريد الترتيب حسبه

وهو فى هذا المثال حقل اسمه name

DoCmd.OpenReport "YourReportName", acViewPreview, , , , "Names"

ثم فى حدث عند الفتح للتقرير

ضع الكود التالى
Me.OrderBy = Me.OpenArgs
Me.OrderByOn = True

وفقك الله أخى الكريم

وفقك الله أخى الكريم

السلام عليكم

بعد غيبة طويلة عن هذا المنتدى

للسكنى فى البيت المجاور

بيت الأكسيس

أقدم لكم هذا الرابط المفيد جدا

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

https://excelchamps.com/blog/useful-macro-codes-for-vba-newcomers/

مع الشكر الجزيل

المهم عندى

سؤال

هذه المعرفة ب ال  classes تفيد المبرمج و تفتح له آفاقا جديدة

أم أن لها بدائل فى الوظائف و الإجراءات العادية

بمعنى آخر

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

وفقكم الله

موضوع كبير و مطلوب

موضوع كبير و مطلوب

وفقنا الله و إياكم لما يحب و يرضى

وجعل عملكم و عملنا خالصا لوجهه الكريم

جزاك الله خيرا أخانا المحترم أبا خليل

جزاك الله خيرا أبا خليل المحترم

حاولت تنفيذ الاستعلام الفرعى منفردا لرؤية نتائجه

لكنه لم يتعرف على الحقل الموجود فى النسخة المستعارة من الجدول tagrs

ممكن أبا خليل تصور لى نتيجة الاستعلامين  مشكورا كى أتخيل طريقة الحل؟

شكرا لك على الرد والاهتمام

عمالقة أوفيسنا الكرام

لأنى أثق فى علمكم

أود شرحا لطريقة الحل هذه

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

هل من شرح لهذه الطريقة أخى الوزير

@AlwaZeeR

و الله النتيجة مبهرة و الحمد لله

لكن هذه الجمل تحتاج لشرح مفصل 

و فائدة الترتيب التصاعدى و التنازلى فى الاستعلامين

فتفضل بشرح ذلك

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

أشكرك أخى الفاضل

سأشاهد الملف على الكمبيوتر عند العودة من العمل إن شاء الله

وحسب الصورة فالنتائج صحيحة