التحديد في خانة اختيار لسجل واحد فقط

[AboSaad17]

السلام عليكم ورحمة الله وبركاته 
في  النموذج  سجلات مستمرة وخانة أختيار 
في النموذج يمكن تنشيط  أكثر من خانة أختيار 
المطلوب :

إيقاف خاصية اختيار لأكثر من سجل بحيث اذا تم تنشيط سجل والانتقال لتنشيط السجل الاخر يتم الغاء السجل الاول 

choose_1.mdb

[Shivan Rekany]

5 ساعات مضت, AboSaad17 said:

إيقاف خاصية اختيار لأكثر من سجل بحيث اذا تم تنشيط سجل والانتقال لتنشيط السجل الاخر يتم الغاء السجل الاول 

استخدم هذا
 

Private Sub choose_AfterUpdate()
    DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;"
    Me.Refresh
End Sub

 

choose_1 (1).mdb

[AboSaad17]

الاخ الفاضل  Shivan

أولا لك مني جزيل الشكر على تجاوبك 

ثانيا هناك ملاحظة 
عند القيام باختيار سجل ثم اقوم بالغاء الاختيار لنفس السجل تظهر رسالة كما في الصورة المرفقة 
 

[Shivan Rekany]

10 ساعات مضت, AboSaad17 said:

عند القيام باختيار سجل ثم اقوم بالغاء الاختيار لنفس السجل تظهر رسالة كما في الصورة المرفقة

اتفضل استخدم هذا بدل ذلك
 

Private Sub choose_Click()
On Error Resume Next
    DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;"
    DoCmd.RunCommand acCmdRefreshData
End Sub

 

choose_1 (1) (1).mdb

[AboSaad17]

الاخ الفاضل  Shivan

 

لك مني جزيل الشــــكر 
وزادك الله علما 

 

[أحمد وجيه]

الاخوة الكرام جربت الطريقة المرفقة ولكن تظهر هذه الرسالة , أريد الغاء ظهورها

[AboSaad17]

تفضل 

Private Sub choose_Click()
On Error Resume Next
    DoCmd.SetWarnings False

    DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;"
    DoCmd.RunCommand acCmdRefreshData
    Me.choose.Requery

End Sub
 

 

والشــكر للاستاذ الفاضل   Shivan