استخراج اليوم والتاريخ

[ابو حمادة]

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

الاخوة الافاضل اساتذتي الكرام

0004.rar 

 

ولكم جزيل الشكر

 

 

 

 

 

 

[ياسر خليل أبو البراء]

وعليكم السلام

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim myDate As Date
    myDate = CDate(ComboBox1.Value)
    
    TextBox1.Value = Format(Day(myDate), "ddd")
    TextBox2.Value = MonthName(Month(myDate))
    TextBox3.Value = Year(myDate)
End Sub

 

[ابو حمادة]

منذ ساعه, ياسر خليل أبو البراء said:

وعليكم السلام

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim myDate As Date
    myDate = CDate(ComboBox1.Value)
    
    TextBox1.Value = Format(Day(myDate), "ddd")
    TextBox2.Value = MonthName(Month(myDate))
    TextBox3.Value = Year(myDate)
End Sub

 

شكرا ليك  اخى واستاذي الغالي زادك الله علما مما تنفع به الناس وجزاك الله كل خير

لو ممكن 

تصحيح هذا  السطر علما انه ملوش علاقه في هذا  الكود عباره عن رسالة تحزير بتتظهر في كود تانى داخل الكود ملونه باللون الاحمر  وبيدينى خطا عند تطبيق الكود

msg = "هل انت متأكد انك ادخلت المعلومات الصحيحه علما انه لا يمكن تعديلها لاحقا؟", 16, "تحذير"
 

[ياسر خليل أبو البراء]

جرب تحذف الجزء الأخير من السطر من أول الفاصلة ورقم 16