Dlookup للبحث فى حقلين مدموجين ثم توزيع الناتج على مربعى نص بالتقرير - إبداعات الأخ جعفر

[عبد الفتاح كيرة]

السلام عليكم

لما رأيت هذه المشاركة خشيت أن تتوه فى الزحام

من إبداعات الأستاذ جعفر

الكود مع تعليقى عليه

فى رأس التقرير

ترى الناتج فى عرض الطباعة

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
'الإعلان عن مصفوفة نصية
Dim x() As String
    'جلب آخر قيمة مضافة بدلالة حقل الترقيم التلقائى
    'بشرط  [qty_in]<>0
    
    MX = DMax("[ID]", "Transactions", "[Qty in]<>0")
    'البحث فى حقل مكون من حقلين بينهما فاصل
    'الحقلان هما أنفسهما المطلوبان فى مربعى نص فى التقرير
    'استخدام نتيجة mx كشرط
    '
    
    DL = DLookup("[add_doc] & '|' & [zdate]", "Transactions", "[ID]=" & MX)
    'التقسيم لفصل العمودين
    x = Split(DL, "|")
    Me.Text53 = x(0)
    Me.Text48 = x(1)
End Sub

رابط المشاركة

 

[Amr Ashraf]

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

[jjafferr]

شكرا جزيلا لك أخي عبدالفتاح

 

هذا الرابط في شرح عن هذه الطريقة

 

وأحب ان اضيف هذا الرابط ، وهو إضافة أكثر من معيار لدالة Dlookup واخواتها

 

جعفر

[عبد الفتاح كيرة]

لا ماينفعش كده

أنتم كده هاتلزقونا فى الأجهزة مش هانعرف نقوم 

[Amr Ashraf]

أستاذ جعفر @jjafferr  محتاج شرح الكود التالى بالتفصيل وخاصة حتة الفصل دى لأنى مش فاهمها نهائياً والعلامة '|' غير مألوفة

 

 Dim x() As String
    
    A = DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn")
    
    x = Split(A, "|")
'    For i = LBound(x) To UBound(x)
'        Debug.Print x(i)
'    Next i
    
    Me.pn = x(0)
    Me.size = x(1)
    Me.vendor = x(2)
    Me.Description = x(3)
    Me.Maxrl = x(4)
    Me.Maxrlegyptair = x(5)
    Me.ACType = x(6)
    Me.Pos = x(7)
    Me.BiasRadial = x(8)
    Me.code = x(9)

 

[عبد الفتاح كيرة]

اسمح لى

البحث بدالة dlookup فى عشرة حقول

فى جدول أو استعلام "code" 

بشرط [pn]=forms!frm_dataentry!Combopn

 

الفاصل "|"

لاستخدامه فى تقسيم الحقول بعد ذلك بدالة split 

و هى تطلب 

1 - النص المراد تقسيمه

2 - علامة معينة تفصل عندها 

والعلامة هنا هى "|" 

بعد التقسيم ترجع عشرة قيم  

تخزن فى عشرة متغيرات فى المصفوفة

نعيد إسنادها للحقول المطلوبة مرة أخرى

 

 

تم تعديل مايو 12, 2017 بواسطه عبد الفتاح كيرة

[Amr Ashraf]

11 دقائق مضت, عبد الفتاح كيرة said:

نعيد إسنادها للحقول المطلوبة مرة أخرى

 

جزاك الله خير استاذى الفاضل على المعلومة

تم تعديل مايو 12, 2017 بواسطه Amr Ashraf

[jjafferr]

41 دقائق مضت, عبد الفتاح كيرة said:

 - علامة معينة تفصل عندها 

والعلامة هنا هى "|" 

بعد التقسيم ترجع عشرة قيم 

 100%

ويمكن استخدام أي فاصلة/فارزة ، بشرط عدم وجودها في القيم 

 

جعفر