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

الطـاير · فبراير 20, 2005

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

اخواني :

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

وشكراً

**rudwan** · فبراير 20, 2005

السلام عليكم

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

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

forms!formname.recordset.locked=false

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

me.recordset.locked=true

الطـاير · فبراير 21, 2005

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

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

اخوك : محمد

الطـاير · فبراير 22, 2005

السلام عليكم

Forms!ov!ov2.AllowAdditions = True

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

حيث :

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

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

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

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

وشكرا

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

**rudwan** · فبراير 22, 2005

.AllowAdditions = True

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

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

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

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

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

me.locked=true

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

الطـاير · فبراير 23, 2005

.AllowAdditions = True

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

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

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

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

**rudwan** · فبراير 23, 2005

السلام عليكم

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

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

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

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

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

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

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

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

prpperites - data - locked= yes

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

الطـاير · فبراير 23, 2005

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

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

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

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

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

Forms!ov!ov2.AllowAdditions = True

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

Me.AllowAdditions = False

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

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

الطـاير · مارس 1, 2005

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

**الدكتور خضر الرجبي** · مارس 1, 2005

السلام عليكم

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

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

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

مع الاحترام

altair.rar

الطـاير · مارس 1, 2005

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

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

اخوك : محمد

الطـاير · مارس 1, 2005

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

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

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

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

**rudwan** · مارس 1, 2005

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

أولا اجعل مصدر سجلات النموذج الثاني مقفلا ,
ثانيا : في حدث بعد التحديث للعنصر 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