المشاركات : 50
المواضيع 20
الإنتساب : Sep 2020
السمعة :
3
الشكر: 26
تم شكره 33 مرات في 22 مشاركات
08-09-20, 05:16 PM
(آخر تعديل لهذه المشاركة : 21-09-20, 09:06 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم ورحمة الله و بركاته
لدي 2 textbox فى البرنامج نوع data فيهم number-integer , number-double
وبعمل دالة if ان اذا المستخدم لم يدخل بيانات فيهم يعطيه رساله بادخال البيانات
لكن يعطي خطأ
الكود المستخدم
المشاركات : 21
المواضيع 1
الإنتساب : Sep 2020
السمعة :
3
الشكر: 87
تم شكره 68 مرات في 24 مشاركات
(08-09-20, 05:16 PM)khaled Mohammed كتب : السلام عليكم ورحمة الله و بركاته
لدي 2 textbox فى البرنامج نوع data فيهم number-integer , number-double
وبعمل دالة if ان اذا المستخدم لم يدخل بيانات فيهم يعطيه رساله بادخال البيانات
لكن يعطي خطأ
الكود المستخدم
انسخ الكود
لان مافيا اكتبو
المشاركات : 50
المواضيع 20
الإنتساب : Sep 2020
السمعة :
3
الشكر: 26
تم شكره 33 مرات في 22 مشاركات
(08-09-20, 05:19 PM)Hasaneen كتب : (08-09-20, 05:16 PM)khaled Mohammed كتب : السلام عليكم ورحمة الله و بركاته
لدي 2 textbox فى البرنامج نوع data فيهم number-integer , number-double
وبعمل دالة if ان اذا المستخدم لم يدخل بيانات فيهم يعطيه رساله بادخال البيانات
لكن يعطي خطأ
الكود المستخدم
انسخ الكود
لان مافيا اكتبو
كود :
If (String.IsNullOrWhiteSpace(txt_id.Text) AndAlso
String.IsNullOrWhiteSpace(txt_name.Text) AndAlso
String.IsNullOrWhiteSpace(txt_700.Text)) Then
MsgBox("يجب ملأ كافة الحقول")
Return
End If
'جربت هذا ايضا
If txt_id.Text = 0 And
txt_name.Text = "" And
txt_700.Text = 0 Then
MsgBox("يجب ملأ كافة الحقول")
Return
End If
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
مانوع الخطأ ؟؟
ولماذا لا تستخدم حدث Validating لكل مربعات النص ؟
المشاركات : 21
المواضيع 1
الإنتساب : Sep 2020
السمعة :
3
الشكر: 87
تم شكره 68 مرات في 24 مشاركات
طرقتي قديمه شوي
لاحظ استخدم or وليس and
PHP كود :
'جربت هذا ايضا
If val(txt_id.Text) = 0 or txt_name.Text.trim = "" or val(txt_700.Text) = 0 Then MsgBox("يجب ملأ كافة الحقول") Return End If
المشاركات : 50
المواضيع 20
الإنتساب : Sep 2020
السمعة :
3
الشكر: 26
تم شكره 33 مرات في 22 مشاركات
(08-09-20, 05:28 PM)Anas Mahmoud كتب : مانوع الخطأ ؟؟
ولماذا لا تستخدم حدث Validating لكل مربعات النص ؟
قاعدة البيانات ACCess
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
ال Validation افضل بصراحة وكثر تطورا وامانا
عدل الخاصية AutoValidate للفورم الى Disable
اضف حدث Validating الى مربعات النص
كود :
Private Sub TextBox3_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox3.Validating, TextBox1.Validating, TextBox2.Validating
Dim txt As TextBox = sender
e.Cancel = String.IsNullOrWhiteSpace(txt.Text)
End Sub
الان عند الحاجة للتأكد من المربعات ليست فارغة استخدم ValidateChildren :
كود :
If Me.ValidateChildren() = False Then
MsgBox("يجب ملأ كافة الحقول")
Return
End If
المشاركات : 50
المواضيع 20
الإنتساب : Sep 2020
السمعة :
3
الشكر: 26
تم شكره 33 مرات في 22 مشاركات
08-09-20, 05:57 PM
(آخر تعديل لهذه المشاركة : 08-09-20, 05:58 PM {2} بواسطة khaled Mohammed.)
(08-09-20, 05:35 PM)Hasaneen كتب : طرقتي قديمه شوي
لاحظ استخدم or وليس and
PHP كود :
'جربت هذا ايضا
If val(txt_id.Text) = 0 or txt_name.Text.trim = "" or val(txt_700.Text) = 0 Then MsgBox("يجب ملأ كافة الحقول") Return End If
هذا الكود افاد المطلوب .. اشكرك
(08-09-20, 05:45 PM)Anas Mahmoud كتب : ال Validation افضل بصراحة وكثر تطورا وامانا
عدل الخاصية AutoValidate للفورم الى Disable
اضف حدث Validating الى مربعات النص
كود :
Private Sub TextBox3_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox3.Validating, TextBox1.Validating, TextBox2.Validating
Dim txt As TextBox = sender
e.Cancel = String.IsNullOrWhiteSpace(txt.Text)
End Sub
الان عند الحاجة للتأكد من المربعات ليست فارغة استخدم ValidateChildren :
كود :
If Me.ValidateChildren() = False Then
MsgBox("يجب ملأ كافة الحقول")
Return
End If
ليست كل الحقول مطلوب ادخالها ، لكن سوف اجرب هذا الكود لتعلمه ، شاكر لحضرتك
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
08-09-20, 07:00 PM
(آخر تعديل لهذه المشاركة : 08-09-20, 07:02 PM {2} بواسطة ابو روضة.)
(08-09-20, 05:45 PM)Anas Mahmoud كتب : ال Validation افضل بصراحة وكثر تطورا وامانا
عدل الخاصية AutoValidate للفورم الى Disable
يا أنس يا أنس يا من جعلت المنتدى ونَس....
تعطى لهذا وتحل مشاكل هذا وكأنك تهُش ذبابة أو تلعب تِنس....
فجزاك الله كل الخير أيها المبرمج الشرس....
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
08-09-20, 08:39 PM
(آخر تعديل لهذه المشاركة : 08-09-20, 08:42 PM {2} بواسطة Anas Mahmoud.)
(08-09-20, 07:00 PM)ابو روضة كتب : (08-09-20, 05:45 PM)Anas Mahmoud كتب : ال Validation افضل بصراحة وكثر تطورا وامانا
عدل الخاصية AutoValidate للفورم الى Disable
يا أنس يا أنس يا من جعلت المنتدى ونَس....
تعطى لهذا وتحل مشاكل هذا وكأنك تهُش ذبابة أو تلعب تِنس....
فجزاك الله كل الخير أيها المبرمج الشرس....
وجزاك بمثله اخي الكريم
اشكرك على الكلام الجميل
(08-09-20, 05:57 PM)khaled Mohammed كتب : ليست كل الحقول مطلوب ادخالها ، لكن سوف اجرب هذا الكود لتعلمه ، شاكر لحضرتك
بسيطة ، اضف الحدث Validating للحقول المطلوب ادخالها فقط
http://vb4arb.com/vb/showthread.php?tid=36184
https://docs.microsoft.com/en-us/dotnet/...nstraints_
|