|2| التحكم في نموذج فرعي من نموذج فرعي آخر

[الطـاير]

السلام عليكم ورحمة الله وبركاته

اخواني :

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

وشكراً

[rudwan]

السلام عليكم

أولا اجعل مصدر سجلات النموذج الثاني مقفلا ,

ثانيا : في حدث بعد التحديث للنموذج الأول ضع الكود التالي :

forms!formname.recordset.locked=false

و هذا الكود لم أجربه , أرجو تجربته هل يعطي نتائج صحيحه ثالثا : في حدث بعد التتحديث للنموذج الثاني ضع الكود التالي :

me.recordset.locked=true

[الطـاير]

جزاك الله خير اخي رضوان

سوف اجربه واعطيك الرد ان شاء الله

اخوك : محمد

[الطـاير]

السلام عليكم

Forms!ov!ov2.AllowAdditions = True

بعد محاولات قمت بكتابة الكود السابق ولكن يحتاح الى تصحيح

حيث :

- هذا الكود في نموج فرعي ov1 وخاص بحقل معين بعد التحديث فيه

- ov هو النموذج الرئيسي

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

فارجوا تصحيح الكود السابق

وشكرا

تم تعديل مارس 14, 2005 بواسطه خضر الرجبي

[rudwan]

.AllowAdditions = True

هذه الجمله تتيح الامكاتيه لاضافة سجلات جديده و ليس لتعديل سجلات قديمه

أولا اجعل مصدر سجلات النموذج الثاني مقفلا ,

ثانيا : في حدث بعد التحديث للعنصر ov1 من صفحة تصميم النموذج الفرعي الأول و ليس من النموذج الرئيسي , ضع الكود التالي :

Private Sub ov1_AfterUpdate()
Me.Parent.form1.SetFocus
Me.Parent.form1.Locked = False
End Sub

ثالثا : في حدث بعد التحديث للنموذج الثاني ضع الكود التالي :

me.locked=true

تم تعديل فبراير 22, 2005 بواسطه rudwan

[الطـاير]

.AllowAdditions = True

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

أولا اجعل مصدر سجلات النموذج الثاني مقفلا ,

ما معنى انني اجعل مصدر سجلات النموذج الثاني مقفلة ارجو الافادة جزاك الله خير اخي رضوان

تم تعديل فبراير 23, 2005 بواسطه الطـاير

[rudwan]

السلام عليكم

يا أخي حدد ما تريده بالضبط , أنت طلبت كود للسماح بالتعديل

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

و الآن تقول أنك تريد السماح بالاضافه فقط .

ما هذا اللي انا ابيه لا يضيف جل في النموذج الثاني إلا اذا حدثت في حقل معين من النموذج الفرعي الأول

في النموذج تستطيع أن تفعل ماتريد , منع حذف , منع اضافه , منع تعديل للسجلات القديمه

أي شي تريده ممكن لكن أنت حدد بالضبط ماتريد

أما بالنسبه لكيفية جعل مصدر السجلات مقفلا , فهذا يتم كما يلي :

افتح صفحة تصميم النموذج الفرعي , اذهب الى بيانات , ثم اختر اقفال = نعم

prpperites - data - locked= yes

و بذلك لاتستطيع تعديل اي حقل من اي سجل في ذلك النموذج

[الطـاير]

تعبتك معايا اخي رضوان

المطلوب هو اضافة سجل

انا عامل حقل نعم/لا في النموذج الفرعي الاول وكل ما اريده هو لما اضغط علامة صح في الحل نعم/لا يتيح لي حقل يمكن الاضافة والتعديل فيه في النموذج الفرعي الثاني .

وفي حالة ان الحقل نعم/لا يساوي القيمة (لا) لا يظهر اي يسمح لي باضافة سجل في النموذج الفرعي الثاني .

فبعد مسعدتك معايا وتعبك معايا جزاك الله خير عملت الكود التالي ولكن لا يضبط

