كود لكتابة التاريخ فقط فى التكست بوكس

[يوسف السيد]

السلام عليكم :

هل من كود لإجبار المستخدم على كتابة تاريخ بتنسيق معين داخل تكست بوكس وليكن مثلا dd-mm-yyyy

[حمادة عمر]

السلام عليكم

الاخ الكريم / يوسف السيد

بارك الله فيك

تفضل اخي في المرفق ... فورم به طريقتين لادخال التاريخ في الفورم

ارجو ان تفي بطلبك

وفي انتظار ردك

جزاك الله خيرا

 

 

التاريخ في التكست بوكس.rar

[يوسف السيد]

أ:حمادة عمر 

دائما تتحفنا بردودك الفعالة والمتميزة
بارك الله فيك اخى الكريم

الطريقة الاولى مناسبة جدا .. ولكن فى حالة ادخال رقم فان التكست بوكس يحوله لتاريخ سنة 1900

فهل بالامكان ان يتم ادراج التاريخ كاملا والا فلا يقبل التكست بوكس المدخلات

[ضاحي الغريب]

أ:حمادة عمر 

دائما تتحفنا بردودك الفعالة والمتميزة

بارك الله فيك اخى الكريم

الطريقة الاولى مناسبة جدا .. ولكن فى حالة ادخال رقم فان التكست بوكس يحوله لتاريخ سنة 1900

فهل بالامكان ان يتم ادراج التاريخ كاملا والا فلا يقبل التكست بوكس المدخلات

اخي الكريم / يوسف السيد

وبعد اذن اخي الحبيب ا/ حمادة عمر 

بارك الله فيه علي حلوله الرائعة وافكاره الجميلة

ولاثراء الموضوع

يمكنك اخي / يوسف اجبار المستخدم علي الادخال بصيغة تاريخ فقط ولا يقبل غيرها

 

باحد الطريقتين 

 

الطريقة الاولي برسالة للمستخدم ان يقوم ادخال تاريخ

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Exit Sub
     
    If Not IsDate(TextBox1) Then
        MsgBox "Non valid date"
        Cancel = True
    End If
End Sub

الثانية بدون رسالة تقوم بتفريغ التكست بوكس

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2 = "" Then Exit Sub
     
    If Not IsDate(TextBox2) Then
        Cancel = True: TextBox2 = ""
    End If
End Sub

مع تحياتي

التطبيق بالمرفقات

date only .rar

[يوسف السيد]

الحمد لله 
حلك اكثر من ممتاز أ:ضاحى غريب

هذا ما كنت اقصده بالضبط
جزاك الله خيراَ ووفقك دوماَ لما يحب ويرضى

[kmgh]

السلام عليكم

 

هل من طريقة لكتابة التاريخ في اكثر من سطر في نفس الخلية كما هو في wrap text

يعني اليوم في السطر الاول ddd

التاريخ في السطر الثاني dd-mm-yyyy

الساعة في السطر الثالث  HH:mm