طريقة تجميع مجال وليس اكثر من حقل

[canary2522]

السلام عليكم ورحمة الله وبركاته 

اريد ان استفيد وان يستفيد الغير من هذه الفكره حيث اني بحثت كثيرا ولم اصل الى نتيجه وحبيت ان اطرحها عليكم وكلي ثقة بانها سهله عليكم ان شاء الله وجدت اكثر من طريقة لجمع النصوص بمعنى الاسم الاول والثاني .....الخ هذه بحسب الحقول ولكن الفكره التي اريدها هي تجميع مجال بمعنى عند ادخال فاتورة مثلا يقوم المستخدم بادخال ملاحضه لكل صنف ولكن ما اريده هو جمع جميع الملاحضات في تكست واحد مرفق لكم الصورة للتوضيح اكثر

 

تم تعديل فبراير 9, 2022 بواسطه canary2522
تعديل

[Moosak]

يمكنك فعل ذالك عن طريق هذه الدالة 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 GoTo dlookup_err
Fieldname = Trim(Fieldname): Domain = Trim(Domain)
If IsNull(Criteria) Or Criteria = "" Then
    strsql = "select " & Fieldname & " from " & Domain
Else
Criteria = Trim(Criteria)
    strsql = "select " & Fieldname & " from " & Domain & " where " & Criteria
End If
    Debug.Print "StrSql >> " & strsql
    
Set db = CurrentDb
Set rs = db.OpenRecordset(strsql, dbOpenDynaset)
    rs.MoveLast
    rs.MoveFirst
    Debug.Print rs.RecordCount
For i = 0 To rs.RecordCount - 1

    st = rs(Fieldname).Value & " , "
    stt = stt & st
'    Debug.Print "stt" & stt
    rs.MoveNext
Next
dlookupPlus = Left(stt, Len(stt) - 2)

dlookup_err:
Exit Function
End Function

 

ثانيا : استخدمها بنفس طريقة استخدامك لدالة Dlookup العادية ولكن بالمسمى الجديد ( والشرط يكون رقم الفاتورة مثلا ) هكذا :

dlookupPlus("Nots","TableName","[FatoorhID]=" & Me.FatoorhID )

طبعا تضع الكود أعلاه كمصدر بيانات مربع النص الذي تريد جمع الملاحظات فيه .

 

 

تم تعديل فبراير 9, 2022 بواسطه Moosak

[أبوبسمله]

مشاركه مع الاستاذ موسى

اطلع ايضا ع الرابط التالي مشاركه لاستاذنا العزيز جعفر جزاه الله عنا خيرا

بالتوفيق

[canary2522]

اشكر مروركم الكريم  فعلت نفس الخطوات التي اشار اليها الاخ moosak مشكورا ولكن واجهتني مشكلة راسلة خطأ ولكن لا ادري اين السبب كما هو موضح في المرفق ارجو التعديل عليه

 

 

Database1.rar

تم تعديل فبراير 9, 2022 بواسطه canary2522
اضافة

[Moosak]

تم الإصلاح أخي كناري ..

وتأكد دائما أنك تعطي الموديول أسماً مختلف عن اسم الدالة .. وإلا فستحصل على رسالة خطأ ..

 

Database1.rar

[canary2522]

اشكرك جزيل الشكر اخي moosak الله يعطيك العافية وينور طريقك فعلا هذا هو المطلوب بارك الله فيك ونفع من علمك وزادك علم 

تم تعديل فبراير 10, 2022 بواسطه canary2522
خطأ

[Moosak]

7 ساعات مضت, canary2522 said:

اشكرك جزيل الشكر اخي moosak الله يعطيك العافية وينور طريقك فعلا هذا هو المطلوب بارك الله فيك ونفع من علمك وزادك علم 

اللهم آمين .. وإياكم