[محمد العبيدي]

هذة الكود بالنسبة لطلبك الاول

كود :

Private Sub Text8_Change()
   Text13 = DateAdd("YYYY", 60, CDate(Text8))
End Sub

واتمنه انو تبحث عن حلول لمشاكلك قبل ان تسئل لان المنتدى فية اكواد كثيرة ومن ضمنها طلباتك