30-01-20, 12:24 AM
السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء
كود :
If txtQty_U.Text = "" Then
MsgBox("يرجى إدخال الكمية بالتجزئة و الجملة", MsgBoxStyle.Exclamation, "تنبيه")
Exit Sub
End If