اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

علامة اختيار.accdbFetching info...

قام بنشر
  في 15‏/4‏/2020 at 09:21, حلبي said:

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

Expand  

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

  في 15‏/4‏/2020 at 09:21, حلبي said:

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

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

Expand  

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

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

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

واليك الكود


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

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

اليك الملف

 

علامة اختيار.accdbFetching info...

  • Like 2
قام بنشر

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

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

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

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

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

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

  • Haha 2
قام بنشر
  في 15‏/4‏/2020 at 12:05, حلبي said:

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

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

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

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

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

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

Expand  

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

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

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

  • Like 1
  • Thanks 1
قام بنشر
  في 15‏/4‏/2020 at 12:57, حلبي said:

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

اللهم امين 

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

Expand  

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information