هل يمكن الدمج بين كودين

[bouzara.larbi]

أريد إضافة 10 سنوات إلا يوم أي اليوم السابق مثلا: 05/10/2016 إلى 04/10/2026

Private Sub Commande378_Click()

 

Dim ADate As Date

ADate = DateAdd("YYYY", 1O, Me. [A])

=DateAdd("d", -1, [B])

Me. [B] = ADate

 

End Sub

تم تعديل أكتوبر 5, 2016 بواسطه bouzara.larbi

[ابو جودي]

ممكن مرفق اسهل 

[Shivan Rekany]

اتفضل
مع تقدير

قاعدة بيانات1.rar

12 ساعات مضت, bouzara.larbi said:

أريد إضافة 10 سنوات إلا يوم أي اليوم السابق مثلا: 05/10/2016 إلى 04/10/2026

Private Sub Commande378_Click()

 

Dim ADate As Date

ADate = DateAdd("YYYY", 1O, Me. [A])

=DateAdd("d", -1, [B])

Me. [B] = ADate

 

End Sub

 

[ابو جودي]

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

الاستاذ رمهان رد فى الموضوع الاخر