ادخال قيم فارغة الى قاعدة البيانات امر غير مستحب ينتج عنه مشاكل بغنى عنها!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
الكود السابق يمنع كتابة المسافة بالتكست بوكس لكنها غير منطقية فالكل يحتاج الى المسافة لفصل الكلمات !!
السؤال هو كيف اقوم باجبار المستخدم ادخال قيم صحيحة وعدم السماح له بادخال قيم فارغة داخل التكست بوكس؟
ودمتم سالمين
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
من الأفضل التأكد من عدم إدخال قيم فارغة عند الضغط على أحد الأزرار ،
If Trim(Text1.Text)<>"" Then '.... '.... '.... End IF
سبحان الله وبحمده ... سبحان الله العظيم
شكرا لكن اين يتم وضع الكود ؟
وتحت اي نوع
chang or keypress او ماذا؟؟
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
تضعه في الحدث Click للزر الذي يقوم بالإضافة إلى قاعدة البيانات ..
مثال
Private Sub Command1_Click() If Trim(Text1.Text)= "" Then MsgBox "لا يمكنك ترك مربع النص فارغًا .." Text1.SetFocus Exit Sub End If End Sub
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 1 فبراير 2009 في 10:24
سبحان الله وبحمده ... سبحان الله العظيم
زبطت يا باشا شكرا لك وافادنا الله بعلمك
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…