دالة
#AHMED_ABDELMONEIM_UNIVERSITY
دالة #DlookupPlus في أكسس - دالة تبحث وتظهر كل القيم
اذا عجبك الفيديو اضغط اعجاب واترك تعليق واشترك في القناة وشارك مع أصحابك لأفادة الجميع
------------------------------------------------------------------------------------------------
اذا كان لديك استفسار أو فكرة ولو بسيطة شاركنا بها لنحولها الي واقع في فيديو + مرفق
------------------------------------------------------------------------------------------------
"اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وزدنا علما"
"اللهم اغفر لأبي وارحمه كما رباني صغيرا"
-------------
الدالة المستخدمة:
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
If IsNull(Criteria) Or Criteria = "" Then
strsql = "select " & Fieldname & " from " & Domain
Else
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