اضافة متغير واستدعائة في كافة النماذج

[Hamtoooo]

السلام عليكم 

اسعد الله اوقاتكم

لدي قاعدة بيانات فيها اكثر من عشر نماذج وتقارير وفيها مربعات حوار (msgbox)

لنفترض ان اسم البرنامج   (HR_SE)

اريد ان اجعله كمتغير عشان يسهل علي استدعيه سواء في مربعات الحوا MSGBOX او النماذج وهكذا

هل سيكون الكود هكذا ؟؟

Dim title1 as string
title1 = "HR_SE"

واين اضع هذا المتغير بحيث استدعيه من ي مكان واذا وضعته بالمكان الصحيح كيف صيغة الكود لأستدعائه

 

شكرا لكم 

تم تعديل ديسمبر 8, 2021 بواسطه Hamtoooo

[Moosak]

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

يمكنك استخدام التمب فار Tempvars  بهذه الطريقة لحجز الاسم والقيمة ،  وتضعه في أول نموذج يفتح معك مثلا :

TempVars.Add "title", "HR_SE"

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

TempVars (title)

 

[Hamtoooo]

بارك الله في علمك اخي 
طيب ايهم افضل طريقة واخف على قاعدة البيانات واسرع
هل استخدم متغير في ميديول او طريقتك اضيفها في تيمب فار

 

السؤال الثاني حفظك الله 

كيف اخلي المستخدم يقدر يغير القيمة اللي في التيمب فار او اللي في الميديول 

 

ممتن للطفك

[Moosak]

حسب علمي المتواضع .. هناك أكثر من طريقة يمكنك حفظ بها المسميات والمتغيرات ..

1- يمكنك حفظ المسمى في جدول بحيث تضع له مربع إدخال للمستخدم ، ومن ثم تستدعيه بدالة Dlookup مثلا ..

2- يمكنك حجز متغير له في موديول منفصل ومن ثم تستدعيه في أي وقت شئت ..

3- ويمكنك استخدام ال TempVars  كما أشرت لك سابقا .. ولجعل المستخدم هو من يدخل هذه القيمة أسند قيمة التمب فار إلى مربع نص مثلا هكذا :

TempVars.Add "Title", [Forms]![LoginF]![Titletxt].Value

ومن ثم تنحفظ القيمة بعد الضغط على زر الدخول مثلا .

أما عن سؤالك عن أيها أخف على قاعدة البيانات فلا علم لي بذلك ..

والله أعلم

تم تعديل ديسمبر 8, 2021 بواسطه Moosak