السلام عليكم
الاخوة بارك الله فيكم اريد مثال لتطبيق دالة للاستاذ جعفر وجدتها في المنتدى وهي لاحضار عدة بيانات من جدول عن طريق دالة 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)