استعلام من اكثر من جدول والنتيجة في النموذج الفرعي ؟

[ابو عبدلله]

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

 وبعد التحية للجميع

هل نستطيع عمل هذا الاستعلام و تظهر النتائج في النموذج الفرعي ؟؟ 

ولكم جزيل الشكر والتقدير  والدعاء للجميع

stu.rar

[essam rabea]

عسى يكون المطلوب

stu.accdb

[ابو عبدلله]

12 ساعات مضت, essam rabea said:

عسى يكون المطلوب

 

بارك الله بك اخي الكريم  ولكن المطلوب عرض اسماء الطلاب الذين لهم نفس النموذج الفرعي لاسم الطالب الذي كتب بمربع البحث

انظرو الصورة

stu2.rar

[ابو عبدلله]

للرفع

[ابو عبدلله]

للرفع

[midomashakel]

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

جمعه مباركة للجميع

 

اتمنى يكون هذا هو المطلوب

 

FilterResult.accdb

[ابو عبدلله]

4 ساعات مضت, midomashakel said:

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

جمعه مباركة للجميع

 اتمنى يكون هذا هو المطلوب

 

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

وبارك الله بكم ولكن لا اريد البحث عن الطالب نفسه بل الطلاب اللذين لديهم الكورسات نفسها والدرجة نفسها للطالب الذي كتب في مربع النص 

ارجوكم المساعدة ؟؟؟؟؟

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

[midomashakel]

هل هذا ما تريد الاخ الكريم

الحل بالمرفقات

FilterResultFinal.accdb

[ابو عبدلله]

22 ساعات مضت, midomashakel said:

هل هذا ما تريد الاخ الكريم

 

السلام عليكم وبعد الشك الجزيل 

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

هل من حل جزاكم الله عنا كل خير 

[midomashakel]

ممكن ترفق صورة توضيحية للمطلوب

 

[ابو عبدلله]

في 3/16/2019 at 10:54, ابو عبدلله said:

بارك الله بك اخي الكريم  ولكن المطلوب عرض اسماء الطلاب الذين لهم نفس النموذج الفرعي لاسم الطالب الذي كتب بمربع البحث

انظرو الصورة

stu2.rar 178.9 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 11 downloads

 

منذ ساعه, midomashakel said:

ممكن ترفق صورة توضيحية للمطلوب

 

اي عند كتابة اسم الطالب عبدالله في مربع البحث 

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

اي اريد ان يظهر اسماء الطلاب فقط التي لهم نفس كورسات و نتائج "نموذج فرعي" لاسم الطالب الذي كتب في مربع البحث

هل نستيطع عمل هذا الاستعلام ؟؟

تم تعديل مارس 30, 2019 بواسطه ابو عبدلله

[midomashakel]

المفروض التطابق هيكون في احتمالين فقط

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

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

على فكرة المرفق بيعمل كدا

بيجيب اسماء الطلاب المشتركين لنفس الكورس وايضا لنفس الدرجات

والصورة خير دليل على ذلك

 

FilterResultFinal - Copy.accdb

ملحوظة اخيرة

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

 

تم تعديل مارس 30, 2019 بواسطه midomashakel

[ابو عبدلله]

4 ساعات مضت, midomashakel said:

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

 

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

[ابو عبدلله]

للرفع

 

[ابو عبدلله]

للرفع

[midomashakel]

يا رب يكون هو ده التعديل المطلوب

 

 

FilterResultFinal -4.accdb

[ابو ياسين المشولي]

9 ساعات مضت, ابو عبدلله said:

للرفع

اتمنى يكون حسب طلبك

شوف المرفق

  Dim varFilter As Variant
varFilter = Null
 
      
   If Not IsNull(Me.search) Then
      varFilter = (varFilter + " AND ") & "[اسم الطالب] LIKE '*" & [Forms]![search].[Form]![sub_stu]![اسم الطالب] & "*'"
   End If
   With Me.sub_stu.Form
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With
varFilter = Null
 
      
   If Not IsNull(Me.search) Then
      varFilter = (varFilter + " AND ") & "[النتيجة] LIKE '*" & [Forms]![search].[Form]![sub_stu]![النتيجة] & "*'"
   End If
   With Me.sub_stu.Form
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

