برنامج ادارة الغرف

اليك اخى التطبيق على مثالك

بعد تعديل الدالة لتفادى ادخال تاريخ سابق لتاريخ اليوم

تم التطبيق على نموذج الحجز الخاص بك

و يوجد نموذج form1 للتجريب عليه بشكل سريع

room manager2.rar

Abo_Yossof كتب:

اليك اخى التطبيق على مثالك

بعد تعديل الدالة لتفادى ادخال تاريخ سابق لتاريخ اليوم

تم التطبيق على نموذج الحجز الخاص بك

و يوجد نموذج form1 للتجريب عليه بشكل سريع

روح يا شيخ ربنا يكرمك من وسع زي ما بتساعد الناس :) :)

ممكن بس استفسار رفيع :happy: انا جربت و كله تمام بس في استفسار ان امكنننننن تطبيقه وان لا فلا استطيع ان اوفي جميلك بمجرد كلمة شكر

عند اختيار السرير و يعطيني الرساله ان السرير محجوز و تظهر بيانات حجزه ثم قمت بالاستمرار بحجز السرير في تاريخ في منصف هذه المده يقبل الحجز

بمعني انه يمكن اسكن السرير الواحد بعدد 2 مرضي :wacko:

لا تعبت أناملك أستاذ أبو يوسف .. وهنيئا لك ..

للتحسين يمكن إنشاء قائمة منسدلة مخفية تحمل نتائج الدالة (من ؛ إلى).. وعند ظهور الرسالة يخير المستخدم فيما إذا كان يريد إستخدام البيانات أم لا؟ وإذا أجاب بنعم تظهر القائمة أسفل عنصر التحكم النشط ليختار المستخدم بداية التاريخ ونهايته ثم يقوم بإخفائها.

القحم كتب:

لا تعبيت أناملك أستاذ أبو يوسف .. وهنيئا لك ..

للتحسين يمكن إنشاء قائمة منسدلة مخفية تحمل نتائج الدالة (من ؛ إلى).. وعند ظهور الرسالة يخير المستخدم فيما إذاء كان يريد إستخدام البيانات أم لا؟ وإذا أجاب بنعم تظهر القائمة أسفل عنصر التحكم النشط ليختار المستخدم بداية التاريخ ونهايته ثم يقوم بإخفائها.

بارك الله فيك اخي القحم اكل معروفك ان امكن تطبيق فكرتك و لك جزيل الشكر

friend_egypt كتب:

بارك الله فيك اخي القحم اكل معروفك ان امكن تطبيق فكرتك و لك جزيل الشكر

سأفعل إن شاء الله

friend_egypt كتب:

روح يا شيخ ربنا يكرمك من وسع زي ما بتساعد الناس :) :)

ممكن بس استفسار رفيع :happy: انا جربت و كله تمام بس في استفسار ان امكنننننن تطبيقه وان لا فلا استطيع ان اوفي جميلك بمجرد كلمة شكر

عند اختيار السرير و يعطيني الرساله ان السرير محجوز و تظهر بيانات حجزه ثم قمت بالاستمرار بحجز السرير في تاريخ في منصف هذه المده يقبل الحجز

بمعني انه يمكن اسكن السرير الواحد بعدد 2 مرضي :wacko:

اكرمنا الله و اياكم اخى الكريم

يمكنك منع خروج المؤشر من (او بالاحرى اعادة المؤشر الى ) مربع النص اذا كان السرير محجوز حتى يتم ادخال تاريخ مناسب

او ضع الكود فى حدث قبل التحديث او حدث عند الخروج بدلا من حدث بعد التحديث

و استخدم هذه الجملة لمنع الخروج

Cancel = True

و يكون الكود بهذا الشكل

Dim stravl As String
 stravl = Bed_AvailableIn(Me.a, Me.in_date)
  If Not BedAvailable Then
     MsgBox stravl, vbCritical
     Cancel = True
  End If

هناك رسالة بعدد الحجوزات على السرير نسيت حذفها لانها ليس لها داعى

MsgBox r

القحم كتب:

لا تعبت أناملك أستاذ أبو يوسف .. وهنيئا لك ..

للتحسين يمكن إنشاء قائمة منسدلة مخفية تحمل نتائج الدالة (من ؛ إلى).. وعند ظهور الرسالة يخير المستخدم فيما إذا كان يريد إستخدام البيانات أم لا؟ وإذا أجاب بنعم تظهر القائمة أسفل عنصر التحكم النشط ليختار المستخدم بداية التاريخ ونهايته ثم يقوم بإخفائها.

بارك الله فيك اخى الكريم و هنيئا لنا بوجودك معنا

بداية اعتذر للاستاذ أبو يوسف لكوني قمت بالتعديل على الوظيفة التي أنشأها لحساب الأيام الشاغرة

اقتباس

لا تعبت أناملك أستاذ أبو يوسف .. وهنيئا لك ..

للتحسين يمكن إنشاء قائمة منسدلة مخفية تحمل نتائج الدالة (من ؛ إلى).. وعند ظهور الرسالة يخير المستخدم فيما إذا كان يريد إستخدام البيانات أم لا؟ وإذا أجاب بنعم تظهر القائمة أسفل عنصر التحكم النشط ليختار المستخدم بداية التاريخ ونهايته ثم يقوم بإخفائها.

المثال التالي يوضح المشار إليها... ولكن أبقيت عنصر التحكم ظاهرا لوجود مساحة كافيه له في رأس النموذج

افتح النموذج Searsh واختر السرير 102A مع التاريخ الحالي لوجود بيانات كافية للتطبيق

room manager2.zip