عند الضغط علامة الاختيار المستديرة تفتح نموذج

[الحلبي]

سلام الله عليكم جميعا

تعبت من كثرة المحاولات لدرجة الممل من هذه الجزئية البسيطة وكنت اتمكن من عملها سابقا

مرفق نموذجين الاول قمت بعمل عدم التعديل عليه  من خصائص النموذج .........    وبه خانة الاختيار المستديرة 

اريد عن الضغط على علامة الاختيار يفتح النموذج الاخر  فقــــــــــــــــــــــط

علامة اختيار.accdb

[Shivan Rekany]

1 ساعه مضت, حلبي said:

1 - مرفق نموذجين الاول قمت بعمل عدم التعديل عليه  من خصائص النموذج

لا تنسى هذه الجزئية

1 ساعه مضت, حلبي said:

وبه خانة الاختيار المستديرة 

اريد عن الضغط على علامة الاختيار يفتح النموذج الاخر  فقــــــــــــــــــــــط

خانات الاختيار لا يمكنك ان تعمل عليه تعديل اي تضغط عليه في حالة  خاصية عدم التعديل على الفورم

لكن تقدر ان تستخدم زر بدل خانة الاختيار وسيفعل بشكل جيد

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

واليك الكود

Private Sub Option0_Click()
    DoCmd.OpenForm "f2", acNormal
    Me.Form.AllowEdits = False
End Sub

Private Sub Option0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Form.AllowEdits = True
End Sub

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

اليك الملف

 

علامة اختيار.accdb

[الحلبي]

اهلا بك استاذنا / @Shivan Rekany

جزاكم الله خير على التوضيح الاكثر من ممتاز لقد ارحت قلبى لانى تعبت من كثرة المحاولات

على العموم فعلا حسب نصيحتكم عند تطبيق الاكواد النموذج كله يرتعش ويهتز كأن به زلازال 7.5 رختر

وفضلت ان استخدم اى وسيله اخرى

بارك الله فيكم وجعله فى ميزان حسناتكم واحسن الله الى اولادكم 

كل الاحترام والتقدير لكم 

[أبوبسمله]

43 دقائق مضت, حلبي said:

اهلا بك استاذنا / @Shivan Rekany

جزاكم الله خير على التوضيح الاكثر من ممتاز لقد ارحت قلبى لانى تعبت من كثرة المحاولات

على العموم فعلا حسب نصيحتكم عند تطبيق الاكواد النموذج كله يرتعش ويهتز كأن به زلازال 7.5 رختر

وفضلت ان استخدم اى وسيله اخرى

بارك الله فيكم وجعله فى ميزان حسناتكم واحسن الله الى اولادكم 

كل الاحترام والتقدير لكم 

جزاك الله خيرا اخى واستاذنا @Shivan Rekany

منور اخى محمد اضحكتنى وربنا يستر من الزلازل كفايه كورونا عفانا الله واياكم وجميع المسلمين فى شتى بقاع الارض وجعلها الله هدايه ورجوع اليه واجلال لقدرته وعظمته سبحانه وتعالى

باالتوفيق اخى محمد

[الحلبي]

استاذى / @أحمد الفلاحجى

اللهم امين 

سعيد جدا كونى كنت السبب فى ضحكة لك 

[أبوبسمله]

3 دقائق مضت, حلبي said:

استاذى / @أحمد الفلاحجى

اللهم امين 

سعيد جدا كونى كنت السبب فى ضحكة لك 

انا الاسعد اخى محمد بارك الله فيك اخى الغالى وفقك الله الى ما يحبه ويرضاه