horseforever قام بنشر يوليو 19, 2011 قام بنشر يوليو 19, 2011 ارجو من الاخوة علماء الاكسس مساعدتى فى الطلب الاتى : اريد ان احفظ الايام بين تاريخين فى جدول على سبيل المثال اذا كان الشرط من تاريخ 1/8/2011 الى 15/8/2011 يتم حفظ 15 يوم فى الجدول ابتداءا من : 1/8/2011 2/8/2011 3/8/2011 الى 15/8/2011 ارجو الرد فى اسرع وقت ولكم جزيل الشكر اخوكم اسامة
ابوخليل قام بنشر يوليو 19, 2011 قام بنشر يوليو 19, 2011 وعليكم السلام اولا المطلوب لم يتضح بالضبط لان الاكسس يحفظ كل شيء وثانيا ارفق مثالك متضمنا ما تريد تطبيقه
horseforever قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 السلام عليكم اخى ابو خليل اشكرك على الاهتمام اما بعد .. ماارغب فيه هو استعلام انشاء جدول يتم تكوينه بالايام التى تقع بين تاريخين معذرة لعدم قدرتى على عمل المثال لانى لو اعرف ماسألت الهدف من ذلك هو انشاء جدول به الايام التى تقع بين تاريخين بحيث يكون محتويات العمود فى الجدول كالتالى 1/8/2011 2/8/2011 3/8/2011 وهكذا اذا كان المعيار هو من 1/8/2011 الى 12/8/2011 على سبيل المثال واشكرك مرة اخرى وانتظر ردك
ابوخليل قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 اقصد من المثال التهيئة للحل فمثلا ترفق مثالك مشتملا على جدول به تواريخ لننتقي منها ما نريد كذلك نموذج يشتمل على حقلين لاختيار ووضع التاريخين وزر للتنفيذ
horseforever قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 الاخ ابو خليل اشكرك على سعة صدرك ولكن ماريده هو تخليق جدول من خلال استعلام لانشاء جدول وبالنسبة للايام المطلوب ادارجها فى الجدول فالمطلوب ان تكون من التقويم وليس من جدول محدد يعنى الايام ليس لها وجود ولكن وجودها يتم من خلال المعيار ( من تاريخ ـ الى تاريخ ) ومكان وجودها يكون فى الجدول المخلق من استعلام انشاء الجدول لذلك لا ارى مغزى من ارفاق مثال . ارجو ان يتسع صدرك حتى تفهم مقصدى وانتظر ردك
ابوخليل قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 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
horseforever قام بنشر يوليو 21, 2011 الكاتب قام بنشر يوليو 21, 2011 اشكرك اخى ابو خليل لقد تم تنفيذ الكود بنجاح ولكن الاضافة تتم على الشهر فى اول الامر ثم تتم على الايام بعد انتهاء عد ال12 شهر للسنة وارفق لك المثال وارجو النظر فى الجدول لترى النتيجة اشكرك شكرا جزيلاً وارجو حل هذه المشكلة وانتظر ردك وسامحنى على اشغالك db1.zip
horseforever قام بنشر يوليو 24, 2011 الكاتب قام بنشر يوليو 24, 2011 السلام عليكم اخى ابو ياسر لم يفلح استبدال m ب d فى اخر سطر من جملة الدوران فى حل المشكلة بل بالعكس توقفت الجملة عن التنفيذ ارجو ان تقوم بالتجربة بنفسك واكتشاف اين المشكلة اشكرك على اهتمامك واشكر اخى ابو خليل وانتظر منكم الحل
ابوخليل قام بنشر يوليو 24, 2011 قام بنشر يوليو 24, 2011 كلام ابي ياسر في محله ولكن هناك مشكلة ايضا في تنسيق التاريخ تم التعديل والتجربة db1.rar
horseforever قام بنشر يوليو 24, 2011 الكاتب قام بنشر يوليو 24, 2011 اخى ابو خليل جربت على الفترة من 2011/01/08 حتى 2011/31/08 على اساس التنسيق الذى قمت بوضعه فى الجملة ولكن مايأتى بالجدول فقط 8 ايام ارجو التجربة على 31 يوم واستنتاج اين المشكلة واشكرك على اهتمامك
horseforever قام بنشر يوليو 24, 2011 الكاتب قام بنشر يوليو 24, 2011 ابشرا اخوتى فى الله لقد نجح الكود بعد تعديل بسيط فقط تركت الجملة التالية كما كانت عليه من قبل ( جملة ابى خليل ) date1 = DateAdd("d", 1, date1) والحمد لله نجحت التجربة اشكرك اخى ابو خليل واشكرك اخى ابى ياسر على تعاونكما زادكم الله من علمه ووسع عليكما اخوكم الطالب اسامة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.