ممكن مساعدة بشان التاريخ

[rana2008]

كيف اجبر المستخدم يدخل التاريخ بغض النظر عن تاريخ اليوم في textbox او الماسك واذا كان محل الماسك فاضي يطلع رسالة خطاء
احتاج الكود
وشكرا

[(li) صقر (li)]

في الحقيقة , أنا لا أعرف الكود الخاص بإدخال تاريخ محدد , لكن ما أعرفه هو الكود الخاص برسالة الخطأ وهو :
msgbox "................" , VbYesNo
ويمكن استبدال القيمة "VbYesNo" بالقيم
VbYesNoCancel وهي لوضع الأوامر : نعم , لا , إلغاء الأمر
VbOKOnly وهي لوضع زر موافقة فقط
VbOKCancel لوضع زر موافقة وزر إلغاء الأمر

ويتم تحديد قيم كل زر من الأزرار السابقة إلغاء الأمر , موافق , لا... بقيم تختار حسب الرغبة ويعلمها الإخوة المتمرسون مثل الأخ الفرعون المحترف و خليفة

لو قصرت أنا آسف , بس أنا كمان مبتدأ

[يــس]

السلام عليكم
أخي الكريم وجب عليك استعمال 6.0 Control :Microsoft Masked Edit

ان لميكن موجودا في قائمة الأدوات Barre d'outils وجب عليك اضافته من القائمة :
Project--Composants أو ثعمل Ctrl+T
بعد دلك تختار 6.0 Microsoft Masked Edit Control
وتعمل تطبيق :Appliquer
بعد دلك شينضاف في قائمة الأدوات على شكل الرمز:## فتضع الكنترول في النافدة
وتقوم بتغيير الخاصيات التالية للكنترول :####/##/##= Mask
أما الكود الازم هو بعد الضغط على الكنترول مرتين تقوم باختيار الحدث = LostFocus :

Private Sub MaskEdBox1_LostFocus()

If Not IsDate(MaskEdBox1.Text) Then

MsgBox("Date invalide")

End If

End Sub

ادا في شي مش مفهوم أنا في الخدمة