اذهب الي المحتوي
أوفيسنا

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


engc2011e

الردود الموصى بها

 

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

دا خل نموذج 

B01_Bills

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

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

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

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

1 - اسم الملف 

FN1011

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

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

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

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

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

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

333.rar

رابط هذا التعليق
شارك

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

 

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

للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى 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

 

جعفر

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information