الي اعضاء المنتدي العربي
والله لقد لقد اتعبني طول البحث في حل مشكلة لم ارا لها حل وقلت لا بد من العودة الي
اهل الخبرة لعلهم يدلوني علي طريقة لحل
هذه المشكلة
المشكلة ببساطه انا قمت بعمل برنامج لشقق مفروشة لاحد اقاربي وكل شيء فية تمام لكن ما عجزت عن
السيطرة عليه هو نظام الحجز
فالمطلوب ان يكون هناك حقل لحجز الغرفة
وحقل لتاريخ الحجز
وتاريخ المغادرة
ويشترط ان طزال الفترة التي يحجز فيها الغرفة لا يقبل البرنامج
قبول حجز جديد خلال هذه الفترة
واذا لم يكن في الملف الذي ارفقه الأخ سعودي ما تطلب فأرفق القاعدة التي عملتها مع ردك التالي وأبشر بحل المشكلة إن شاء الله
الاخ فهد الدوسري ما اقول الا الله يجزيك عني الف خير مجهود طيب
ولكن ليس هذا ما ابحث عنه مع ان المثال المنرفق يحتوي علي الكثير من الفوائد التي استنبطتها منه
ف الله يجزيك الف خير
لكن يبدو ان لم اكن واضحه كفاية
ما احتاجة هو نظام للحجز
كما يقولون في الفندق
Reservation system
يا اخ حمود من الصعب ارفاق القاعدة لكبر حجمها
ولقد صممتها لك تعمل علي شبكة وفيها
وكل ما اريده ان امنع المدخل من اني يحجز الغرفة في الفتر التي تكون قد حجزت من قبل
يعني لنقل ان الغرفة رقم 11
محجوز للفترة من 11/07/1423 الي 11/08/1423
المطلوب عند محاول المستخدم حجز الغرفة في هذه الفترة ان يقوم برفض واعتقد والله اعلم ان الدالة
Dlookup
r] تكون تقوم بذلك وكني لم اتعرف علي كيفية ذلك وارجو المساعدة
ارجو ان اكون قد اعطيت صورة واضحة
للرفع وين الخبراء
الأمر سهل إن شاء الله0
يوجد عدة طرق ولكننا سنأخذ اسهلها إن نفعت كان بها وإلا أخذنا طريقة أخرى 0
أولاً : لابد من إنشاء حقل باسم " هل_تم_حجز_الغرفة " في الجدول يأخذ قيمتين "نعم _ لا " يتم تعبئة هذا الحقل من قبل موظف الإستقبال كذلك يتم تغييرها عند إنتهاء فترة الإجار 0
في الوحدة النمطية الخاصة بحدث " بعد التحديث " لمربع النص الخاص برقم الغرفة الموجود على نموذج الحجز نكتب الكود التالي :
Dim mm As Variant
mm = DLookup("[هل_الغرفة_محجوزة]", "جدول_النزلاء", "[رقم_الغرفة]=[forms]![نموذج_الحجز]![رقم_الغرفة]")
If Not IsNull(mm) Then
MsgBox "عذراً الغرفة محجوزة", vbCritical + vbMsgBoxRight, "إعتذار"
Me![رقم_الغرفة] = Null
DoCmd.CancelEvent
Exit Sub
End Ifمهمة هذا الكود البحث في الجدول عن القيمة الموجودة في الحقل المسمى " هل_تم_حجز_الغرفة " ويقوم بتخزينها في متغير ويقارنها فإذا تطابق رقم الغرفة مع رقم الغرفة المدخل في نموذج الحجز والقيمة في حقل هل_تم_حجز_الغرفة = نعم يظهر رسالة بأن الغرفة محجوزة0
ثم يمسح الرقم المدخل في رقم الغرفة 0
كذلك وضعنا الكود التالي في الوحدة النمطية الخاصة بحدث " عند الخروج " لكي يبقى التركيز في رقم الغرفة لتغييرة 0
If IsNull(Me![رقم_الغرفة]) Or Me![رقم_الغرفة] = "" Then Cancel = -1 End If
وقد أرفقت رابط لمثال يوضح ذلك 0والأكواد واضحة جداً ما عليك إلا نسخ تلك الأكواد ولصقها ثم تعديل التسميات حتى تتوافق مع التسميات في برنامج 0
وأخبرنا بالنتائج حتى إذا لم تفيد معك هذه الطريقة نستخدم غيرها 0
وهذا رابط للمثال
الاخ مصلح
جزاك الله خير علي المثال
الذي اوردتة لكن ليس هذا هو مطلبي الله يجزاك خير
ما اريده انا ان امنع تاكرار حجز غرفة في فترة محدد
يعني لنفرض ان الموضف حجز الغرفة 20
للفترة من 15/11/2002 الي 30/12/2002
اريد ان يكون هناك اجراء يمنع الموظف من
حجز هذه الغرفة مره اخري في هذه الفترة
الي الاخ فهد الدوسري والاخوان هذا البرنامج الذي أرسلته يا فهد للا خ أشرف جميل جدا جدا
ولكني جأت لكي أضيف بعض الحركات مثل
معرفه الشقق المشغوله والشقق الخاليه
واعمل فيه حركات
ولم استطع ان انشيء اي جدول ولا اي استعلام ولا اي استعلام
كيف استطيع
هذا البرنامج ولكم خالص حبي الكبير لكم
لكم مني خالص التقدير
*********************
الفريق العربي للبرمجه
*********************
كان الله في عون العبد مادام العبد في عون اخيه
تمنياتي أن تحصل على بغيتك
هل تعتقدون يا اخوان ان طلبي مستحيل ام صعب
لكم مني خالص التقدير
*********************
الفريق العربي للبرمجه
*********************
كان الله في عون العبد مادام العبد في عون اخيه
يا عزيزي فهد الله يوفقك ويلوموني فيك
ما شاء الله تبارك الله
هل استطيع اني اعمل للمثال اللي ارفقته ليه هل استطيع عمل الشقق المحجوزه واعرف الشقق الخاليه والشقق المشغوله والدخل الكلي للمحل
والله حاولت الين اصابني دوار برأسي وسبب لي النوم فلا ارتحت في نومي ولا استطعت ان اسوي هذا البرنامج باللمسات السابقه
لكم مني خالص التقدير
*********************
الفريق العربي للبرمجه
*********************
كان الله في عون العبد مادام العبد في عون اخيه
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…