تلميح حول كيفية تمرير قيمة متغير من Vba كوسيط ل Query

السلام عليكم ورحمة الله وبركاته .........

تستطيع تمرير قيمة متغير من VBA كوسيط لـ Query كالتالي :

1 - إنشاء Module وإضافة Public Function + Public Variable :

Public pStudentID As Integer
Public Function SetCustomerID()
SetCustomerID = pStudentID
End Function

2- قم ببناء Query أسمها QueryBasedOnVBA :

SELECT *
FROM Customers
WHERE CustomerID = SetCustomerID();

3 - قم بوضع زر على الـ Form وبه الكود التالي :

pStudentID = 2
DoCmd.OpenQuery "QueryBasedOnVBA", acViewNormal

أرجوا أن يكون ذلك مفيداً .. !!

في أمان الله .

Dr.pain

QueryBasedOnVBA.rar