عمل خصم للأخوات

اخي الكريم    تحية طيبة

اليك ملفك بعد اجراء التعديلات عليه وبطريفتين وفقا لما طلبت

disc.rar

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

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

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

فلنفكر سوية واعضاء المنتدى بالطريقة الانسب  والحساب على مستوى كل فرد لن يكون الا وفقا لما اروردت في الملف المعدل وبالطريقة التي تختار الاولى او الثانية 

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

تمنياتي لكم  بالتوفيق

اخى الفاضل شكرا على الاهتمام 

اعتقد ان اسم الاب هو المؤشر الوحيد ان مسئولية عدم تكراره ستكون على مراجعى النظام وحتى فى حالة تشابه اسماء الاب سيتم وضع القاب عائلية حتى يتم انهاء المشكلة وبفرض عدم وجود اسم سيتم تعديل الخصم يدويا 

اخي الكريم اخترت مؤشرا  ربما اكثر فاعلية من اسم الاب وهو  ال 15 حرف الاخيرة من كل اسم  سيما وانك اوردت حقلا واحدا للاسم ولم تورد ثلاث حقول  الاسم الاول  الاب  اللقب

الحساب في المثال السابق يتم تصفية النموذج وفق المؤشر الذي وضعته فتظهر اسماء الاخوة وكل حسب اشتراكه وفق ترتيبه  ثم في تذييل النموذج اجمالي  اشتراكات الاخوة

اتمنى ان تعجبك الفكرة

بالتوفيق إن شاء الله

disc.rar

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

مجهود مشكور ولكن تواجهنى مشكلة ان اخر 15 رقم قاعدة غير دقيقة لانها من الممكن أن تحسب الخصومات لابناء العمومة  :huh: وانا متأكد أنه توجد وسيلة لاستخدام اسم الاب حتى لو بنسبة اخطاء وان يقوم الكمبيوتر عن طريق loop باحتساب الخصم

تمنياتى بالتوفيق

اخى الكريم

المقارنة عن طريق الاسم شىء صعب جدا ( ليس من الناحيه البرمجيه )

و لكن من الناحيه العمليه

لأن أى خطأ املائى سيؤثر بالنتائج

ناهيك عن تشابه الاسماء و ادخال الاسم بشكل غير كامل

لذلك يجب ان تعتمد على شىء ثابت

مثل الرقم القومى

على اى حال هذه داله ترجع اسم الاب

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

Public Function FatherName(ByVal Str As String) As String
On Error Resume Next
Dim st
st = Split(Str, " ")
FatherName = ""
If Len(Str & "") = 0 Then Exit Function
For i = 1 To UBound(st)
FatherName = FatherName & " " & st(i)
Next
End Function

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

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

اعتقد ان الامر ببساطة ان يكون هناك اختيار yes/no  هل لدية اخوة  بالمدرسة و اختيا اخر عدد الاخوة
و هذا بيان طبيعي ان يملؤة شئون الطلاب . و كان يحدث فعلا معنا في كثير من مدارس الاولاد ان اجد هذا الاختيار في الاستمارة

و ساعتها سيكون الامر برمجيا بمنتهي اليسر باستخدام قاعدة if

تطبيقا للدالة التى وضعتها من قبل

ضع هذا الكود بالنموذج

و بمجرد تحريك المؤشر الى حقل الخصم سيتم الحساب مباشرة

Private Sub Discount_GotFocus()
On Error GoTo ExitHandler
If Len(StName & "") > 0 And Len(GradeID & "") Then
Dim Brothers As Recordset

strSQL = "SELECT * FROM Students WHERE (((FatherName([StName])) ='" & FatherName(Me.StName) & "') And ((Students.GradeID) >" & Me.GradeID & ")) ORDER BY Students.GradeID DESC;"
Set Brothers = CurrentDb.OpenRecordset(strSQL)
If Brothers.RecordCount > 1 Then Brothers.MoveLast: Brothers.MoveFirst

Me.Discount = 0
If Brothers.RecordCount > 0 Then
    Me.Discount = ((Brothers.RecordCount - 1) * 5) + 10
End If
End If

ExitHandler:
    Set Brothers = Nothing
    Exit Sub
End Sub

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

الاخ vbnetvbnet

شكرا للنصيحة ولكن الرقم القومى للأب ليس من ضمن البيانات المسجلة حاليا 

الاخ ahmedhosen

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

الاخ ابو يوسف

لقد وضعت هذا الكود كما قلت تماماً فى حدث التركيز للحقل Discount ولكنه يعطى رسالة خطأ عند كلمة FatherName  

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

ويقوم بوضع الخصم المناسب له