مساعدة بسيطة فى ضبط قيمة متغير

[king5star]

السلام عليكم

مشكلتى تتلخص فى شرط لداله if يوجد به متغير والمتغير هذا يعبر عن حقل بنموذج اخر فقكت بعمل الاتى ولكنه لم يفلح معي

dim Creta_V_Money as string

Creta_V_Money = "[Forms]![Cus_Sub]![Y2017]![" + Boxname + "] = [Forms]![Cus_Sub]![Cus_Bayed_V]"

If Not Creta_V_Money Then

endif

ويظهر الاكسس شاشة خطأ ويكون شكل الشرط كالتالي :

"[Forms]![Cus_Sub]![Y2017]![ِApr] = [Forms]![Cus_Sub]![Cus_Bayed_V]"

فاريد ازالة علامات التنصيص هل من حل !

تم تعديل مارس 25, 2018 بواسطه king5star

[kaser906]

لو وضعت  المثال للتضح بشكل افضل

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

وقمت بالاشارة الى الحقل داخل النموذج الفرعي ولم تشر للنموذج الرئيسي

[king5star]

ها هو الملف اخي سوف يوضح لك اكثر

New Microsoft Access Database.zip

[kaser906]

  في 25‏/3‏/2018 at 11:09, king5star said:

ها هو الملف اخي سوف يوضح لك اكثر

Expand  

لم أفهم ما ذا تريد من المتغير

الكود يجب أن يكون هكذا بعد إزالة علامتي التنصيص

Creta_V_Money = Forms![frm2]![frm1]![Boxname] = [Forms]![frm2]![test]

::بالتوفيق::،

[king5star]

  في 25‏/3‏/2018 at 14:24, kaser906 said:

لم أفهم ما ذا تريد من المتغير

الكود يجب أن يكون هكذا بعد إزالة علامتي التنصيص

Creta_V_Money = Forms![frm2]![frm1]![Boxname] = [Forms]![frm2]![test]

::بالتوفيق::،

Expand  

شكراً لك اخي لكنني جربت ذلك ولم يفلح هل لديك اقتراحات اخري نحاول بها ؟

[kaser906]

الكود صحيح

المشكلة في المتغيرات اعتقد لازم تعيد النظر فيها

ز ليست لدي معرفة تامه بالمتغيرات

::بالتوفيق::،

 

[king5star]

  في 25‏/3‏/2018 at 16:00, kaser906 said:

الكود صحيح

المشكلة في المتغيرات اعتقد لازم تعيد النظر فيها

ز ليست لدي معرفة تامه بالمتغيرات

::بالتوفيق::،

 

Expand  

شكراً جزيلاً لاهتمامك اخى

[ابوخليل]

جرب هذه الطريقة

New Microsoft Access Database.rar

[king5star]

 

  في 25‏/3‏/2018 at 17:55, ابوخليل said:

جرب هذه الطريقة

New Microsoft Access Database.rarFetching info...

Expand  

استاذي الفاضل شكرا لمرورك الكريم ولكن الملف فارغ 

[ابوخليل]

المشكلة في التحويل

هذا الملف الاصل

New Microsoft Access Database.accdb

[king5star]

  في 25‏/3‏/2018 at 21:02, ابوخليل said:

المشكلة في التحويل

هذا الملف الاصل

New Microsoft Access Database.accdbFetching info...

Expand  

استاذى الفاضل @ابوخليل شكراً لمجهودك الطيب ولكن ليس ما اريدة فالنموذج الذى ارستله مبسط عن طبيعة العمل فـ Frm2 هو نموذج الوجهه و فورم 1 هو النموذج الفرعي وفى العمل الفعلى النموذج الفرعي يوجد به اكتر من 12 مربع نص مع امر برمجي كبييييييييير مع وجود 12حقل فالعملية مجهدة جداً ففكرت فى انشاء دالة عامة بمتغيرات كما اوضحت بالمثال المرسل واستدعى الدالة واقوم بوضع اسم الحقل بالمتغير الخاص بها فتقوم الداله بالعمل بنائاً على المعطيات .

فهل من الممكن عمل هذا ؟؟

 

وانا اشكرأ كل الشكر على مجهوداتك .

[king5star]

تمت بحمد الله وجدت الحل وكان هكذا --->

dim Creta_V_Money as string

Creta_V_Money = "[Forms]![Cus_Sub]![Y2017]![" + Boxname + "]"

If Not Creta_V_Money = [Forms]![Cus_Sub]![Cus_Bayed_V] Then

endif