زيادة التاريخ 7 ايام

[محمد احمد لطفى]

يوجد لدى مشكلة فى هذا النموذج 
1 - اريد التاريخ يزيد 7 أيام مثلا 
1/11/2016

8/11/2016

15/11/2016

22/11/2016

2 - عند الاضافة بنفس الاسم  يمسح الاسم القديم و يحل محله الجديد
3 - عند عمل سجل جديد بنفس الاسم ايضا تحدث مشكلة

test.rar

[عبد الله قدور]

تريد تعديل التاريخ في النموذج الرئيسي ام الفرعي

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

 

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

[محمد احمد لطفى]

فى النموذج الفرعى يبدأ التاريخ مثلا 
 

1/11/2016

8/11/2016

15/11/2016

22/11/2016

 

تم تعديل نوفمبر 11, 2016 بواسطه theendgame

[محمد احمد لطفى]

جزاك الله خيرا تم حل مشكلة الاسماء بربط العلاقة بارقام وليست اسماء
و انتظر حل مشكلة التاريخ 

[ابو جودي]

9 ساعات مضت, theendgame said:

جزاك الله خيرا تم حل مشكلة الاسماء بربط العلاقة بارقام وليست اسماء
و انتظر حل مشكلة التاريخ 

فضلا وكرما ارفع المرفق الذى تم التعديل عليه وحل المشكبه فيه

[محمد احمد لطفى]

الملف بعد تعديل 
 

1 hour ago, theendgame said:

و انتظر حل مشكلة التاريخ 

test_2.rar

[محمد احمد لطفى]

و ايضا تم حل مشكلة الايام بتغيير الكود 
Me.no = DateAdd("d", i, Forms![test1]![no1])
الى 
Me.no = DateAdd("ww", i, Forms![test1]![no1])

من فضلكوا اريد شيئين 

 1 - عند الضغط على البدء اريد رسالة هل انت متاكد نعم او لا
2 - اريد ان اكتب فرق الايام بنفسى يعنى 7 ايام او 10 ايام او 30 يوم 
وشكرا لكم

test.rar

[عبد الله قدور]

Dim ask As Single
ask = MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÓäÏ", vbDefaultButton1 + vbInformation + vbMsgBoxRight + vbYesNo, "ÊäÈíå")
If ask = vbYes Then
'هنا تضع الكود الذي سينفذ بعد الضغط على زر نعم 
end if

 

[محمد احمد لطفى]

ممكن لو سمحت  تكتبهالى فى النموذج

[ابو جودي]

11 ساعات مضت, theendgame said:

الى 
Me.no = DateAdd("ww", i, Forms![test1]![no1])

انا عمال احاول افهم من مثال حضرتك شئ وحضرتك عاوز منه ومش قادر اوصل وكمان تشابه وتقارب اسماء الحقول سزف يسبب لك الكصير من المشاكل

على سبيل المثال وجدت الاخطاء الاتية
1- الاسم موجود فى النموذج الرئيسي فما سبب وجوده فى الفرعى مرة اخرى ؟؟؟

2- حضرتك بتكتب عدد بداية الرقم فى النموذج الرئيسى وف مربع النص بجواره تتكتب العدد المطلوب اضافته من السجلات  حضرتك لو كتبت  4  بقوم بعمل 5 سجلات وليس 4

3- حضرتك بعد التعديل الجديد اللى تفضلت به فى الكود تقوم بزيادة الرقم 7 الى العدد وليس التاريخ كما تريد

اخى الحبيب سوف احقق المطلوب كما فهمته وان كانت تلك الاخطاء كما فهمتها صحيحه  ولكن امهلنى القليل من الوقت
اتمنى الرد على الاخطاء الثلاثة هل هى صحيحة ام انا من اساء الفهم
واتمنى ان اعرف الهدف من القاعدة ؟ 


هل هى لحساب شئ ما فى دورة زمنية محدده مثل اقساط مثلا ؟ ام ماذا ؟؟؟؟

 

[محمد احمد لطفى]

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

 

2- حضرتك بتكتب عدد بداية الرقم فى النموذج الرئيسى وف مربع النص بجواره تتكتب العدد المطلوب اضافته من السجلات  حضرتك لو كتبت  4  بقوم بعمل 5 سجلات وليس 4

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

test.rar

[محمد احمد لطفى]

19 hours ago, عبد الله قدور said:

Dim ask As Single
ask = MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÓäÏ", vbDefaultButton1 + vbInformation + vbMsgBoxRight + vbYesNo, "ÊäÈíå")
If ask = vbYes Then
'هنا تضع الكود الذي سينفذ بعد الضغط على زر نعم 
end if

ممكن لو سمحت  تكتبهالى فى النموذج

 

 

[عبد الله قدور]

اليك ما طلبت

test.rar