الرجاء المساعدة في فهم كود if

[العراقي المدلل]

السلام عليكم 

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

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

Private Sub Form_Close()
If IsNull(ÇáÇÓã_ÇáßÇãá) Or Me.ÇáÇÓã_ÇáßÇãá = "" Then
MsgBox "íÑÌì ÇáÊÇßÏ ãä ãáÆ ÍÞá ÇáÇÓã ", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub

[ابو ياسين المشولي]

منذ ساعه, العراقي المدلل said:

السلام عليكم 

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

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

Private Sub Form_Close()
If IsNull(ÇáÇÓã_ÇáßÇãá) Or Me.ÇáÇÓã_ÇáßÇãá = "" Then
MsgBox "íÑÌì ÇáÊÇßÏ ãä ãáÆ ÍÞá ÇáÇÓã ", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub

اخي الكود غير مفهوم

ولكن من النظرة الاولى الكود ناقص كلمه end if تحت كلمه Exit Sub

معنى الكود اذا كان الحقل1 فارغ والحقل2 فارغ جيب رساله

تحياتي

ولو ترفق مثل يكون افضل

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

[العراقي المدلل]

اشكرك اخي العزيز 

كامة end if موجودة في الاخير ولاكن الشرط لا ينفذ 

اريد عند الخروج من المشروع لا يغلق النموذج اذا كان حقل الاسم فارغ ولاكن لا يعمل دخلت الكود في حدث عند الاغلاق 

[ابو ياسين المشولي]

اخي العزيز بارك الله فيك

الكود غير واضح كما شايف

لكن اذا تريد عدم الخرو ج استخدم

DoCmd.GoToControl "اسم الحقل"
Me.اسم الحقل.Undo

بدل
Exit Sub

تم تعديل يناير 3, 2018 بواسطه ابو ياسين المشولي

[jjafferr]

 

تفضل هذا الكود ،

ولكن يجب ان لا تضع الكود على هذا الحدث ، فهذا الحدث هو آخر حدث قبل الخروج من النموذج

Private Sub Form_Close()

  If len(me.Text1 & "")=0 Then
    MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية"
Exit Sub
  end if

 

جعفر

[العراقي المدلل]

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

[jjafferr]

هذه الاحداث ليست بالتسلسل ،

هذا الرابط عملته خاص للتوضيح

 

جعفر

[العراقي المدلل]

اخوان الاعزاء لم افهم الموضوع فارجوا الشرح المبسط اكون ممنون اخي مصدر عنصر التحكم هو مصدره الجدول لا استطيع ان اضع فيه الكود 

فارجوا ان توضح اين اضع الكود في اي حدث حتى يشتغل الكود اكون ممنون منكم 

[jjafferr]

 

2 ساعات مضت, العراقي المدلل said:

اخوان الاعزاء لم افهم الموضوع فارجوا الشرح المبسط اكون ممنون اخي مصدر عنصر التحكم هو مصدره الجدول لا استطيع ان اضع فيه الكود 

فارجوا ان توضح اين اضع الكود في اي حدث حتى يشتغل الكود اكون ممنون منكم 

 

افضل طريقة ان تضع مثل هذا الكود على حدث "قبل التحديث" للحقل الذي تريد فحصه.

Private Sub tel_BeforeUpdate(Cancel As Integer)

  If Len(Me.tel & "") = 0 Then
    MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية"
    Cancel = True
  End If

End Sub

 

جعفر