مساعدة فى فورم CHECK IN

[alaa111]

السلام عليكم

الرجاء المساعده فى FORM CHECK IN

عند عمل حجز جديد اريد عدم ظهور الغرف الساكنه

عند اختيار الغرف فى الفورم اريد ان لا تظهر الغرف الساكنه ( Check in )

Reservation Form (111) (1) (1).xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

اخي الفاضل تم عمل المطلوب 

لاكن سوف اشرح لك الخطوات للاستفادة   لنتمكن من عدم اظهار الغرف الساكنة على Combobox لابد اولا من الحصول على قائمة باسماءالغرف الفارغة (Avalable )

 بما انني لاحظت انك واضع معادلة في شيت 1 لاستخراج  (Room Statuse)  بشرط التاريخ سوف نعتمد عليها ودالك باظافة عمود مساعد نضع فيه المعادلة التالية  وليكن مثلا عمود ("X")  لاستخراج الغرف الفارغة .

=IF(E2="Available ";A2;"")

بمعنى غند التحقق من الغرفة فارغة يتم استخراج اسمها في العمود المساعد وادا كانت محجوزة (Booked) نحصل على فراغ .وهكدا  تتولد لدينا قائمة باسماء جميع الغرف الفارغة 

الخطوة الثانية والمهمة لابد من استبدال كود جلب البيانات بالكود التالي ليتم تعيئة الكومبوبوكس بالقيم المحصل عليها بدون فراغات 

Dim MH As Integer
Dim Plage As Range
'جلب الغرف الفارغة
 With Sheets("sheet1")
For MH = 2 To .Range("X" & .Rows.Count).End(xlUp).row
 If .Range("X" & MH) <> "" Then
   cmbroom.AddItem .Range("X" & MH)
   End If
 Next MH
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'تم إستبدال كود كومبو بوكس البحث بالكود التالي  
With Sheets("Database")
    Set Plage = .Range("b2:b" & .Range("b65536").End(xlUp).row)
End With
ComboBox1.List = Plage.Value

بالتوفيق 

Reservation Form_V2.xlsm

تم تعديل فبراير 22, 2023 بواسطه Mohamed Hicham