سـؤال: كتابة اسم اليوم في مربع النص

أيمن الزعبي كتب:

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

أريد أن يظهر إسم اليوم في مربع النص الموجود في النموذج ..

يعني إذا كان اليوم هو يوم الأحد فتظهر كلمة الأحد في مربع النص .. وهكذا

تفضل اخي الكريم

اجعل القيمة الإفتراضية لمربع النص هو Date

في حدث الحالي للنموذج ضع هذا الكود

Private Sub Form_Current()
Me.Text0 = Format([Text0], "ddd")
End Sub

za-Day Today-UP.rar

بالتوفيق

تــمـــام يا ســـت الكل ...

بارك الله فيك وجعله بميزان حساناتك