ahmedspcc قام بنشر أغسطس 3, 2004 قام بنشر أغسطس 3, 2004 يه الاخوة الكرمة اخوكم في ورطة ( مذيع في ورطة) انه مطلوب مني اليوم ان اسلم برنامج لشقق مفروشة والمشكلة في معرفة الغرفة المستجئارة من الغير مستجار ارجوكم من لديه الفكرة او مثال على ذلك ، يلحق علي ولكم جزي الشكر ، علمن انه لدي جدول بالغرف وجدول اخر بحركة الغرف به تاريخ الدخول وتاريخ الخروج . عاجل جداًجداً
osama457 قام بنشر أغسطس 3, 2004 قام بنشر أغسطس 3, 2004 أفترض ان عندك جدولين : جدول الغرف وجدول الحركة اعمل استعلام جديد وخلينا نسميه( غير الشاغر ) لحركة الغرف ، فيه حقلين رقم الحركة ورقم الغرفة ، وفي المعايير ان تاريخ الخروج فارغ أو أكبر من أو يساوي اليوم الحاضر ، وعلى كذا الاستعلام يعرض الغرف غير الشاغرة الآن اعمل استعلام جديد ثاني تربط فيه جدول الغرف باستعلام (غير الشاغر) ، ومن خصائص الربط فيه انه يعرض جميع سجلات جدول الغرف ، وتلك السجلات فقط (من غير الشاغر) حيث تكون السجلات متطابقة . واعمل في معاييره ان حقل رقم الحركة (Is Null) ، يعني الغرفة ليست ممتلئة . وعلى كذا الاستعلام الثاني هو اللي يعرض الغرف الشاغرة . طبعا ممكن استبدال هذه الخطوات بأكواد ، لكن هذا يؤدي الغرض . وهذا مثال . EmptyRooms.zip
سهل احمد العريشي قام بنشر أغسطس 13, 2004 قام بنشر أغسطس 13, 2004 اخي بأمكانك ذلك بطريق وضع كو د في حقل رقم الغرفة اولا Private Sub ÑÞã_ÇáÛÑÝÉ_AfterUpdate() Dim mm As Variant mm = DLookup("[åá_ÇáÛÑÝÉ_ãÍÌæÒÉ]", "ÌÏæá_ÇáäÒáÇÁ", "[ÑÞã_ÇáÛÑÝÉ]=[forms]![äãæÐÌ_ÇáÍÌÒ]![ÑÞã_ÇáÛÑÝÉ]") If Not IsNull(mm) Then MsgBox "ÚÐÑÇð ÇáÛÑÝÉ ãÍÌæÒÉ", vbCritical + vbMsgBoxRight, "ÅÚÊÐÇÑ" Me![ÑÞã_ÇáÛÑÝÉ] = Null DoCmd.CancelEvent Exit Sub End If End Sub الثاني Private Sub ÑÞã_ÇáÛÑÝÉ_Exit(Cancel As Integer) If IsNull(Me![ÑÞã_ÇáÛÑÝÉ]) Or Me![ÑÞã_ÇáÛÑÝÉ] = "" Then Cancel = -1 End If End Sub وضعنا كود على رقم الغرفة في حدث بعد التحديث كي يمنع أن تؤجر الغرفة أثناء ما تكون مؤجرة0 وضعنا كود على رقم الغرفة عند الخروج على شأن يبقى التركيز في رقم الغرفة
سهل احمد العريشي قام بنشر أغسطس 13, 2004 قام بنشر أغسطس 13, 2004 عذرا لعدم وضوح الخط العربي لا اعرف لماذا المهم اضافة الى مثال الاخ اسامه المميز هذا مثال وضع من فترة لاحد الاخوه ولكني لا اذكر اسمه الشكر لصاحب المثال على مثاله وانا اعيده هنا بناءا على طلبك ولتعم الفائدة للاخوه رابط التنزيل http://www.arabteam2000-forum.com/index.ph...=post&id=218554
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.