الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استعلام يضهر الفواتير الواجب سدادها خلال فترة 25 يوم

بدأه naz1978 في 21 أغسطس 2010 · 6 رد · 1,223 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

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

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

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

وعندي سؤال اخير كيف يمكنني التحكم بشريط الادوات المخصص للبرنامج؟ حاولت كثيرا ولم انجح

والشكر موصول لكم مقدما ودعائي للجميع في المنتدى بضهر الغيب

والسلام عليكم ورحمة الله وبركاته

harunedit - up- Copy.rar

<embed width="230" height="247" src="http://www.brooog.com/sign/newday.swf" type="application/x-shockwave-flash">
#2

أخي السائل الكريم:

السلام عليكم روحمة الله وبركاته

ضع هذا الكود في حدث (بعد التحديث) للمربع النص التالي sales_Invoice_date))

Me.[sales invoice pay date] = [sales_Invoice_date] + 25

أما

اقتباس
انشاء استعلام يبين الفواتير المستحقة للسداد قبل ثلاثة ايام من تاريخ السداد

فما عليك إلا أنشاء أستعلام مبني جدول (Sales_Invoice_Main)

ثم أستخدم الدالة التالية:

 DateDiff("d";Date();[sales invoice pay date])

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

أو استخدم طرح القيمتين من بعضهما البعض وضع معيار الأستخراج <3 أقل من 3

والله أعلم

أبومحمد

#3

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

وشكرا على حسن التقبل

#4
pms كتب:

أخي السائل الكريم:

السلام عليكم روحمة الله وبركاته

ضع هذا الكود في حدث (بعد التحديث) للمربع النص التالي sales_Invoice_date))

Me.[sales invoice pay date] = [sales_Invoice_date] + 25

أما

فما عليك إلا أنشاء أستعلام مبني جدول (Sales_Invoice_Main)

ثم أستخدم الدالة التالية:

 DateDiff("d";Date();[sales invoice pay date])

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

أو استخدم طرح القيمتين من بعضهما البعض وضع معيار الأستخراج <3 أقل من 3

والله أعلم

أبومحمد

اخي العزيز ابو محمد اتمنى ان تكون بخير تقبل الله صيامك وعافاك من كل سقم

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

<embed width="230" height="247" src="http://www.brooog.com/sign/newday.swf" type="application/x-shockwave-flash">
#5
مرسي النجار كتب:

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

وشكرا على حسن التقبل

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

اولا تفتح البرنامج في وضع التصميم

ثانيا من القائمة tools تختار startup ثم تزيل علامات التاشير الموجودة في صناديق الاختيار او علامات الصح وحسب اختيارك لما سوف يضهر او يختفي في البرنامج

اتمنى ان اكون قد افدتك اخي الكريم تحياتي لك

<embed width="230" height="247" src="http://www.brooog.com/sign/newday.swf" type="application/x-shockwave-flash">
#6

up

<embed width="230" height="247" src="http://www.brooog.com/sign/newday.swf" type="application/x-shockwave-flash">
#7

الأخ الكريم:

السلام عليكم روحمة الله وبركاته

في المرفق تجد اضافة الكود في النموذج في حدث (بعد التحديث) للمربع النص التالي sales_Invoice_date))

Me.[sales invoice pay date] = [sales_Invoice_date] + 25

post-129354-034451700 1282603896_thumb.j

وتجد الاستعلام المطلوب

 DateDiff("d";Date();[sales invoice pay date])

لأقل من 3 أيام

آمل أن تجد في الملف المرفق ما يلبي طلبك وبالله التوفيق

أبو محمد

harunedit - up- Copy.rar

المرفقات
pict1.jpg

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…