جعل التكست بوكس لا يقبل إلا صيغة تاريخ

[أبوســـارة1973]

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

لقد قمت بكتابة الكود التالي في كود التكست البوكس الذي أريده أن لزم المستخدم بكتابة تاريخ فقط

ولكن الذي يحدث هو مجرد محاولة إدخال أي قيمة يقوم تلقائي بإظهار تاريخ اليوم

أرجو أن تعطوني الكود الصحيح

وهل سيكون هذا الكود في حدث الفورم أو حدث التسكست بوكس نفسه ؟

Private Sub TextBox6_Change()

TextBox6.Value = Format(Date, "dd/mm/yyyy")

End Sub

[عبدالله باقشير]

' هذا الكود يرغمك بادخال تاريخ

بعد استكمال ادخالاتك بالكامل

واذا فرضنا انك ادخلت اليوم فقط يعتمد ادخالك للشهر الحالي وللسنة الحالية

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Const dFT As String = "dd/mm/yyyy"

If Not IsDate(Me.TextBox6) Then

If IsNumeric(Me.TextBox6) Then

Me.TextBox6 = Format(DateSerial(Year(Date), Month(Date), Val(Me.TextBox6)), dFT)

Else

Me.TextBox6 = Format(Date, dFT)

End If

Else: Me.TextBox6 = Format(CDate(Me.TextBox6), dFT)

End If

End Sub

------------------------------------------------------------------------- ويمكنك استخدام نفس الكود خاصتك في نفس الحدث

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

TextBox6.Value = Format(Date, "dd/mm/yyyy")

End Sub