هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

مُساهمة من طرف Microformt في الأربعاء مايو 14, 2014 3:34 pm

الاخوه الكرام
 السلام عليكم ورحمة وبركاته

 هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

نامل من الله المساعدة العاجله والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

مُساهمة من طرف end.sub في الخميس مايو 15, 2014 7:53 am

avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

مُساهمة من طرف Microformt في الخميس مايو 15, 2014 8:17 am

اخي العزيز
 السلام عليكم ورحمة وبركاته
 الرجاء ان تقراء السوال قبل الاجابة
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

مُساهمة من طرف end.sub في الخميس مايو 15, 2014 10:18 am

ما قصدتة انك تستطيع استخدام الدالة فورمات لتنسيق القيمة المدخلة فى حقل النص كتاريخ و ذلك عن طريق الكود التالى :

الكود:
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text1.Text) Then
    MsgBox "عفوا يجب ادخال تاريخ"
    Exit Sub
Else
     Me.Text1.Text = Format(Me.Text1.Text, "MM/dd/yyyy")
End If
End Sub

فى بداية الكود تم اجبار المستخدم ادخال قيمة النص تاريخ ....فاذا فعل ذلك يتم تنسيق التاريخ فى مربع النص على النحو التالى MM/dd/yyyy
avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

مُساهمة من طرف Microformt في الجمعة مايو 16, 2014 1:20 pm

end.sub كتب:ما قصدتة انك تستطيع استخدام الدالة فورمات لتنسيق القيمة المدخلة فى حقل النص كتاريخ و ذلك عن طريق الكود التالى :

الكود:
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text1.Text) Then
    MsgBox "عفوا يجب ادخال تاريخ"
    Exit Sub
Else
     Me.Text1.Text = Format(Me.Text1.Text, "MM/dd/yyyy")
End If
End Sub

فى بداية الكود تم اجبار المستخدم ادخال قيمة النص تاريخ ....فاذا فعل ذلك يتم تنسيق التاريخ فى مربع النص على النحو التالى MM/dd/yyyy
اخي العزيز
 السلام عليكم ورحمة وبركاته
 لك مني فائق الشكر والاحترام على ما تقدمه من دعم فني
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى