ارجو من الاخوان الكران مساعدتى فى فكرة تأجير السيارات حيث اريد عدم تكرار تأجير سيارة مؤجرة ( لها عقد مفتوح لم يتم إنهائة بتاريخ رجوع ) عند عمل عقد جديد و إظهار رسالة تفيد ان السيارة مؤجرة برقم عقد معين و شكراً
عدم تكرار تأجير سيارة مرتين فى عقد الإيجار
تفضل اخي جرب التعديل
شكراً اخى الكريم على المجهود الطيب و عفوا هل لى ان لا استطيع التسجيل للسيارة بعد ذلك حيث انه يمكن بعد تخطى هذه الرسالة التسجيل
بارك الله بك اخي منتصر
فقط تعديل بسيط على الكود حتى لا يتم تسجيل السياره اذا كانت مسجله مسبقا وتاريخ العوده مفتوح
نقوم بوضع هذه الإضافة بعد الرسالة مباشره وقبل End IF
DoCmd.CancelEvent Me.Undo
الملف بعد التعديل لنموذج العقد 2
بارك الله فيكى اختى الكريمة و اخى الكريم و سعة صدركم و ووفرة علمكم هما من دفعونى للسؤال عن شىء اخر انشأت فى المثال المرفق نموذد للمخالفات هل لى ان اعرف من هو العقد المخالف عن وضع التاريخ فيظهر رقم العقد و اسم المخالف مع العلم ان بعض العقود من الممكن ان تكون مفتوحة ( اى ليس لها تاريخ رجوع بعد ) و الاخرى قد اغلقت بين فترتين خروج و رجوع و جزاكم الله عنى خير الجزاء
الاخوة الاعزاء الا من مجيب
الاخوة الاعزاء الا من مجيب
الاخت العزيزة زهرة شكرا على المجهود و لكنى كنت اقصد ان فى نموذج المخالفات عند وضع رقم السيارة و تاريخ المخالفة يظهر فى النموذج تلقائيا اسم المستأجر و رقم العقد الذى تمت المخالفة فى الفترة الزمية الخاصة بة اى بين فترة خروج و دخول السيارة مع العلم ان بعض العقود تكون ليس لها تاريخ رجوع نظرا لانها لم تنتهى بعد ( مثال على ذلك العقد رقم 1 تاريخ الخروج به 1/8 و تاريخ الرجوع 1/9 - فعند الكتابة فى نموذج المخالفات رقم السيارة و التاريخ مثلا 15/8 يظهر فى النموذج رقم العقد و اسم المستأجر ) و مرفق النمذج كما فى المثال
هل الامر صعب ؟ و إذا كان يمكن ارجو الشرح لتعم الفائدة
اخي الفاضل احمد
السلام عليكم ورحمة الله وبركاته
السؤال ليس بصعب ولكن آلية عمل البرنامج خطأ
حسنا دعني اشرح لك الوضع :
الآن انت في نموذج ادخال بيانات استأجار السياره وقمت بإدخال كافة البيانات سواء اسم العميل ورقم السيارة وتاريخ خروجها ورقم العقد وقيمة الأيجار
انتهينا الآن من هذه البيانات
نأتي الآن الى نموذج المخالفات
نقوم بإختيار رقم السياره وندخل تاريخ المخالفه هنا هي المشكلة
اين تم تسجيل المخالفة سابقا حتى يقوم البرنامج بإظهار اسم العميل ورقم العقد طبعا لا يوجد شيء ولم يتم الإشارة الى اي مخالفة مسجله مسبقا حتى يتم اظهارها في نموذج التسجيل او نموذج المخالفات
لذا انت تحتاج الى تعديل وذلك بإضافة مربع اختيار ( نعم / لا ) الى نموذج العقد وكذلك تقوم بإضافة حقل جديد بإسم تاريخ المخالفة وكذلك في جدول العقد .
فإن عادت السياره وذكر المستأجر انه حصل على مخالفه فيتم التأشير على علامة الصح ويكتب تاريخ المخالفة .
نأتي الآن الى ما تريده انت
بعد عمل ما سبق لا يكون لدينا مشكله بعد ذلك في فتح نموذج المخالفات و وضع رقم السياره وتاريخ المخالفة فيظهر لدينا اسم العقد واسم المستأجر .
هذه هي الطريقة الصحيحة الواجب تنفيذها
ولكن تريد ان تظهر رقم العقد واسم العميل بكتابة تاريخ المخالفة واسم السياره ولا يوجد اساسا بيانات عن المخالفة فهذا غير صحيح .
سيدتى الكريمة من الشرف لى ان اتناقش معكى فى شىء لى كبير و لكى صغير و لكنى اريد التوضيح
اولا : قد قرأت كتابك بعناية لافهم ما تريدين توضيحة
ثانيا : ارجو من سيادتك الصدر الرحب لتوضيح القصة
نعم عقد الايجار ليس له علاقة بالمخالفات بل ان المخالفات هى قاعدة بيانات منفصلة عن الايجار و عقده كل ما احتاجة من عقد الايجار هو إستدعاء اسماء العملاء و الفترات الزمنية للإيجار ليتسنى لى تحديد من الشخص الذى فعل المخالفة و هذا ما كنت اريده حيث اننى قد عملت فى نموذج المخالفات زر يقوم بإستدعاء العقود التى تم بها تأجير السيارة و التاريخ من الحديث الى القديم حيث ان معرفة المخالفة من الممكن ان يكون بعد فترة من ابرام العقد انا فقط اريد ان استدعى من عقد الايجار من هو المتسبب فى المخالفة عن السيارة المؤجرة بتاريخ معين لان ذلك مرهق فى 1000عقد قديم و حديث لمائة سيارة و الف عميل و مرفق نموذج بذلك
تفضل اخي الكريم
هذا التعديل بناء على طلبك
في نموذج المخالفات اختر رقم السياره المطلوبه ثم ادخل تاريخ المخالفة وعند الخروج من تاريخ المخالفة الى حقل قيمة المخالفة سيتم ادراج اسم المخالف ورقم العقد مباشرة في النموذج
سيدتى لم يطرق تغير على النموذج ارجو فحص النموذج المرفق منك
معذرة اخي الكريم
يبدو انني استعجلت في رفع الملف السابق
ارجع للمشاركه السابقة وقم بتحميل الملف الجديد
سيدتى و إذا كان التاريخ لم يوضع بعد أى لم يتم رجوع السيارة و تمت المخالفة بالفعل هل يمكن إذا كان الحقل فارغ يفترض الوقت الحالى
سيدتى شكرا جدا على المجهود العظيم و لكن هذه الطريقة لكى يتم تفعيلها اضطر لغلق البرنامج و فتحة مرة اخرى حيث يخيل لى ان البيانات تأتى من النموذج ارجو ايجار طريقة اكثر ثلاثة مع حل مشكلة عمد رجوع السيارة اى خانة رتاريخ رجوع السيارة فارغ و لك كل التحية و الشكر على العطاء بلا حدود نفع بك امة سيدنى محمد صلى الله عليه و سلم و بارك الله تعالى فى اولادك
اخي الفاضل
نعم لقد كنت اعلم انك ستقع في هذه المشكلة فيما بعد وقد اخبرتك سابقا انه يجب عليك القيام بعمل حقل اضافي خاص بالمخالفات ااو خانة اختيار يوضع بها علامة صح اثناء قيام المستأجر بالمخالفة وتوضع في النموذج بصرف النظر كان تاريخ الرجوع به تاريخ أم انه فارغ .
لذا يجب عليك التعديل في نماذجك وقاعدة بياناتك بهذه الطريقة .
اختى الفاضلة عندما يكون عندى مئات العقود و مئات السيارات عملية البحث فى نماذج العقود لوضع علامة صح سيكون مرهق جدا و ذلك لان السيارة من الممكن ان تظهر مخالفة لها بعد إبرام عشرة عقود لتأجيرها مثلا حيث انه من الممكن ان يكون لكل سيارة عقد يوميا او كل يومين و شكرا
ارجو من الاخوة الاعزاء معرفة ما هو الخطأ من الكود الخاص بتكرار السيارة للتأجير و شكراً
تم تعديل هذه المشاركة بواسطة qatar_ahmed_em في 31 أغسطس 2008 في 11:01
تفضل اخي الكريم الملف بعد التعديل
راجع الكود بعد عمل تحديث لمربع التحرير والسرد الخاص برقم لوحة السيارة
Private Sub رقم_لوحة_السيارةAfterUpdate()
If DLookup("[رقم لوحة السيارة]", "عقد الإيجار", [رقم لوحة السيارة] = Me![رقم لوحة السيارة]) And IsNull(DLookup("[تاريخ الرجوع]", "عقد الإيجار")) = False Then
MsgBox "يوجد للسيارة عقد ساري"
DoCmd.CancelEvent
Me.Undo
End If
End Subسيدتى المثال المرفق منك يظهر الرسالة فى كل السيارات المؤجرة و الغير مؤجرة الرجاء المراجعة
الى السادة / خبراء الفريق العربى
عند تحميل المشاركة الاخيرة للاخ منتصر يظهر رسالة خطأ نصها
اقتباسرسالة المنتدىعفوا , تم إيجاد خطأ إذا كنت غير متأكد من إستخدام الخاصية أو أنك لا تعلم سبب حدوث هذا الخطأ الرجاء الرجوع لملفات المساعدة
الخطأ هو:
عفوا بعض الملفات المطلوبة غير موجودة حاليا ,إذا كنت تريد قراءة الموضوع فمن المحتمل قد تم حذفه أو نقله لمنتدى آخر. الرجاء الرجوع للخلف ومعاودة المحاولة
برجاء المحاولة لتصحيح ذلك الخطأ او الرد بما يتبع
مع الشكر ،،،،
اذا لم تخطط للنجاح , فقد خططت للفشل