(30-01-20, 12:24 AM)larbihamri كتب : السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء

كود :

 If txtQty_U.Text = "" Then
               MsgBox("يرجى إدخال الكمية بالتجزئة و الجملة", MsgBoxStyle.Exclamation, "تنبيه")
           Exit Sub
       End If

(30-01-20, 02:37 AM)larbihamri كتب : عندما اضع عذا الكود مباشرة في الزر يعمل بدون اي مشكلة لكن عندما اضعه في اجراء خارجي و استدعيه في زر الحفظ مثلا فإنه لا يخرج من الاجراء مباشرة عند تحقق الشرط

(30-01-20, 08:12 PM)larbihamri كتب : بالضبط لا يخرج من الإجراء الذي استدعي منه

(30-01-20, 08:48 PM)larbihamri كتب : تم الحل

كود :

Public Function ObligateField() As Boolean
هنا يتم وضع الشرط
Return True    
End Function

و في الإجراء الذي سيتم الإستدعاء منه يتم وضع الكود التالي :

كود :

If ObligateField() Then
           Exit Sub
       End If