السلام عليكم ورحمة الله وبركاته
اريد ان استفيد وان يستفيد الغير من هذه الفكره حيث اني بحثت كثيرا ولم اصل الى نتيجه وحبيت ان اطرحها عليكم وكلي ثقة بانها سهله عليكم ان شاء الله وجدت اكثر من طريقة لجمع النصوص بمعنى الاسم الاول والثاني .....الخ هذه بحسب الحقول ولكن الفكره التي اريدها هي تجميع مجال بمعنى عند ادخال فاتورة مثلا يقوم المستخدم بادخال ملاحضه لكل صنف ولكن ما اريده هو جمع جميع الملاحضات في تكست واحد مرفق لكم الصورة للتوضيح اكثر
يمكنك فعل ذالك عن طريق هذه الدالة dlookupPlus وهي من عمل أحد الإخوة جزاه الله خيرا .. وقد أخذتها من قناته في اليوتيوب ..
وظيفتها هي القيام بإحضار جميع القيم الفرعية الخاصة بسجل رئيسي معين .. وليس فقط القيمة الأولى مثل ما هو الحال عند دالة Dlookup المعتادة .
أولا : ضع هذه الدالة في موديول :
Function dlookupPlus(Fieldname As String, Domain As String, Optional Criteria = "")
Dim db As dao.Database
Dim rs As Recordset
Dim strsql As String
Dim i As Integer
Dim st, stt As String
On Error