mostafaelshnawy5 قام بنشر فبراير 1, 2021 مشاركة قام بنشر فبراير 1, 2021 السلام عليكم ورحمه الله وبركاته براك الله فيكم بما تقدمونه من معلومات مشكلتي هي لدي جدول به حقول الاول تاريخ. والثاني رقم والثالث رقم والرابع رقم والخامس نص وقمت بعمل استعلام بين تاريخين والحمدلله يعمل ولكن اذا كان الحقل الخامس به نص مثلا في يوم 1/1/2021 ونص اخر في يوم 2/1/2021 يظهر علي مرتين اي صفين وما اريده هو دمج النصين الموجودين بالخقل الخامس اللي هو نص مع بعض عند الاستعلام بين تاريخين شاكر جهدكم الرائع الدمج عند الاستعلام.rar رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 هل من مساعد في حل مشكلتي؟ رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 2, 2021 مشاركة قام بنشر فبراير 2, 2021 4 ساعات مضت, mostafaelshnawy5 said: هل من مساعد في حل مشكلتي؟ سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 2 hours ago, kanory said: سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟ بالظبط كده عايز الحقلين بحيث يكون كلمة قسمة قرض وسمساره في صف واحد بينهم شرطة مثلا شاكر مجهودك اخي رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 2, 2021 مشاركة قام بنشر فبراير 2, 2021 بس لاحظ اخي الكريم كلمة قسط قرض خاص بعميل وكلمة سمسارة لعميل اخر ولا يوجد في سجلات العميل الاول كلمة سمسارة .. هل تريد اضافتها للجميع مثلا 1 رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 1 hour ago, kanory said: بس لاحظ اخي الكريم كلمة قسط قرض خاص بعميل وكلمة سمسارة لعميل اخر ولا يوجد في سجلات العميل الاول كلمة سمسارة .. هل تريد اضافتها للجميع مثلا شكرا جزيلا على اهتمامك ياغالي ولكن الموضوع هو اذا لم يوجد شئ في حقل المخلفات يتم الدمج وعدم التكرار وتمشي الأمور تمام ولكن اذا ضفت مخالفة لاحد العملاء لا يتم الدمج وما اريده دمج المخالفات ايضا مع بعض اذا وجدت وتكون بينهم فصلة المخالفات نوعها نص واريد عمل لها sum اي تجمع جميع المخالفات في حقل واحد طالما عند نفس العميل ارجو ان اكون وضحت رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 اساتذنا الكرام ارجو المساعده @احمد الفلاحجي @ابوخليل @kanory رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 2, 2021 مشاركة قام بنشر فبراير 2, 2021 مشاركه مع اخى واستاذى @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 1 رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 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 بالتوفي شكرا جزيلا بارك الله فيك جاري التجربة ولكن لدي سؤال اين تم وضع هذا الكود وبعتذر ع الازعاج رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 2, 2021 مشاركة قام بنشر فبراير 2, 2021 20 دقائق مضت, mostafaelshnawy5 said: ولكن لدي سؤال اين تم وضع هذا الكود الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا هذا الكود موضوع فى وحده نمطيه وتم استدعائها فى الاستعلام كالتالى Expr2: Horizontal("[اذونات التوريد]";"[اسم الموظف]";"[اكتشاف مخالفات]";[اسم الموظف]) بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
mostafaelshnawy5 قام بنشر فبراير 3, 2021 الكاتب مشاركة قام بنشر فبراير 3, 2021 شكرا جزيلا استاذ احمد وشكرا اخي @kanory تعبتكم معايا ولكن لدي سؤال وهو عند فتح التقرير القائم ع الاستعلام يتم تحميله بصعوبه وبيتهم التهنيج والتقل للبرنامج كله هل يوجد حل؟ رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 3, 2021 مشاركة قام بنشر فبراير 3, 2021 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير ضع ملفك الذى به المشكله حتى يتم الاطلاع عليه والوقوف على المشكله وان شاء الله اخوانك واساتذتنا ما بيقصروا بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان