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

[engc2011e]

 

"مرفق ملف اكسس 

دا خل نموذج 

B01_Bills

في حقل امر الطلب عند النقر المزدوج 

يفتح نموذج انشاء مجلد لو المجلد موجود يفتح نموذج ارفاق ملف 

"
"في نموذج ارفاق ملف 

الكود الخاص بارفاق ملف 
به متغيرين 

1 - اسم الملف 

FN1011

2 - مسار المجلد الخاص بالحفظ 
pathFS01_03

الاسماء دي في الكود داخل نموذج 

Z02_Load_File
"ازاي اخلي القيمتين دول متغيرير بحث تعتمد علي رقم يكتب في النموذج 

حقل ( ترميز النموذج ) بحيث لو في نموذج اخر ... اغير الرقم بس و استخدم نفس نموذج ارفاق الملفات "

في المثال المرفق 1011  و شغال عادي ..... كيف اجعل القيمتين متغيرين علي نفس الكود
 

يعني عايز استخدم نموج واحد لارفاق الملفات لجميع النماذج في البرنامج

333.rar

[jjafferr]

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

 

وههلا وسهلا بك في المنتدى 🙂

للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : https://www.officena.net/Tips/Questions.htm

 

الطرق الاسهل:

1. استخدم الامر OpenArgs لإرسال اسم النموذج ، عند فتح النموذج Z02_Load_File ، هكذا :

DoCmd.OpenForm "Z02_Load_File",,,,,,me.name


او لإرسال الرقم 123456
DoCmd.OpenForm "Z02_Load_File",,,,,,"123456"

 

وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال  me.OpenArgs ،

 

وطبعا تقدر ترسل اي عدد من القيم بهذه الطريقة ، الشرط ان القيم تكون بين "" ، مثل :

DoCmd.OpenForm "Z02_Load_File",,,,,,"123456|Finance_Department"

ثم في النموذج Z02_Load_File ، تستعمل الامر Split لتفرق بين هذه القيم.

 

2. ان تعمل متغير في وحدة نمطية مستقلة ، هكذا :

Option Compare Database
option explicit

Global myValue as string
او
public myValue2 as integer

 

ثم لم تعطي القيمة قبل ان تفتح النموذج Z02_Load_File ، هكذا:

myValue = "This is a test"
DoCmd.OpenForm "Z02_Load_File"

او
myValue = 998877
DoCmd.OpenForm "Z02_Load_File"

وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال اسم المتغير myValue او myValue2 ،

 

3. او نفس طريقة #2 ، ولكن باستعمال TempVar

 

جعفر

[kha9009lid]

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

استخدم الامر OpenArgs لإرسال اسم النموذج ، عند فتح النموذج Z02_Load_File ، هكذا :

DoCmd.OpenForm "Z02_Load_File",,,,,,me.name


او لإرسال الرقم 123456
DoCmd.OpenForm "Z02_Load_File",,,,,,"123456"

ماشاء الله عليك يا ابا عبد الله

احيانا استخدم OpenArgs ولكني اصرح بذلك في الامر ليكون

DoCmd.OpenForm"frm_4", OpenArgs:=Me.Name

او

DoCmd.OpenForm"frm_4", OpenArgs:=Me.Caption

للتسمية الخاصة بالنموذج

[jjafferr]

8 ساعات مضت, kha9009lid said:

DoCmd.OpenForm"frm_4", OpenArgs:=Me.Name

ما كنت ادري اذا صرحت بالامر ، يمكنني قفز المتغيرات المطلوبة من الامر !!

شكرا اخوي خالد على هذه المعلومة 🙂 ، وهل بإمكاننا المضي على هذا المنوال بالنسبة لبقية الاوامر كذلك؟

 

جعفر

[kha9009lid]

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

هل بإمكاننا المضي على هذا المنوال بالنسبة لبقية الاوامر كذلك؟

ياهلا باستاذنا الفاضل جعفر

الحقيقة انا ماجربت جميع الاوامر لقفز البارامترات

ولكن جربت البعض منها وعملت معي

مثلا فتح فورم بشرط المدينة في الفورم الاول تساوي المدينة في فورم2

تكتب في العادة

DoCmd.OpenForm "frm_6", , , "city='" & Me.city & "'"

ويمكن التصريح بالشرط وقفز البارامترات لتكون هكذا

DoCmd.OpenForm "frm_6", WhereCondition:="city ='" & Me.city & "'"

تحياتي