figo82eg قام بنشر نوفمبر 10, 2020 مشاركة قام بنشر نوفمبر 10, 2020 (معدل) New Microsoft Office Access Application.rar ارجو المساعدة حيث اريد عند كتابة تاريخ إصدار بطاقة الرقم القومى يتم كتابة تاريخ الإنتهاء تلقائى وهو إضافة 7 سنوات + 1 يوم على تاريخ الإصدار ومرفق مثال لما اريد تم تعديل نوفمبر 10, 2020 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر نوفمبر 10, 2020 مشاركة قام بنشر نوفمبر 10, 2020 السلام عليكم نستخدم دالة 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
علاء محمد علي قام بنشر نوفمبر 10, 2020 مشاركة قام بنشر نوفمبر 10, 2020 (معدل) السلام عليكم اخوتي الأعزاء انا عملت طلبك بطريقة مختلفة شوي عن الاستاذ @محمد أبوعبدالله شوف الذي يناسبك اخوك علاء New Microsoft Office Access Application.rar تم تعديل نوفمبر 10, 2020 بواسطه علاء محمد علي نسيت المرفق 1 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر نوفمبر 11, 2020 الكاتب مشاركة قام بنشر نوفمبر 11, 2020 اخى الكريم محمد أبو عبدالله أشكرك على إهتمامك وردك ولكن ماريده هو بمجرد أن أقوم بكتابة التاريخ في خانة تاريخ الإصدار والإنتقال الى الخانة التالية يتم كتابة تاريخ اللإنتهاء تلقائيا دون الضغط على زر في النموذج أخى الكريم علاء ما أرفقته هو ما اريده فعلا ولكن أريد حفظ التاريخ لدى في قاعدة البيانات لأهميتها في التقرير لدى رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر نوفمبر 11, 2020 مشاركة قام بنشر نوفمبر 11, 2020 تفضل اخي الكريم 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
علاء محمد علي قام بنشر نوفمبر 11, 2020 مشاركة قام بنشر نوفمبر 11, 2020 (معدل) محذوف اتمنى يتم اضافة ميزة حذف المشاركة او توضيح الطريقة ان كانت موجودة تم تعديل نوفمبر 11, 2020 بواسطه علاء محمد علي رابط هذا التعليق شارك More sharing options...
علاء محمد علي قام بنشر نوفمبر 11, 2020 مشاركة قام بنشر نوفمبر 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 كود رائع صراحة وأفضل من الذي عملته انا بمراحل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.