مشكلة فعالية اكثر من زر خيار

[عذاب الزمان]

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

ارجو حل مشكلة فعالية اكثر من زر خيار OPTION في نفس الوقت موضوعة في اكثر من فريم FRAM وكما موضح في الملف المرافق...

 مع جزيل الشكر لكم .

test options.accdb

[Ali Sadiq]

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

تفضل اخي الكريم 

Private Sub enter_Click()
If Me.fram1.Value = 2 Then
    DoCmd.OpenForm "f_option1one", acNormal

ElseIf Me.fram1.Value = 3 Then
    DoCmd.OpenForm "f_option1two", acNormal

ElseIf Me.fram1.Value = 5 Then
    DoCmd.OpenForm "f_option2three", acNormal
    
ElseIf Me.fram1.Value = 6 Then
    DoCmd.OpenForm "f_option2four", acNormal

ElseIf Me.fram2.Value = 7 Then
    DoCmd.OpenForm "f_option3", acNormal

ElseIf Me.fram2.Value = 8 Then
 DoCmd.OpenForm "f_option4", acNormal

ElseIf Me.fram2.Value = 9 Then
 DoCmd.OpenForm "f_option5", acNormal
End If
Me.fram2 = 0
End Sub

عسى ان يكون هذا المطلوب

بالتوفيق

[عذاب الزمان]

جزاك الله خير اخي الغالي

ماكان ينقصني هو 

ME.FRAM2=0   وايضا  ME.FRAM1=0  

رزقك الله من فضله ماتحب وترضى ...

ممنون منك اخي Ali Sadiq

[عذاب الزمان]

الاخ العزيز Ali

ظهرت مشكلة اخرى 

هي امكانية اختيار اكثر من خيار بنفس الوقت يعني ممكن اختار option3 من fram2  واختيار  option1one من fram1   

المفروض ان يكون التاشير على خيار واحد فقط لعرضه ...

مع التقدير

[Ali Sadiq]

السلام عليكم 

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

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

بالتوفيق 

test options2.accdb