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

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

قام بنشر (معدل)

السلام عليكم

مشكلتى تتلخص فى شرط لداله 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]"

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

تم تعديل بواسطه king5star
قام بنشر

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

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

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

قام بنشر
3 ساعات مضت, king5star said:

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

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

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

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

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

قام بنشر
منذ ساعه, kaser906 said:

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

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


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

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

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

قام بنشر

الكود صحيح

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

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

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

 

قام بنشر
26 دقائق مضت, kaser906 said:

الكود صحيح

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

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

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

 

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

قام بنشر
3 ساعات مضت, ابوخليل said:

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

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

New Microsoft Access Database.accdb

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

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

 

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

قام بنشر

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

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

 

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.

×
×
  • اضف...

Important Information