السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء
كود :
If txtQty_U.Text = "" Then
MsgBox("يرجى إدخال الكمية بالتجزئة و الجملة", MsgBoxStyle.Exclamation, "تنبيه")
Exit Sub
End If
(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 كتب : [ -> ]بالضبط لا يخرج من الإجراء الذي استدعي منه
اعمل شي فلاجراء الخارجي يجعل الاجراء يرجع قيمه نعم او لا
نعم هناك نقص في البيانات
لا البيانات كامله
بحيث وانت في كود استدعاء الاجارء الحارجي اذا رجع من الاستعداء الخارجي نعم يخرج هو ايضا
تم الحل
كود :
Public Function ObligateField() As Boolean
هنا يتم وضع الشرط
Return True
End Function
و في الإجراء الذي سيتم الإستدعاء منه يتم وضع الكود التالي :
كود :
If ObligateField() Then
Exit Sub
End If