Abdelaziz Osman قام بنشر يوليو 7 مشاركة قام بنشر يوليو 7 https://www.officena.net/ib/messenger/22132/ مطلوب طريقة تجميع محتوى كافة بيانات حقول نصية الى حقل واحد وبترتيب بنود السجل الاهم هو ترتيب البنود مرفق ملف عمل PRindex.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر يوليو 7 أفضل إجابة مشاركة قام بنشر يوليو 7 وعليكم السلام 🙂 الفرز يجب ان يكون عن طريق حقل المعرف. الاستعلام: . والدالة في الوحدة النمطية: Function Concat(PR As Double) Dim rst As Recordset Dim i As Long, RC As Long Set rst = CurrentDb.OpenRecordset("select [Category] From PRindex Where [PuReq]=" & PR & " Order by [المعرف]") rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Concat = Concat & "," & rst!Category rst.MoveNext Next i Concat = Mid(Concat, 2) rst.Close: Set rst = Nothing End Function . والنتيجة: 1617.PRindex.accdb.zip 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان