إضافة تاريخ إنتهاء بطاقة الرقم القومى تلقائى

[figo82eg]

New Microsoft Office Access Application.rar

ارجو المساعدة حيث اريد عند كتابة تاريخ إصدار بطاقة الرقم القومى يتم كتابة تاريخ الإنتهاء تلقائى وهو إضافة 7 سنوات + 1 يوم على تاريخ الإصدار 

ومرفق مثال لما اريد

تم تعديل نوفمبر 10, 2020 بواسطه figo82eg

[محمد أبوعبدالله]

السلام عليكم

نستخدم دالة DateAdd لاضافة ايام او شهور او سنين

لاضافة ايام

DateAdd("d";1;[start_date])

لاضافة شهور

DateAdd("m";1;[start_date])

لاضافة سنين

DateAdd("yyyy";1;[start_date])

 

الكود المستخدم لاضافة  ايام + سنين

    Dim i As Date
    Dim j As Date
    i = DateAdd("YYYY", 7, [start_date])
    j = DateAdd("d", 1, i)
    end_date = j

New Microsoft Office Access Application.rar

تحياتي

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

السلام عليكم اخوتي الأعزاء

 

انا عملت طلبك بطريقة مختلفة شوي عن الاستاذ @محمد أبوعبدالله

شوف الذي يناسبك

اخوك علاء

New Microsoft Office Access Application.rar

تم تعديل نوفمبر 10, 2020 بواسطه علاء محمد علي
نسيت المرفق

[figo82eg]

اخى الكريم محمد أبو عبدالله أشكرك على إهتمامك وردك ولكن ماريده هو بمجرد أن أقوم بكتابة التاريخ في خانة تاريخ الإصدار والإنتقال الى الخانة التالية يتم كتابة تاريخ اللإنتهاء تلقائيا دون الضغط على زر في النموذج

أخى الكريم علاء ما أرفقته هو ما اريده فعلا ولكن أريد حفظ التاريخ لدى في قاعدة البيانات لأهميتها في التقرير لدى

[محمد أبوعبدالله]

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

Private Sub start_date_Exit(Cancel As Integer)
    Dim i As Date
    Dim j As Date
    i = DateAdd("YYYY", 7, [start_date])
    j = DateAdd("d", 1, i)
    end_date = j
End Sub

 

New Microsoft Office Access Application.rar

تحياتي

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

محذوف

اتمنى يتم اضافة ميزة حذف المشاركة او توضيح الطريقة ان كانت موجودة

تم تعديل نوفمبر 11, 2020 بواسطه علاء محمد علي

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

44 دقائق مضت, figo82eg said:

أخى الكريم علاء ما أرفقته هو ما اريده فعلا ولكن أريد حفظ التاريخ لدى في قاعدة البيانات لأهميتها في التقرير لدى

انشى textbox وقم بربطه بتاريخ الانتهاء في الجدول

واكتب بالكود

Me.Textbox1=me.end_date

 تحت الكود السابق. او غير التسميات كما تحب لان الفكرة واحدة

المعذرة لاني ارد عليك من الجوال

تحياتي

علاء

36 دقائق مضت, محمد أبوعبدالله said:

Private Sub start_date_Exit(Cancel As Integer) Dim i As Date Dim j As Date i = DateAdd("YYYY", 7, [start_date]) j = DateAdd("d", 1, i) end_date = j End Sub

كود رائع صراحة

وأفضل من الذي عملته انا بمراحل