كيفية نسخ حقل متغير من نموذج فرعي ووضعه في حقل في نموذج رئيسي

تفضل المثال بعد التعديل

ونصيحة غير التسميات باللغة الإنجليزية ليسهل التعامل معها برمجياً

______.rar

شكرا لك اخي مصلح الحريصي وبارك الله لك وبارك في ( ساره ) وزادك علما

اخي مصلح .الحريصي ....

السلام عليكم

بالنسبة الى الكود المرفق والتي تفصلت به أنت علينا ..

Me.LastSalary = DLast("[LSalaryDate]", "Tbl2", "[iD]=" & Me.TxtID & "")

الكود مفهوم

الوسطية الاولي اسم الحقل

الوسيطة الثانية اسم الجدول

لكن بالنسبة الى الوسطية الثالثة ...

هل هي ضرورية ، ام اخيتارية .. وما هي وظيفتها .. يعني مهمتها ...

ولكم جزيل الشكر

السلام عليكم

الوسيطة الثالثة هي التي تحدد لك رقم التعريف للموظف وإن لم تضعها فإنه سيحضر لك آخر قيمة في الجدول بغض النظر عن الموظف

والله ولي التوفيق

جزاكم الله خيرااااااااااااااااااااااااا

اخي الفاضل .. شكرا لك على كل شيء ..

لكن لدي هذه الاستفسارات ..

هل هناك من يتكرم بالرد عليها ..

1-العملية السابقة لا تتم الا اذا خرجت من السجل ورجعت اليه مرة ثانية ولا تتم عند التغيير الفوري في النموذج الفرعي .. فهل هناك .طريقة بحيث ان تعديل في التواريخ في النموذج الفرعي .. يتم وضعه تلقائيا في النموذج الرئيسي .. دون الحاجة الى الخروج من السجل ثم الرجوع اليه ..

2- ما هي الطريقة للاشارة الى حقل في النموذج الرئيسي وانا داخل النموذج الفرعي ..

كنت اعتقد ان الطريقة .. لكنها لم تفلح معي ..

اسم النموذج الرئيسي .اسم الحقل ..

Me.LastSalary = DLast("[LSalaryDate]", "Tbl2", "[iD]=" & Me.TxtID & "")

بالنسبة الكود الذي تفضله بــــه ..

أ- لمذا اسماء الحقول داخل أقواس [ ] أما أسماء الجدول .. فلا ..

ب- Me.TxtID .. بالرغم أن هذ اسم حقل ولم يتم وضعه بين قوسين [ ]

ج- ما فائدة & التي وضعت قبل الحقل وبعده ...

رابعا اعذر لي جهلي وكثرة الاسئلة .. لكنني من طبيعتي أن أرغب باستعياب الدرس من جميع الوجوه

وشكرا لك مر ة ثانية وثالثة ....

للرفع

للرفع

اقتباس

1-العملية السابقة لا تتم الا اذا خرجت من السجل ورجعت اليه مرة ثانية ولا تتم عند التغيير الفوري في النموذج الفرعي .. فهل هناك .طريقة بحيث ان تعديل في التواريخ في النموذج الفرعي .. يتم وضعه تلقائيا في النموذج الرئيسي .. دون الحاجة الى الخروج من السجل ثم الرجوع اليه ..

هذا صحيح لأن الدالة تعيد أخر قيمة في الجدول وعندما تضيف تاريخ في النموذج الفرعي لا بد أن تنتقل حتى يتم إضافة السجل للجدول ثم تأتي الدالة بأخر سجل.

اقتباس

- ما هي الطريقة للاشارة الى حقل في النموذج الرئيسي وانا داخل النموذج الفرعي ..

Forms!اسم النموذج!اسمالحقل

مثال

Forms!Frm1!Txt1=me.Txt2

Form إشارة إلى نوع الكائن

Frm1=اسم النموذج الرئيسي

Txt1= اسم مربع النص على النموذج الرئيس

me.=اسم النموذج الحالي

Txt2=اسم مربع النص على النموذج الحالي

في السطر Forms!Frm1!Txt1=me.Txt2 أسندنا القيمة الموجودة في مربع النص في النموذج الحالي لمربع النص الموجود في النموذج الرئيسي

اقتباس

لمذا اسماء الحقول داخل أقواس [ ] أما أسماء الجدول .. فلا

في البرمج عندما نريد الإشارة إلى أي اسم لكائن سواء جدول أو حقول أو أي كائن على النموذج عندما يتكون الاسم من جزئين مثل Txt Salarty فأن فيجول لا يقبل وتظهر رسالة خطأ والحل يكمن في الأتي:

وضع بين الجزئين أي المسافة Space شرطة سفلية كهذه _ فيصبح الاسم السابق كالتالي Txt_Salary

أو

وضع الأسم بين قوسين مربعي هكذا [Txt Salary] وإذا كان الأسم متصل ببعض مثل TxtSalary فلا داعي لوضع الأقواس

اقتباس

ما فائدة & التي وضعت قبل الحقل وبعده ..

هذا من ضمن البرمجة وهي تربط الشرط بقيمة مربع النص

---------------------------------------------------

هذا كان فيما يخص أسئلتك أما بالنسبة للموضوع الأصلي فإليك الحل

أولا يجب أن نغير اسم النموذج الرئيسي لأننا سنشير إليه في الكود والتعامل مع التسميات باللغة العربية صعبة سنمسي النموذج الرئيسي بالاسم :MinFrm

نذهب إلى النموذج الفرعي المسمى SubFrm ونعرضه في وضع التصميم ومن خصائص مربع النص LastSalary نختار خصائص التبويب حدث _ حدث عند الخروج ونكتب السطر التالي

Forms!MinFrm!LastSalary = Me.LastSalary

وبهذا أسند التاريخ المدخل لمربع النص في النموذج الرئيسي

وهذا المثال جربه وأخبرنا

MMM.rar

استاذنا مصلح الحريصي ابو سارة

بصراحة لا أدري كيف اشكرك ....

فالشكر ... قليل بحقك ..؟؟!!!

أخي الكريم

أن تدعو لنا بالنجاة من النار والفوز بالجنة كلما استطعت الدعاء

بسم الله الرحمن الرحيم

بارك الله فيك اخي مصلح ورزقك ما تشتهي ونحن معك ... امين يارب العالمين