اذهب الي المحتوي
أوفيسنا

انشاء تواريخ بين تاريخين معلومين


horseforever

الردود الموصى بها

ارجو من الاخوة علماء الاكسس مساعدتى فى الطلب الاتى :

اريد ان احفظ الايام بين تاريخين فى جدول على سبيل المثال اذا كان الشرط من تاريخ 1/8/2011 الى 15/8/2011 يتم حفظ 15 يوم فى الجدول ابتداءا من :

1/8/2011

2/8/2011

3/8/2011

الى 15/8/2011

ارجو الرد فى اسرع وقت ولكم جزيل الشكر

اخوكم اسامة

رابط هذا التعليق
شارك

السلام عليكم اخى ابو خليل

اشكرك على الاهتمام اما بعد ..

ماارغب فيه هو استعلام انشاء جدول يتم تكوينه بالايام التى تقع بين تاريخين

معذرة لعدم قدرتى على عمل المثال لانى لو اعرف ماسألت

الهدف من ذلك هو انشاء جدول به الايام التى تقع بين تاريخين بحيث يكون محتويات العمود فى الجدول كالتالى

1/8/2011

2/8/2011

3/8/2011

وهكذا اذا كان المعيار هو من 1/8/2011 الى 12/8/2011 على سبيل المثال

واشكرك مرة اخرى وانتظر ردك

رابط هذا التعليق
شارك

اقصد من المثال التهيئة للحل

فمثلا ترفق مثالك مشتملا على جدول به تواريخ لننتقي منها ما نريد

كذلك نموذج يشتمل على حقلين لاختيار ووضع التاريخين وزر للتنفيذ

رابط هذا التعليق
شارك

الاخ ابو خليل

اشكرك على سعة صدرك

ولكن ماريده هو تخليق جدول من خلال استعلام لانشاء جدول وبالنسبة للايام المطلوب ادارجها فى الجدول فالمطلوب ان تكون من التقويم وليس من جدول محدد يعنى الايام ليس لها وجود ولكن وجودها يتم من خلال المعيار ( من تاريخ ـ الى تاريخ ) ومكان وجودها يكون فى الجدول المخلق من استعلام انشاء الجدول

لذلك لا ارى مغزى من ارفاق مثال .

ارجو ان يتسع صدرك حتى تفهم مقصدى وانتظر ردك

رابط هذا التعليق
شارك

نعم لقد اتضح ما تريد

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

Dim date1 As Date, date2 As Date

    Text1.SetFocus

    date1 = CDate(Text1.Text)

    Text2.SetFocus

    date2 = CDate(Text2.Text)


    If date1 > date2 Then

        MsgBox "The initial date is after the finish date!"

        Exit Sub

    End If


    DoCmd.SetWarnings False

    Do Until date1 >= date2

        DoCmd.RunSQL "insert into text1 (dateField) values (#" & date1 & "#);"

        date1 = DateAdd("d", 1, date1)

    Loop

    DoCmd.SetWarnings True

رابط هذا التعليق
شارك

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

اشكرك شكرا جزيلاً وارجو حل هذه المشكلة وانتظر ردك وسامحنى على اشغالك

db1.zip

رابط هذا التعليق
شارك

السلام عليكم اخى ابو ياسر

لم يفلح استبدال m ب d فى اخر سطر من جملة الدوران فى حل المشكلة بل بالعكس توقفت الجملة عن التنفيذ

ارجو ان تقوم بالتجربة بنفسك واكتشاف اين المشكلة

اشكرك على اهتمامك واشكر اخى ابو خليل وانتظر منكم الحل

رابط هذا التعليق
شارك

اخى ابو خليل

جربت على الفترة من 2011/01/08 حتى 2011/31/08 على اساس التنسيق الذى قمت بوضعه فى الجملة

ولكن مايأتى بالجدول فقط 8 ايام ارجو التجربة على 31 يوم واستنتاج اين المشكلة

واشكرك على اهتمامك

رابط هذا التعليق
شارك

ابشرا اخوتى فى الله

لقد نجح الكود بعد تعديل بسيط فقط تركت الجملة التالية كما كانت عليه من قبل ( جملة ابى خليل )

date1 = DateAdd("d", 1, date1)

والحمد لله نجحت التجربة

اشكرك اخى ابو خليل واشكرك اخى ابى ياسر على تعاونكما

زادكم الله من علمه ووسع عليكما

اخوكم الطالب اسامة

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information