Forms!ov!ov2.AllowAdditions = True

فأرجو تعديله لو امكن علما بأن : - OV النموذج الرئيسي - OV2 النموذج الفرعي الثاني وانا عملت الكود التالي في حدث عند الفتح في النموذج الفرعي الثاني

Me.AllowAdditions = False

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

تم تعديل فبراير 23, 2005 بواسطه الطـاير

[الطـاير]

الا يوجد حل يا اخواني ؟؟؟؟؟؟؟؟؟؟؟؟؟

[الدكتور خضر الرجبي]

السلام عليكم

أخي الطاير ، بارك الله فيك

إليك المثال التالي الذي أعد خصيصا ليحقق الطلب الذي جاء في سؤالك.

وأتمنى أن يحل المسألة.

مع الاحترام

altair.rar

[الطـاير]

جزاك الله خير اخي خضر وبارك فيك وكثر من امثال

سوف اجرب المثال واعطي لك الرد ان شاء الله

اخوك : محمد

[الطـاير]

اخي خضر طرقتك كويسة

بس انا عندي النموذج الفرعي الثاني ليس بداخل النموذج الفرعي الأول ولكن كلاهما داخل النموذج الرئيسي كل واحد لوحده

يعني هما جنب بعض داخل النموذج الرئيسي

وانا جربت نفس الكود اللي انت عامله بس ما ضبط

[rudwan]

هل جربت الكود الذي كتبته لك أعلاه

أولا اجعل مصدر سجلات النموذج الثاني مقفلا ,

ثانيا : في حدث بعد التحديث للعنصر ov1 من صفحة تصميم النموذج الفرعي الأول و ليس من النموذج الرئيسي , ضع الكود التالي :

SQLPrivate Sub ov1_AfterUpdate()

Me.Parent.form1.SetFocus

Me.Parent.form1.Locked = False

End Sub

ثالثا : في حدث بعد التحديث للنموذج الثاني ضع الكود التالي :

SQLme.locked=true

اذا كان عندك الحقل مرتبط ب نعم أو لا , عدل فيه مايلي

Private Sub ov1_AfterUpdate()
if ov1=true then
Me.Parent.form1.SetFocus
Me.Parent.form1.Locked = False
else
Me.Parent.form1.Locked = true
end if
End Sub

تم تعديل مارس 1, 2005 بواسطه rudwan

[الدكتور خضر الرجبي]

السلام عليكم

أخواي رضوان والطاير ، بارك الله فيكما

جهودكم مباركة (إن شاء الله) والله يعطيكم العافية على هذه المتابعة الحثيثة.

أرجو منكما أن تسمحا لي بتقديم الحل على شكل مثال كما يطلب أخونا الطاير في أخر تعقيباته.

انا عندي النموذج الفرعي الثاني ليس بداخل النموذج الفرعي الأول ولكن كلاهما داخل النموذج الرئيسي كل واحد لوحده

وقد حققت لك ذلك في المثال الثاني المرفق.

مع احترامي وتقديري لكما

altair2.rar

[الطـاير]

جزاكم الله كل الخير اخي خضر واخي رضوان

لقد انحلت المشكلة بفضل الله ثم مساعدتكم لي ادعوا الله ان يزيدكم من علمة ويحفظكم وبارك الله فيكم

اخوكم : محمد الطاير

[الدكتور خضر الرجبي]

المواضيع المتشابهة

1) 20/02/2005 التحكم في نموذج فرعي من نموذج فرعي آخر

2) 11/02/2005 حذف بيانات من نموذج فرعي فقط ؟

3) 17/01/2005 النموذج الفرعي والرئيسي

4) 12/01/2005 الأضافة للنموذج الفرعي من النموذج الرئيسي

5) 21/11/2004 كيف أخفي النموذج الفرعي ؟

6) 31/08/2004 تزامن النماذج الفرعيه مع النموذج الاساسي

7) 10/07/2004 كيفية ربط نموذجين