إرغام إدخال صيغة التاريخ

[hicham2610]

السلام عليكم

من فضلكم كيف أعدل على الكود التالي بحيث يعطي رسالة الخطأ في حالة مخالفة الصيغة:"00/00/0000"

 

Private Sub UserForm_Initialize()

TextBox5.Value = "00/00/0000"
TextBox7.Value = "00/00/0000"
TextBox18.Value = "00/00/0000"
TextBox19.Value = "00/00/0000"
TextBox13.Value = "00/00/0000"
TextBox14.Value = "00/00/0000"





End Sub

لأ ن الكود السابق يسمح بمرور تواريخ بصيغ أخرى

وشكرا جزيلا

[كمال على طارق]

وعليكم السلام - يمكنك بإستخدام هذا الكود  وتكراره لكل تكست بوكس على حده .. وطبعاً تم الرد بالكود وليس بملف لأنك لم تقم برفع ملف توضيحى من البداية لطلبك !!!

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox5
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "dd/mm/yyyy")
        Else
            MsgBox "Not a date"
            Cancel = True
        End If
    End With
End Sub

 

[hicham2610]

السلام عليكم 

كمال على طارق

جزاك الله خيرا وأحسن إليك.