مناداة المتغير في الاستعلام عن طريق موديول آخر

[ابو جودي]

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

فى احد الموضوعات تكرم استاذى الجليل و معلمى القدير و والدى الجبيب الاستاذ  @jjafferr بالتطرق الى تلك الجزئية

6 ساعات مضت, jjafferr said:

3. نعم ممكن عمل موديول ، واعطاء القيمة للمتغير هناك ، ثم مناداة المتغير في كل كائنات الاكسس ، ولكن لا يمكن مناداة المتغير مباشرة في الاستعلام ، وانما يجب مناداته عن طريق موديول آخر 🙂

 

يعنى هل هذه الطريقة بديل ل TempVars 

وهل ممكن مثال مصغر يوضح الطريقة  بارك الله فى اساتذتى الافاضل

تم تعديل نوفمبر 30, 2020 بواسطه ابا جودى

[ابو جودي]

طيب اجاوب 

Global AddVar As Variant


Public Function GetVar()
    GetVar = AddVar
    AddVar = Empty
End Function

 

ويكتب المعيار 

GetVar()

 

تم تعديل نوفمبر 30, 2020 بواسطه ابا جودى

[jjafferr]

وعليكم السلام 🙂

 

نعم ، جوابك ، هو قصدي مما قلته انا ،

اما TempVars فهو موجود في الاكسس 2007 فما فوق ، وهو جدا مفيد واستعماله جدا سهل ، ولا يحتاج الى موديول لمناداته .

 

جعفر

[ابو جودي]

مثال عملى 

 

 

Passing a variable to a query.mdb

تم تعديل نوفمبر 30, 2020 بواسطه ابا جودى

[أبو عبدالله الحلوانى]

6 ساعات مضت, jjafferr said:

اما TempVars فهو موجود في الاكسس 2007 فما فوق ، وهو جدا مفيد واستعماله جدا سهل ، ولا يحتاج الى موديول لمناداته .

جزاكم الله عنا خيرا 

هل من شرح مبسط لها وطريقة استعمالها أيضا لعموم الفائدة 

فيكون قد تم الجمع بين الطريقتين في هذا الموضوع

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

[jjafferr]

9 ساعات مضت, أبو عبدالله الحلوانى said:

هل من شرح مبسط لها وطريقة استعمالها أيضا

 

قام اباجودي بوضع المثال هنا 

 

 

15 ساعات مضت, ابا جودى said:

الان فهمت الطرق الثلاثة لتمرير المعيار الا الاستعلام

1- تمرير القيمة من كائن موجود فى نموذج محدد .... يعيبها لابد ان يكون النموذج مفتوحا

[Forms]![FrmName]![ObjectNameOnForm]

2- TempVars  

TempVars.Add "x", Value as you need

ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار 

[TempVars]![x]

3- فى موديول نعرف متغير عام 

Global AddVar As Variant

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

Public Function GetVar()
    GetVar = AddVar
End Function

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

AddVar= Value as you need

ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار 

GetVar()

 

 

[ابو جودي]

16 ساعات مضت, أبو عبدالله الحلوانى said:

هل من شرح مبسط لها وطريقة استعمالها أيضا لعموم الفائدة 
فيكون قد تم الجمع بين الطريقتين في هذا الموضوع

'TempVars.Add Name, Value
'Name   >>-->  حيث يكون الاسم هو اسم المتغير الخاص بك 
'Value  >>-->  حيث تكون القيمة التي ترغب في تخصيصها له

بعض الأمثلة:

TempVars.Add "strName", "officena" 

TempVars.Add "lngID" , 1

TempVars.Add "boSure" , true

- طريقة تمرير قيمة حسب اسم المتغير

TempVars![Name]

 

- طريقة ازالة القيمة من كل المتغيرات 

TempVars.RemoveAll

- طريقة ازالة القيمة من متغير محدد

TempVars.Remove "Name"

 

وهذا مثال يجمع الطريقتين

 

1905137138_PassingavariableWey.mdb Passing a variable Wey.zip

تم تعديل ديسمبر 1, 2020 بواسطه ابا جودى