كود لطرح عام من التاريخ الحالى

[ابو حمادة]

الاخوه الافاضل

كل عام  وانتم بخير اساتذتي الكرام

[علي المصري]

جرب التالي

Private Sub Text30_AfterUpdate()
Me.Text130 = Me.Text30 - 365
End Sub

 

-

ارجو المعذرة

هذا الكود تابع للأكسيس وليس اكسيل

 

تم تعديل ديسمبر 26, 2017 بواسطه علي المصري

[سليم حاصبيا]

جرب هذا الملف

 

 

add_year.rar

[ابو حمادة]

2 ساعات مضت, سليم حاصبيا said:

جرب هذا الملف

 

 

add_year.rar

تسلم ايدك استاذي الفاضل

دا المطلوب

شكرا لاهتمامك

لك مني تحياتى