مثال لتطبيق دالة لجلب البيانات للاستاذ جعفر

[محمد القدسي]

السلام عليكم 

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

والموجودة على هذا الرابط

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

 

وهي كالتالي

  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)

 

[ابو جودي]

4 ساعات مضت, محمد القدسي said:

السلام عليكم 

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

والموجودة على هذا الرابط

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

 

وهي كالتالي

  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)

 

اتفضل

T-UP.mdb

[محمد القدسي]

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

 اخي اذا كان الجدول في قاعدة خارجية كيف يكون الكود استاذي

[ابو جودي]

مش فاهم 

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

[محمد القدسي]

لا ليست مرتبطة استاذي

[ابو جودي]

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

ممكن تنسخ الجدول اللى تريد التعامل مع بياناته وتنهتى منه يستمسح وهكذا

[محمد القدسي]

اشكرك استاذي على تعاونك

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