مساعدة في التحكم في بيانات نمودج من خلال نمودج اخر

[ازهر عبد العزيز]

السلام عليكم

لدي النمودج K يحتوي على مرفقان لاضافة الصور وايضا عداد للوقت ووحقل لكتابة رقم وحقل لكتابة نص ويوجد نمودج اخر  هو  k2 يحوي نفس العناصر الموجودة في النمودج k احتاج تشغيل وايقاف  عداد الوقت الموجود في النمودج k من خلال الازرار الموجودة في النمودج k2 وايضا عند كتابة رقم او نص في الحقول الموجودة في النمودج k2 والضغط على زر ترحيل تظهر هدة البيانات في الحقول الموجودة في النمودج k  وايضا عند اضافة الصور في النمودج  k2 والضغط على زر ترحيل لصوة تظهر هدة الصور في النمودج k  واعتدر للاطاله عليكم 

19 (1) (1).accdb

[ازهر عبد العزيز]

احتاج الان فقط تشغيل  وايقاف عداد الوقت الموجود في النمودج K عن طريق النمودج K2 وشكرا لكم 

[jjafferr]

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

 

الاكسس يحتفظ بخصوصية جميع المتغيرات داخل الكائن ، ولا يسمح لبقية الكائنات ان تراه ، وذلك بإستعمالنا Dim او Private ،

ولكن اذا اردنا بقية الكائنات ترى المتغير ، فيجب ان يكون الكائن مفتوح و نصرح له بـ Global او Public  :

 

جعفر

1365.Run another Form Event.accdb.zip

[ازهر عبد العزيز]

الاستاد @jjafferr

هم هدا بسبب البخور 💭

ساحـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــر 🧙‍♂️

[jjafferr]

1 دقيقه مضت, ازهر عبد العزيز said:

هم هدا بسبب البخور

همممم

بس اعرف ان هذا الحل هو لجلب محبة و ود الحبيب ❤

 

جعفر

[ازهر عبد العزيز]

 الاستاد المبدع @jjafferr

سؤال لو سمحت في نفس الموضوع لو قمت  بحدف الازرار من النمودج k  دون حدف الاكواد لاني لم اعد احتاجهن هل ستعمل الازرار في النمودج k2 بشكل طبيعي  وهل  سيؤثر على عمل البرنامج مستقبلا   جزاك الله عني كل خير

تم تعديل مارس 30, 2021 بواسطه ازهر عبد العزيز

[jjafferr]

مع اني اعرف ان الزر لا يقوم بالعمل ، بل الكود ،

ولكن ننتظر نتيجة تجربتك 🙂

 

جعفر

[kha9009lid]

10 ساعات مضت, ازهر عبد العزيز said:

وايضا عند كتابة رقم او نص في الحقول الموجودة في النمودج k2 والضغط على زر ترحيل تظهر هدة البيانات في الحقول الموجودة في النمودج k 

 في مثل هذه الحالة البسيطة ممكن تحميل قيمة حقل او عدة حقول دفعة واحد في زر امر فتح من خلال OpenArgs

DoCmd.OpenForm "k", , , , acFormAdd, , KNUM & "|" & KTEXT

وفي حدث عند الفتح او زر امر  نضع الكود الاتي

Dim varSplitString As Variant
varSplitString = Split(Me.OpenArgs, "|")
Me.KNUM.Value = varSplitString(0)
Me.KTEXT.Value = varSplitString(1)

 

 

تم تعديل مارس 30, 2021 بواسطه kha9009lid

[ازهر عبد العزيز]

منذ ساعه, kha9009lid said:

 في مثل هذه الحالة البسيطة ممكن تحميل قيمة حقل او عدة حقول دفعة واحد في زر امر فتح من خلال OpenArgs

DoCmd.OpenForm "k", , , , acFormAdd, , KNUM & "|" & KTEXT

وفي حدث عند الفتح او زر امر  نضع الكود الاتي

Dim varSplitString As Variant
varSplitString = Split(Me.OpenArgs, "|")
Me.KNUM.Value = varSplitString(0)
Me.KTEXT.Value = varSplitString(1)

 

 

حفظكم الله اساتدتي من كل مكروة جزاكم الله عني خير الجزاء