semo.pa3x شرح الإستفادة من TempVars في تخزين القيم

[SEMO.Pa3x]

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

كثيراً مانحتاج في برامجنا الى ( اسم مُدخل البيانات ) أي الذي قام بكتابة الفاتورة او تعديل أمر ما

او طباعة ...الخ نريد أن نعرف من الشخص الذي قام بهذه العملية خصوصاً اذا كانت قاعدة البيانات قد تم ربطها

بشكل شبكة ( سلسلة كومبيوترات متصلة بقاعدة البيانات )

كنا نستعمل الطريقة التقليدية

أولا: بإنشاء جدول لتسجيل اسم المستخدم الحالي الذي يستخدم قاعدة البيانات في حال مروره بنموذج تسجيل الدخول

ثانيا: نقوم بتخزينه في متغير Veriable من نوع String مثلاً وعند المرور بنموذج تسجيل الدخول يتم اسناد القيمة للمتغير في حال كان اليوزر والباسورد صحيحين

Public CurrentUserName As String

الكلام في الطريقتين صحيح، لكن في الطريقة الأولى سيبقى محتفظاً في اسم المستخدم حتى في حالة إغلاق الأكسس أجبارياً

اما الطريقة الثانية فأن هذا المتغير سيفقد القيمة التي قمنا بتخزينها به عند ظهور أول رسالة خطأ من الأكسس جراء تطبيق أمر ما

او أي عملية If قمت بكتابتها، بمجرد ظهور رسالة الخطأ ستختفي القيمة من المتغير CurrentUserName

ونُصبح في مهب الريح ، حسناً لذلك سنقوم بإستخدام ( TempVars )

دعنا نسميها المخزن، نقوم بخزن اي قيمة بداخلها وتكون بهيئة ( Global Veriables ) يمكن استدعائها من أي مكان

وسيتم تصفيرها بعد أغلاق الأكسس أجبارياً او إختيارياً ولن تمحى القيمة بعد ظهور رسالة خطأ كما أوضحت سابقاً.

 

أضافة قيمة:

TempVars.Add "CurrentUserName", "semo"

 

إحضار القيمة:

MsgBox TempVars("CurrentUserName")

 

يمكنك إسناد الكثير من القيم لـ TempVars والإستفادة منها.

 

لتفاصيل أكثر يمكنكم قراءة المقال من شركة مايكروسوفت:

https://docs.microsoft.com/en-us/office/vba/api/access.tempvars.add

 

أي سؤال أنا موجود، تحياتي لكم .

تم تعديل أبريل 19, 2021 بواسطه SEMO.Pa3x
اضافة رابط مايكروسوفت

[husamwahab]

جميل جدا استاذ 

رحم الله والديك ومبارك عليكم الشهر الكريم

[Amr Ashraf]

جزاكم الله خير استاذنا الفاضل فى انتظار المزيد ... ويا حبذا لو سلسلة فى انشاء الاستعلامات بطريقة متقدمة (خفايا الاستعلامات)😅