stu.accdb

[ابو عبدلله]

في 4/3/2019 at 19:33, midomashakel said:

يا رب يكون هو ده التعديل المطلوب

 

 

في 4/4/2019 at 03:31, ابو ياسين المشولي said:

شوف المرفق

السلام عليكم واعتذر على الاطالة وكل الشكر أخوتي وكل الدعاء لكم ولما تقدمونه ..

الرجاء النظر للمرفق فيه اوضحة الفكرة وآمل وأدعو بأن يكون هناك حل لهذه المشكلة 

مع جزيل الشكر و التقدير لجهودكم بارك الله بكم جميعا 

stu.rar

[ابو عبدلله]

في 4/4/2019 at 03:31, ابو ياسين المشولي said:

اتمنى يكون حسب طلبك

 

للرفع

 

[ابو عبدلله]

للرفع

[ابو عبدلله]

للرفع

[jjafferr]

السلام عليكم 🙂

 

اخوي ابو عبدالله 🙂

تفضل المرفق ، ان شاء الله يكون هو المطلوب 🙂

لما افضى شوي ، ان شاء الله اشرح طريقة العمل 🙂

 

بس لوسمحت تخبرنا اذا هذا هو طلبك ، وان النتيجة صحيحة 🙂

 

جعفر

1033.stu.accdb.zip

[ابو عبدلله]

في 4/14/2019 at 09:37, jjafferr said:

السلام عليكم 🙂

 

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

في 4/14/2019 at 09:37, jjafferr said:

بس لوسمحت تخبرنا اذا هذا هو طلبك ، وان النتيجة صحيحة 🙂

 

نعم هذا هو المطلوب ولكن بتجميع الاسماء اي بالنموذج الفرعي يظهر الاسم مرة واحدة فقط و من دون التفاصيل فقط الاسم لمرة واحدة مع مراعاة الصفة yes , no ايضا ان تكون مطابقة 

ولكل كل الشكر و التقدير والدعاء

تم تعديل أبريل 15, 2019 بواسطه ابو عبدلله

[jjafferr]

تفضل 🙂

 

بما انك تريد المقارنه تكون عن طريق الحقول التالية مجتمعه: [رقم المادة] و [النتيجة] و [الصفة] ،

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

لهذا السبب ، العلاقة العادية بين الحقول في الاستعلام لم تؤدي الغرض ، ولهذا اضطررنا اللجوء للكود في الوحدة النمطية ،

واذا تلاحظ ، بيانات الاستعلام qry_All هي نفسها بيانات الجدول tab_result ، ولكن الاختلاف هو في طريقة فرز الحقول ، واحدة بعد الاخرى في الاستعلام ، وذلك لتنظيم المقارنه 🙂

 

الوحدة النمطية المسؤوله عن العمل هي:

Public Function All_Grades(ID)


    'ID = رقم الطالب
    
    Dim rst As DAO.Recordset
    Dim RC As Integer
    Dim i As Integer
    Dim Result As String

    Set rst = CurrentDb.OpenRecordset("Select * From qry_All Where [رقم الطالب]=" & ID)
    rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount
    
    For i = 1 To RC
    
        Result = Result & "_" & rst![رقم المادة] & "-" & rst![النتيجة] & "-" & rst![الصفة]
        
        rst.MoveNext
    Next i
    
    All_Grades = Mid(Result, 2)
    
    rst.Close: Set rst = Nothing
    
End Function

 

جعفر

1033.stu.accdb.zip

[ابو عبدلله]

بارك الله بكم جميعاً وبأمثالكم  

essam rabea midomashakel  ابو ياسين المشولي  jjafferr 

 

ولك مني جزيل الشكر و الدعاء استاذنا جعفر عمل رائع

جاري التطبيق