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

[Abdelaziz Osman]

https://www.officena.net/ib/messenger/22132/

 

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

الاهم هو ترتيب البنود

مرفق ملف عمل

 

PRindex.accdb

[jjafferr]

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

الفرز يجب ان يكون عن طريق حقل المعرف.

 

الاستعلام:

.

والدالة في الوحدة النمطية:

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