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

[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]

3 ساعات مضت, king5star said:

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

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

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

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

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

[king5star]

منذ ساعه, kaser906 said:

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

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

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

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

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

[kaser906]

الكود صحيح

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

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

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

 

[king5star]

26 دقائق مضت, kaser906 said:

الكود صحيح

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

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

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

 

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

[ابوخليل]

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

New Microsoft Access Database.rar

[king5star]

 

35 دقائق مضت, ابوخليل said:

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

New Microsoft Access Database.rar

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

[ابوخليل]

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

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

New Microsoft Access Database.accdb

[king5star]

3 ساعات مضت, ابوخليل said:

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

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

New Microsoft Access Database.accdb

استاذى الفاضل @ابوخليل شكراً لمجهودك الطيب ولكن ليس ما اريدة فالنموذج الذى ارستله مبسط عن طبيعة العمل فـ 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