[larbihamri]

السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء

كود :

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

[alsalamoni]

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

كود :

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

الكود هذا بالضبط مافيهوش مشكله

لازم في حاجه تانيه عندك في الكود

[larbihamri]

عندما اضع عذا الكود مباشرة في الزر يعمل بدون اي مشكلة لكن عندما اضعه في اجراء خارجي و استدعيه في زر الحفظ مثلا فإنه لا يخرج من الاجراء مباشرة عند تحقق الشرط

[alsalamoni]

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

يعني الكود عامل ازاي؟

بس هو خرج من الاجراء الخارجي باقي يخرج من الاجراء يللي استدعى الاجراء الخارجي

[larbihamri]

بالضبط لا يخرج من الإجراء الذي استدعي منه

[alsalamoni]

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

اعمل شي فلاجراء الخارجي يجعل الاجراء يرجع قيمه نعم او لا
نعم هناك نقص في البيانات
لا البيانات كامله

بحيث وانت في كود استدعاء الاجارء الحارجي اذا رجع من الاستعداء الخارجي نعم يخرج هو ايضا

[larbihamri]

تم الحل

كود :

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

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

كود :

If ObligateField() Then
           Exit Sub
       End If

[alsalamoni]

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

كود :

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

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

كود :

If ObligateField() Then
           Exit Sub
       End If

تمام كده