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

[ابو جودي]

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

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

  في 30‏/11‏/2020 at 11:11, jjafferr said:

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

 

Expand  

يعنى هل هذه الطريقة بديل ل 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.mdbFetching info...

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

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

  في 30‏/11‏/2020 at 15:13, jjafferr said:

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

Expand  

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

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

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

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

[jjafferr]

  في 30‏/11‏/2020 at 22:03, أبو عبدالله الحلوانى said:

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

Expand  

 

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

 

 

  في 30‏/11‏/2020 at 15:30, ابا جودى 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()

 

 

Expand  

[ابو جودي]

  في 30‏/11‏/2020 at 22:03, أبو عبدالله الحلوانى said:

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

Expand  

'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.mdbFetching info... Passing a variable Wey.zipFetching info...

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