عرض اسم اليوم مثل الأحد ولكن بصيغةtext

[kkhalifa1960]

مرفق المثال والمطلوب عند ادخال التاريخ في textbox-s1 يظهر لي اسم اليوم في textbox-s2 وليكن الأحد حسب التاريخ ولكن بصيغة Text  وليس Date

tariq_lab.rar

[عبد الفتاح كيرة]

فى حدث " قبل التحديث "

لمربع النص الذى تكتب فيه التاريخ

اكتب الكود التالى

 

Private Sub s2_BeforeUpdate(Cancel As Integer)
Me.s1 = Format(Me.s2, "dddd")
End Sub

 

tariq_lab.rar

[kkhalifa1960]

فى حدث " قبل التحديث "

لمربع النص الذى تكتب فيه التاريخ

اكتب الكود التالى

 

Private Sub s2_BeforeUpdate(Cancel As Integer)
Me.s1 = Format(Me.s2, "dddd")
End Sub

 

tariq_lab.rar

استاذنا شكراً جزيلاً للرد جزاكم عنا كل الخير  لكن المطلوب الإدخال في المربع  s1  عن طريق الكالندر والإخراج في المربع الثاني s2 وتكون الصيغة Txet

[ابو ياسر]

تم التعديل 

ysr_tariq_lab.rar