جمع اسماء في حقول الى حقل واحد

[علاء طه]

الاخوة الاعزاء ارجو معرفة كيفية عمل دالة فى استعلام يقوم بجمع عدة اسماء فى حقول الى حقل واحد ولا يشترط الترتيب

فى المثال المرفق اريد كتابة كل مواد التظلم في حقل مواد التظلم

تظلمات.rar

[محمد احمد لطفى]

هل هذا ما تريد
 

بالتوفيق
 

تظلمات.mdb

تم تعديل يونيو 12, 2023 بواسطه محمد احمد لطفى

[علاء طه]

لك مني كل الشكر والتقدير هذا بالفعل ما اريد

جزاك الله كل خير

[شايب]

مشاركة مع الاخ محمد

ممكن ايضا عمل دالة تقوم بالمطلوب دون الحاجة الى استخدام دالة iif

وما يتطلب من تكرارها وتكرار الشرط والنتيجة عند التحقق وعدم التحقق

نعمل وحدة نضع فيها الامر

Public Function n_fld(id As Integer) As String
    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim t As String
Set rst = CurrentDb.OpenRecordset("Select * From [صف خامس] Where [م1]= " & id)
For Each fld In rst.Fields
If fld.Type <> acTextBox Then
If fld.Value = -1 Then
t = t & " " & fld.Name
    End If
    End If
    Next
    n_fld = Replace(t, "تظلم", "")
    rst.Close
End Function

 

ويتم الاستدعاء في الاستعلام

n_fld([م1])

والنتيجة

ممكن تحسينها وكتابة التسميات بشكل افضل لتكون اكثر وضوح ولكن للاسف مالي مزاج

[علاء طه]

ربنا يحسن مزاجك ولك كل الشكر والتقدير