مشكلة في الاستعلام بين تاريخين

[mostafaelshnawy5]

 

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

مشكلتي هي لدي جدول به حقول 

الاول تاريخ.  والثاني رقم والثالث رقم والرابع رقم والخامس نص

وقمت بعمل استعلام بين تاريخين والحمدلله يعمل

ولكن  اذا كان الحقل الخامس به نص مثلا في يوم

 1/1/2021

ونص اخر في يوم 2/1/2021

 يظهر علي مرتين اي صفين وما اريده هو دمج النصين الموجودين بالخقل الخامس اللي هو نص  مع بعض عند الاستعلام بين تاريخين

شاكر جهدكم الرائع 

الدمج عند الاستعلام.rar

[mostafaelshnawy5]

هل من مساعد في حل مشكلتي؟

[kanory]

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

هل من مساعد في حل مشكلتي؟

سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟

 

[mostafaelshnawy5]

2 hours ago, kanory said:

سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟

 

بالظبط كده عايز الحقلين بحيث يكون كلمة قسمة قرض وسمساره في صف واحد بينهم شرطة مثلا 

شاكر مجهودك اخي

[kanory]

بس لاحظ اخي الكريم 

كلمة قسط قرض خاص بعميل وكلمة سمسارة لعميل اخر ولا يوجد في سجلات العميل الاول كلمة سمسارة ..

هل تريد اضافتها للجميع مثلا

[mostafaelshnawy5]

1 hour ago, kanory said:

بس لاحظ اخي الكريم 

كلمة قسط قرض خاص بعميل وكلمة سمسارة لعميل اخر ولا يوجد في سجلات العميل الاول كلمة سمسارة ..

هل تريد اضافتها للجميع مثلا

شكرا جزيلا على اهتمامك ياغالي

ولكن الموضوع هو اذا لم يوجد شئ في حقل المخلفات يتم الدمج وعدم التكرار وتمشي الأمور تمام

ولكن اذا ضفت مخالفة لاحد العملاء لا يتم الدمج 

وما اريده دمج المخالفات ايضا مع بعض اذا وجدت وتكون بينهم فصلة 

المخالفات نوعها نص واريد عمل لها sum 

اي تجمع جميع المخالفات في حقل واحد طالما عند نفس العميل 

ارجو ان اكون وضحت

[mostafaelshnawy5]

اساتذنا الكرام ارجو المساعده

@احمد الفلاحجي @ابوخليل @kanory

[ابوبسمله]

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا

تم اضافه وحده نمطيه تعلمتها من اسخى @kanory جزاه الله خيرا

ان شاء الله يكون ما تريد

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1)
  
  Dim DB As dao.Database, rs As dao.Recordset
  Set DB = CurrentDb
  Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _
    & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2)
  
  Do
  
      If rs.AbsolutePosition = rs.BOF Then
        Horizontal = rs(Feld2)
      Else
        Horizontal = Horizontal & ", " & rs(Feld2)
      End If
    
      rs.MoveNext
      
  Loop Until rs.EOF
  
  rs.Close
  DB.Close
  Set rs = Nothing
  Set DB = Nothing
  
End Function

بالتوفيق

الدمج عند الاستعلام.accdb

[mostafaelshnawy5]

1 hour ago, احمد الفلاحجي said:

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا

تم اضافه وحده نمطيه تعلمتها من اسخى @kanory جزاه الله خيرا

ان شاء الله يكون ما تريد

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1)
  
  Dim DB As dao.Database, rs As dao.Recordset
  Set DB = CurrentDb
  Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _
    & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2)
  
  Do
  
      If rs.AbsolutePosition = rs.BOF Then
        Horizontal = rs(Feld2)
      Else
        Horizontal = Horizontal & ", " & rs(Feld2)
      End If
    
      rs.MoveNext
      
  Loop Until rs.EOF
  
  rs.Close
  DB.Close
  Set rs = Nothing
  Set DB = Nothing
  
End Function

بالتوفي

شكرا جزيلا بارك الله فيك 

جاري التجربة 

ولكن لدي سؤال اين تم وضع هذا الكود

وبعتذر ع الازعاج

 

[ابوبسمله]

20 دقائق مضت, mostafaelshnawy5 said:

ولكن لدي سؤال اين تم وضع هذا الكود

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

هذا الكود موضوع فى وحده نمطيه

وتم استدعائها فى الاستعلام كالتالى

Expr2: Horizontal("[اذونات التوريد]";"[اسم الموظف]";"[اكتشاف مخالفات]";[اسم الموظف])

بالتوفيق

[mostafaelshnawy5]

شكرا جزيلا استاذ احمد وشكرا اخي @kanory

تعبتكم معايا

ولكن لدي سؤال وهو عند فتح التقرير القائم ع الاستعلام يتم تحميله بصعوبه وبيتهم التهنيج والتقل للبرنامج كله هل يوجد حل؟

 

 

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

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

بالتوفيق