الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عند تحديد زر يفعل كود وعند حذف التحديد يفعل كود كود آخر دون الخلط

بدأه un know في 11 يناير 2014 · 4 رد · 420 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

 

برجاء المساعدة في المثال المرفق في تفعيل هذا الكود عند إلغاء التحديد فقط عند مربع absent

 

If Me.absent = yes Then
If MsgBox(" åá ÃäÊ ãÊÃßÏ ãä ÍÐÝ ÇáØÇáÈ -  " & x & "  ãä ÇáÛíÇÈ  ", vbYesNo, "ÊäÈíå") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "dabsent1-a"
DoCmd.SetWarnings True

Else
DoCmd.CancelEvent

 

 

مع المحافظة على أن عند تحديد المربع  absent يتم تفعيل الكود

 

If MsgBox(" åá ÃäÊ ãÊÃßÏ ãä ÊÓÌíá ÇáØÇáÈ -  " & x & "  Ýí ÇáÛíÇÈ  ", vbYesNo, "ÊäÈíå") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "absent1-a"
DoCmd.SetWarnings True
Else
DoCmd.CancelEvent

 

 

وشكرا جزيلا

db555.rar

#3

أخي / طالب علم مبتدىء بارك الله فيك وشكرا جزيلا على المساعدة ولكن أخي هذا ليس المطلوب

 

دعني أوضح المطلوب بشكل آخر

 

1- عند تحديد الطالب في مربع absent تظهر رسالة التسجيل في الغياب   نعم / لا   وفي حالة نعم  يفعل الاستعلام  absent1-a وفي حالة لا يلغى الإجراء .

 

2- عند إزالة التحديد من الطالب في مربع absent تظهر رسالة الحذف من الغياب   نعم / لا    وفي حالة  نعم  يفعل الاستعلام dabsent1-a  وفي حالة لا يلغى الإجراء .

 

أي بشكل منفصل كل على حدى ......

#4

السلام عليكم،

كل ما نحتاج فعله في حدث الـ Absent_AfterUpdate هو إختبار حالة صندوق الاختيار Absent ، وهو يأخذ قيمتين : True أو False ، وليس Yes وَ No كما جاء في مثالك..

هناك طريقتان؛ إما أن تستخدم If Then ،

أو أن تستخدم Case Select ، وهي الأسهل والأكثر مرونة، والأبطأ حين تكون الخوارزمية واسعة.

بالتوفيق،

عبدالله،،،
 

Activate Code Upon Defocus.rar

#5

أخي الكريم / عبدالله

 

بارك الله لك وبارك فيك وكثر من أمثالك

 

شكراً جزيلاً

 

جزاكم الله خيراً

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…