أريد بعد تحديد الكل ينقل اشارة الصح الى الحقل المشابه في نموذج dd

[الصّارم]

مشكلتي في المرفق هي

 ابحث عن اسم mm تأتي مجموعة خيارات بجانب اسم mm وعند وضع إشارة الصح على زر الكل تنتقل إشارة الصح على كافة خيارات mm ولكن لا تنتقل إلى النموذج dd
بينما تنتقل الإشارة عند الضغط عليها مباشرة بدون الكل
مع العلم أني أستخدم استعلام تحديث للنقل

d1_2.rar

[أبو العقاب]

؟؟

[jjafferr]

وعليكم السلام 

 

تفضل ، استعمل هذا الكود (نفس كودك ، بس عملت فيه نسخة من حدث تدقيق9_AfterUpdate):

Option Compare Database

Private Sub all_AfterUpdate()
Me.Refresh
Dim Rs As DAO.Recordset
Set Rs = Form.RecordsetClone
Rs.MoveFirst
Do While Not Rs.EOF
Rs.Edit
Rs!bbb = all
Rs.Update
Rs.MoveNext
Loop
Set Rs = Nothing

DoCmd.SetWarnings False
DoCmd.OpenQuery "qu"
DoCmd.SetWarnings True

End Sub

Private Sub تدقيق9_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "qu"
DoCmd.SetWarnings True

End Sub

 

جعفر

[الصّارم]

بارك الله بك أخ جعفر 

زبطت وتسلم ايديك