برنامج شقق مفروشة

[ahmedspcc]

يه الاخوة الكرمة اخوكم في ورطة ( مذيع في ورطة)

انه مطلوب مني اليوم ان اسلم برنامج لشقق مفروشة والمشكلة في معرفة الغرفة المستجئارة من الغير مستجار

ارجوكم من لديه الفكرة او مثال على ذلك ، يلحق علي ولكم جزي الشكر ، علمن انه لدي جدول بالغرف

وجدول اخر بحركة الغرف به تاريخ الدخول وتاريخ الخروج .

عاجل جداًجداً

[osama457]

أفترض ان عندك جدولين : جدول الغرف وجدول الحركة

اعمل استعلام جديد وخلينا نسميه( غير الشاغر ) لحركة الغرف ، فيه حقلين رقم الحركة ورقم الغرفة ، وفي المعايير ان تاريخ الخروج فارغ أو أكبر من أو يساوي اليوم الحاضر ، وعلى كذا الاستعلام يعرض الغرف غير الشاغرة

الآن اعمل استعلام جديد ثاني تربط فيه جدول الغرف باستعلام (غير الشاغر) ، ومن خصائص الربط فيه انه يعرض جميع سجلات جدول الغرف ، وتلك السجلات فقط (من غير الشاغر) حيث تكون السجلات متطابقة .

واعمل في معاييره ان حقل رقم الحركة (Is Null) ، يعني الغرفة ليست ممتلئة .

وعلى كذا الاستعلام الثاني هو اللي يعرض الغرف الشاغرة .

طبعا ممكن استبدال هذه الخطوات بأكواد ، لكن هذا يؤدي الغرض .

وهذا مثال .

EmptyRooms.zip

[سهل احمد العريشي]

اخي بأمكانك ذلك بطريق وضع كو د في حقل رقم الغرفة اولا

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

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

[سهل احمد العريشي]

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

رابط التنزيل

http://www.arabteam2000-forum.com/index.ph...=post&id=218554