السلام عليكم ورحمة الله وبركاته
اخواني الكرام عندي مشكلة ولم اعرف حلها
البرنامج عبارة عن عمل عرض حجز فندقي
يوجد جدولين قاعدة بيانات اكسس
الجدول الاول (TblCost) عبارة عن اسم الفندق واسعار الغرف (مفرد - مزدوج - ثلاثي) بالاضافة الى تاريخ الدخول والخروج Check-in & check-out
مثلا يوجد بنفس الفندق في الجدول على سبيل المثال من تاريخ 01/01/2020 الى تاريخ 01/02/2020 سعر الغرفة مثلا 20 دولار يومياً
ومن تاريخ 01/02/2020 الى تاريخ 01/03/2020 سعر الغرفة 30 دولار يومياً
ومن تاريخ 01/03/2020 الى تاريخ 01/04/2020 سعر الغرفة 40 دولار يومياً
واريد حجز غرفة من تاريخ 26/02/2020 الى تاريخ 05/03/2020 واظهار الناتج في جدول LISTVIEW ويوجد زر حفظ النتيجة في الجدول الاخر (TblPro)
لامانع من اظهار الناتج من تاريخ 26/2/2020 الى تاريخ 01/03/2020 في سطر وناتج اخر من تاريخ 02/03/2020 الى 05/03/2020 في سطر اخر
السعر الاول 30 * 4 ايام
السعر الثاني 40* 5 ايام
المهم الحساب يكون صحيح
المثال في رابط الرسالة
أعلم ان الموضوع معقد ان كان يوجد طريقة اسهل بالحجز
وعندي أمل كبير من الاساذة الافاضل
وشكراً لجهودكم
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
(25-01-20, 07:58 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
استاذ احمد والله أعجز عن شكرك انا جداً جداً فرح ولم اتوقع سرعة الاجابة
مع انني كنت اظن ان الحل شبه مستحيل وترددت اياماً قبل صياغة السؤال العجيب
بارك الله بك وبأحبائك وجعلها في ميزان حسناتك واطال بعمرك
عندي استفسار بسيط عن نفس المثال السابق مع انك كفيت ووفيت
لكن عندما اختار الفندق الشيراتون مثلاً واختار التاريخ 24/01/2020 الى تاريخ 12/02/2020
فانه يظهر رسالة ان التاريخ خارج نطاق او تم تجاوزه مع انه بالجدول صحيح 100%
=================================================
والشيئ الاخر انني اريد تغيير السعر ان امكن من خلال ادخال السعر او المربح بالحدث Text3_Change
حيث يتم حساب القيمة الجديدة ووضعها في Text5
==================================================
والشيئ الاخير انني استخدمت التصريح Public
RS As New ADODB.Recordset
وانت استخدمت
RC بدل
RS مع العلم انني قمت بتغيرها الى
RS ولم يتغير عمل البرنامج
بارك الله بجهودك واتمنى من الاخوة الاستفادة من هذا المثال الرائع
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , أرجوا المعذره على التأخير بالرد وذلك بسبب الإنشغال , أخي المشكلة كانت من تنسيق التاريخ في الأكسس حيث الأكسس لايتعرف إلا على التنسيق mm/dd/yyyy وإذا كانت تنسيق التاريخ في الكمبيوتر هو غير ذلك فستظهر المشكلة حيث أن أداة الـ DTPicker تأخذ تلقائيا تنسيق التاريخ التابع للوندوز إضافة على ذلك كان التاريخ المدخل في حقل TO في الجدول كان مدخل بشكل خاطئ أو فيه مشكلة , عندما حذفت التواريخ المدخله في حقل الـ TO وأعدت كتابتها من جديد ومن ثم قمت بتغيير تنسيق التاريخ في الوندوز إلى التنسيق mm/dd/yyyy لكي يظهر في أداة الـ DTPicker ومن ثم جربت المثال عمل بشكل جيد بدون مشاكل , وتم تعديل أنك تكتب سعر الأيام يدويا إذا أردت ذلك ولكن يجب أن تكتب الأسعار مفصولة بعلامة فاصله إذا كانت فترة الحجز قد قسمت إلى فترتين ما عادا ذلك تكتب السعر رقم واحد بدون فاصلة , بالنسبة للـ RS و RC تستطيع أن تستخدم أي منهما , بالتوفيق .
(05-02-20, 02:24 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , أرجوا المعذره على التأخير بالرد وذلك بسبب الإنشغال , أخي المشكلة كانت من تنسيق التاريخ في الأكسس حيث الأكسس لايتعرف إلا على التنسيق mm/dd/yyyy وإذا كانت تنسيق التاريخ في الكمبيوتر هو غير ذلك فستظهر المشكلة حيث أن أداة الـ DTPicker تأخذ تلقائيا تنسيق التاريخ التابع للوندوز إضافة على ذلك كان التاريخ المدخل في حقل TO في الجدول كان مدخل بشكل خاطئ أو فيه مشكلة , عندما حذفت التواريخ المدخله في حقل الـ TO وأعدت كتابتها من جديد ومن ثم قمت بتغيير تنسيق التاريخ في الوندوز إلى التنسيق mm/dd/yyyy لكي يظهر في أداة الـ DTPicker ومن ثم جربت المثال عمل بشكل جيد بدون مشاكل , وتم تعديل أنك تكتب سعر الأيام يدويا إذا أردت ذلك ولكن يجب أن تكتب الأسعار مفصولة بعلامة فاصله إذا كانت فترة الحجز قد قسمت إلى فترتين ما عادا ذلك تكتب السعر رقم واحد بدون فاصلة , بالنسبة للـ RS و RC تستطيع أن تستخدم أي منهما , بالتوفيق .
شكراً لك من كل قلبي استاذ احمد لقد حلت المشكلة والحمدلله
بقيت مشكلة صغيرة وهي ليست مشكلة بالنسبة للبرنامج لكن لنفرض انني قمت بعمل حجز من شهر 01/01/2020 الى شهر 04/01/2020
حيث انه لم يحسب تاريخ شهر 02 وشهر 03 وتظهر راسلة انه يوجد 60 يوم خارج نطارق التواريخ
ان كان حلها بسيط ارجو ان تساعدني وان كان معقد فلا بأس بذلك
بارك الله في جهودك واطال عمرك والبسك ثوب الصحة والعافية سيدي الكريم