15-05-14, 04:01 AM
(15-05-14, 03:40 AM)ناجي إبراهيم كتب : السلام عليكم...------------------------------------------------------
بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:
كود :
If Not IsDate(Text10.Text) Then
MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
Text10.SetFocus
Exit Sub
End If
نرجو الاستفادة و السلام.
اخي العزيز
السلام عليكم ورحمة وبركاته
مثال جميل لك مني الف شكر وتقدير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
