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

[elmagd2004]

Option Compare Database

Function RcNumQ1(mID As Variant, fldName As String) As Variant
Dim RstClone As Recordset
Dim Fld As Field
Dim i As Long
RcNumQ1 = Null
If IsNull(mID) Then Exit Function
Set RstClone = CurrentDb.QueryDefs("name of query").OpenRecordset
If RstClone.RecordCount = 0 Then Exit Function
Set Fld = RstClone.Fields(fldName)
With RstClone
.MoveFirst
Do Until .EOF
i = i + 1
If Fld = mID Then Exit Do
.MoveNext
Loop
End With
RstClone.Close
RcNumQ1 = i
End Function

 

 

[Eng.Qassim]

وعليكم السلام ..جرب واعلمنا النتيجة

خذ بالك من ال parameter

Public Function RcNumQ1(mID As Variant, fldName As String, MyQuery As QueryDef) As Variant
Dim RstClone As Recordset
Dim Fld As Field
Dim i As Long
RcNumQ1 = Null
If IsNull(mID) Then Exit Function
Set RstClone = CurrentDb.QueryDefs("MyQuery").OpenRecordset
If RstClone.RecordCount = 0 Then Exit Function
Set Fld = RstClone.Fields(fldName)
With RstClone
.MoveFirst
Do Until .EOF
i = i + 1
If Fld = mID Then Exit Do
.MoveNext
Loop
End With
RstClone.Close
RcNumQ1 = i
End Function