المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟
نامل من الله المساعدة العاجله والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:
كود :
If Not IsDate(Text10.Text) Then
MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
Text10.SetFocus
Exit Sub
End If
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(15-05-14, 03:40 AM)ناجي إبراهيم كتب : السلام عليكم...
بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:
كود :
If Not IsDate(Text10.Text) Then
MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
Text10.SetFocus
Exit Sub
End If
نرجو الاستفادة و السلام.
------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
مثال جميل لك مني الف شكر وتقدير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