تفعيل " احداث " النموذج الفرعي من خلال النموذج الاساسي

غير Private Sub إلى Public Sub،

هذا باختصار.

مافهمت عليك يا حبيب

انا الحين ارفقت لك عمل فيه نموذج رئيسي و فرعي ...

اللي ابيه منك " فضلاً ليس أمراً " انك تسوي لي امر يكون في ( النموذج الرئيسي ) بحيث أني لما أضغط عليه يحفظ العمل و يلغي التعديل على كل الحقول " الرئيسية و الفرعيه " يعني بعد الضغط على حفظ يكون لونها رمادي :blink:

إن شاء الله قدرت اوضح المطلوب

db1.rar

شكرا لتوضيح طلبك.

تم حل المسألة بطريقة الحفظ ومنع التعديل

وبطريقة أخرى وهي إستدعاء أمر من نموذج آخر.

ولك حرية الإختيار.

ملاحظة: تم تغيير أسماء بعض عناصر التحكم، لأنه لا يمكن تسمية مربع نص باسم Name لأن هذه الكلمة محجوزة.

db11_New.zip

الله يجزاك خير و يطول عمرك ..

كثر الله خيرك ياغالي و ما قصرت ..

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

مشكلتي أن كود الحفظ في النموذج الريئيسي فيه أكواد ولا أقدر احذفها وبنفس الوقت ما عرفت كيف أضيف اكوادك معاها ..

أنا بحاول و إن شاء الله يضبط ..

وإذا عندك شي إضافي لا تبخل علينا الله يزيدك ..

وعمرك إن شاء الله طويل،

وتسلم أخوي.

جوف وين وقفت وأنا حاضر وممنون.

الله يجزاك خير و يطول عمرك ولا يحرمك الاجر ..

بشرح لك السالفه ومعليش لو طولت عليك ..

انا برنامج يتكون من ..

جدولين .

نموذجين .

النموذج الأول داخله النموذج الثاني " فرعي "

في النموذج الأول انشأت أمر " حفظ " وفيه هذا الكود للأخ " ابو حسام " و فادني كثير ..

Private Sub o1_Click()

On Error GoTo Err_o1_Click
If IsNull([id]) Then
If IsNull([NameID]) Or IsNull([PNOID]) Then
MsgBox "لا يمكن ترك حقل الأسم  ", 0, "بـرنـامـج  "
Me![Nametext].SetFocus
Else
  Me!id = Nz(DMax("[ID]", "[Main]"), 0) + 1
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Else

Me![Nametext].Enabled = False
Me![PNOtext].Enabled = False


Me![o1].SetFocus

End If


Exit_o1_Click:
	Exit Sub

Err_o1_Click:
	MsgBox Err.Description
	Resume Exit_o1_Click

End Sub

كيف أقدر أجعل هذا الأمر يحفظ " مع الكود السابق " بلون رمادي لكل النموذجين " الاساسي و الفرعي "

علماً أن اسم النموذج الأول " Add" و النموذج الثاني " SubAdd"

علماً أن الحقول في النموذج الفرعي هي " Date" و " Come" " note"

علماً أن أسم جدول المصدر للفرعي هو " Sub "

لازلت انتظر ردك ياغالي ..

بناء على المعطيات الأخيرة يمكنك نسخ ولصق هذه الأوامر

مع تجاهل الجمل العربية.

	' أولا نقوم بنقل التركيز إلى أي عنصر تحكم آخر مثلا زر أمر
	' حيث أن cmdMsgBox
	' يشير إلى زر أمر موجود في النموذج الفرعي
	Forms![Add]![SubAdd].Form![cmdMsgBox].SetFocus
	' ثانيا نقوم بمنع التعديل
	'من خلال تغيير خاصية ممكن إلى كلا برمجيا
	Forms![Add]![SubAdd].Form![DATE].Enabled = False
	Forms![Add]![SubAdd].Form![NOTE].Enabled = False
	Forms![Add]![SubAdd].Form![Come].Enabled = False
	Forms![Add]![SubAdd].Form![NOTE].Enabled = False

بعد هذه الجملة:

  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

أو بعد هذه الجملة:

Me![PNOtext].Enabled = False

الأمر يعود إليك متى تريد إجراء عملية عدم التمكين بعد أمر الحفظ أم بعد إجراء آخر.

كثر الله خيرك و طول الله عمرك على طاعته ..

لو إن عندي حبيت راسك ..

ضبط الحين ميه المية ..

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

الحين ياليت تشووف لي هالمشكلة :lol:

و أكون شاكر و ممون لك ..

/index.php?showtopic=204747

تسلم يا أخوي imy،

وأوعدك بالإهتمام بالمشكلة الأخرى.