سؤال كيفية تجميع القيم في الاستعلام

[سيمو العازف]

السلام عليكم ,, عندي هذه الدروس فقط

 

 

واريد انشاء استعلام

 

سويت صورة بسيطة حتى تفهمو قصدي

 

 

شوفو الاستعلام في الاعلى هذا الشكل القديم

اريد اسوي استعلام كما في الاسفل يجمع دروس الغياب في حقل واحد امام اسم الشخص

ولو اشخص غاب في جميع الدروس يكتب له ( جميع الدروس )

ممكن تساعدوني, ارفقت لكم القاعدة

شكرا لكم

استعلام تجميع دروس الغياب في حقل واحد.rar

[jjafferr]

وعليكم السلام

 

.

.

.

 

Option Compare Database
Option Explicit

Public Function Gather_Materials(ByVal N As String) As String

    'N = Name
    
    Dim rst As DAO.Recordset
    Dim RC As Integer
    Dim i As Integer
    Dim Together As String
    Dim How_Many_Materials As Integer
    
    'كم عدد المواد في جدول المواد
    How_Many_Materials = DCount("*", "Materials")
    
    ' اقرا بيانات الاستعلام الذي به صافي المواد ، الى الذاكرة العشوائية للكمبيوتر
    'ونستخدم اسم الشخص لتصفية الاستعلام
    Set rst = CurrentDb.OpenRecordset("Select * From qry_Absences Where [Aname]='" & N & "'")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount    'عدد سجلات الاستعلام qry_Absences
    
    Together = ""
    'قم بقراءة جميع سجلات الاستعلام ، واضف المواد ، بينهم فاصلة
    For i = 1 To RC
        Together = Together & " ، " & rst!Amaterial
        rst.MoveNext
    Next i
    
    'اقفل واحذف الالاستعلام من الذاكرة العشوائية
    rst.Close: Set rst = Nothing

    'تخلص من اول فاصلة
    Together = Mid(Together, Len(" ، ") + 1)
    
    'اذا كان عدد المواد = عدد سجلات الاستعلام
    If How_Many_Materials = RC Then
        Together = "جميع الدروس"
    End If
    
    'ارسل النتيجة الى الاستعلام
    Gather_Materials = Together
    
End Function

.

 

جعفر

774.استعلام تجميع دروس الغياب في حقل واحد.accdb.zipFetching info...

[سيمو العازف]

 

شكرا لك للمساعدة اخي العزيز جعفر وزادك الله من علمه

عندما طبقت شرحك في مشروعي الاصلي حصلت على الخطأ التالي:

 

[jjafferr]

عذرا ، انا لا اعرف اي شيء ن قاعدة بياناتك ، 

فاذا اردت النظر فيها ، رجاء ارفاقها ، واخبارنا مكان المشكلة بالضبط

 

جعفر

[سيمو العازف]

  في 1‏/12‏/2017 at 09:26, jjafferr said:

عذرا ، انا لا اعرف اي شيء ن قاعدة بياناتك ، 

فاذا اردت النظر فيها ، رجاء ارفاقها ، واخبارنا مكان المشكلة بالضبط

 

جعفر

Expand  

 

حسنا اخي تفضل هذه القاعدة تظهر بها المشكلة لا اعرف لماذا..

تجميع الغياب.zip

[jjafferr]

انت لم تستعمل الاستعلامات مثل التي انا استعملتها!!

عندي استعلامين ، وعندك استعلام واحد ، والكود يرجع ويناديه!!

 

جعفر

[سيمو العازف]

  في 1‏/12‏/2017 at 09:44, jjafferr said:

انت لم تستعمل الاستعلامات مثل التي انا استعملتها!!

عندي استعلامين ، وعندك استعلام واحد ، والكود يرجع ويناديه!!

 

جعفر

Expand  

اعتذر جدا على تقصيري في عدم فهم حلك

راجعت كلامك وانحلت المشكلة الف شكر لك اخي العزيز

[jjafferr]

ولا يهمك

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

ولكني جعلت الاستعلام الذي انت عملته (استعلام تجميع دروس الغياب) ولكني اعطيته مسمى انجليزي ، qry_Absences ، هو مصدر البيانات ،

والسبب هو انك قد تريد لاحقا ان تعمل تصفية للغياب ، بإستخدام التاريخ او بين تاريخين مثلا ،

وبدلا ان ترجع للوحدة النمطية وتعمل تغيير عليها ، فكل الذي عليك عمله هو اضافة التاريخ وتصفيته في الاستعلام qry_Absences

 

جعفر

[سيمو العازف]

الله يعطيك الف عافية اخي الكريم

بالمناسبة اقدر اتواصل معك؟ سكايب او فيس بوك او ايميل او غيرة

 

[jjafferr]

حياك الله

 

جعفر