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


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