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

أخي الكريم...

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

والله أعلم.

الاخ العزيز شكرا على الرد

ولكن المسئلة مهمه لى اننى اريد كود المورد يظهر فى تفاصيل كل صنف ةبالتالى يظهر فى جدول التفاصيل

برجاء المساعدة ان امكن

واليك المرفق

1.rar

تفضل أخي إذاً هذا التعديل...

ما تم هو كالتالي:

ضبط الخاصية التالية

من أجل أن يأخذ كود المورد في التفاصيل كود المورد في النموذج الرئيس بشكل افتراضي

ومن أجل عكس التغيير في كود المورد في النموذج الرئيس على كود المورد في التفاصيل، من الممكن إضافة الكود التالي في حدث (بعد التحديث) لكود الكورد في النموذج الرئيس (كلما تغير، غيرنا كل أكواد الموردين في نموذج التفاصيل):

Private Sub كود_مركز_التكلفة_AfterUpdate()
	Dim rs As DAO.Recordset

	Set rs = Me.[details subform].Form.RecordsetClone
	If Not rs.EOF Then rs.MoveFirst
	While Not rs.EOF
		rs.Edit
		rs.Fields("Prossed_number") = Me.[كود مركز التكلفة]
		rs.Update
		rs.MoveNext
	Wend
	rs.Close
	Set rs = Nothing
End Sub

أرجو أن يكون هذا مفيداً لك، والله أعلم...

أخوك أحمد.

1.rar

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

مافعلته هو المطلوب بالفعل

ولكن

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

واننى اريد منك ان استطيع انه كلما غيرت فى كود المورد الرئيسى يعدل كود المورد 2 فى الفرعى اكثر من مرة وليس مرة واحدة

وشكرا على تواصلك

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

الأخ العزيز...

كلامك صحيح، ويمكن إزالة هذا الـbug، بتعديل الكود إلى التالي:

Private Sub كود_مركز_التكلفة_AfterUpdate()
	Dim rs As DAO.Recordset

	Set rs = Me.[details subform].Form.RecordsetClone
	If rs.RecordCount > 0 Then rs.MoveFirst
	While Not rs.EOF
		rs.Edit
		rs.Fields("Prossed_number") = Me.[كود مركز التكلفة]
		rs.Update
		rs.MoveNext
	Wend
	rs.Close
	Set rs = Nothing
End Sub

لاحظ أخي أن التغيير فقط في السطر الرابع ...

والله أعلم..