طلب مساعدة : إذا كان الحجز موجودا مسبقا يظهر رسالة بتاريخ الحجز المسبق

[عالم الهندسة]

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

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

حجز.accdb

[kkhalifa1960]

تفضل يا @عالم الهندسة المرفق بعد التعديل . ووافني بالرد .

حجز (2).rar

[عالم الهندسة]

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

تم تعديل فبراير 16 بواسطه عالم الهندسة

[kkhalifa1960]

36 دقائق مضت, عالم الهندسة said:

لكن الخطوة الثانية ليست على المطلوب اريد عند التشغيل النموذج يتم اظهار المتاح والغير متاح مباشرة ولو كان هناك تقرير عن المحجوزات افضل مباشرة من النموذج

استاذ @عالم الهندسة تأخرك في الرد نساني موضوعك يعني لازم اقرأه من الاول ........... انت لازم تحدد العدد الكلي لاستيعاب كل صالة .

[عالم الهندسة]

8 ساعات مضت, عالم الهندسة said:

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

 

[kkhalifa1960]

ممكن تفسر أكثر  طلبك غير مفهوم !!!!!!!!

تم تعديل فبراير 17 بواسطه kkhalifa1960

[عالم الهندسة]

5 ساعات مضت, kkhalifa1960 said:

ممكن تفسر أكثر  طلبك غير مفهوم !!!!!!!!

 

15 ساعات مضت, عالم الهندسة said:

 

النموذج frm_repot الدالة تعمل على نفس التاريخ الدخول لكن لا تعمل على تاريخ الخروج بمعنى ان الدالة تبحث على تاريخ الدخول فقط مع العلم ان القاعة محجوزة الى تاريخ مابعد الدخول ولكم مرفق بالمطلوب ويارب يسعدكم وجزاكم الله خير 

0.rar

تم تعديل فبراير 17 بواسطه عالم الهندسة

[ابوخليل]

12 ساعات مضت, kkhalifa1960 said:

ممكن تفسر أكثر  طلبك غير مفهوم !!!!!!!!

صحيح غير مفهوم

التواريخ السابقة لتاريخ اليوم  .. البحث فيها ليس له معنى

لانه تم حجزها والانتفاع وانتهت .

المنطق يقول : ان البحث يتم على التاريخ المستقبلي .. يعني من اليوم الحالي وما بعده

من اجل معرفة التواريخ المتاحة لحجز قاعة محددة

[Foksh]

إضافةً لذلك ، المرفق لا يحتوي النموذج frm_repot 

[عالم الهندسة]

منذ ساعه, Foksh said:

إضافةً لذلك ، المرفق لا يحتوي النموذج frm_repot 

ارجع الى المحادثة الاولى فيها الملف باسم حجز 2 واما الملف 0 شرح. للمطلوب فقط

[عالم الهندسة]

الرجاء المساعدة منكم ولكم جزيل الشكر والتقدير ومرفق لكم المطلوب 

حجز (3).rar

[Foksh]

2 ساعات مضت, عالم الهندسة said:

الرجاء المساعدة منكم ولكم جزيل الشكر والتقدير ومرفق لكم المطلوب 

 

أتمنى أن أكون قد فهمت الفكرة بشكل صحيح ..

جرب هذا الكود في الزر

Private Sub أمر7_Click()
    Dim strCriteriaHall1 As String, strCriteriaHall2 As String
    Dim HallName1 As String, HallName2 As String
    Dim checkInDate As String
    Dim existingClient1 As Variant, existingClient2 As Variant
    Dim existingCheckIn1 As Variant, existingCheckIn2 As Variant
    Dim existingCheckOut1 As Variant, existingCheckOut2 As Variant

    HallName1 = Replace(Me.m3.Caption, "'", "''")
    HallName2 = Replace(Me.m5.Caption, "'", "''")

    checkInDate = "#" & Format(Me.m4, "mm/dd/yyyy") & "#"

    strCriteriaHall1 = "HallName='" & HallName1 & "' AND Check_in <= " & checkInDate & " AND Check_out >= " & checkInDate
    strCriteriaHall2 = "HallName='" & HallName2 & "' AND Check_in <= " & checkInDate & " AND Check_out >= " & checkInDate

    existingClient1 = DLookup("Client_Name", "tbl_HallReservation", strCriteriaHall1)
    existingCheckIn1 = DLookup("Check_in", "tbl_HallReservation", strCriteriaHall1)
    existingCheckOut1 = DLookup("Check_out", "tbl_HallReservation", strCriteriaHall1)

    existingClient2 = DLookup("Client_Name", "tbl_HallReservation", strCriteriaHall2)
    existingCheckIn2 = DLookup("Check_in", "tbl_HallReservation", strCriteriaHall2)
    existingCheckOut2 = DLookup("Check_out", "tbl_HallReservation", strCriteriaHall2)

    If Not IsNull(existingClient1) Then
        Me.aa.Value = "القاعة غير متاحة"
        Me.bb.Value = "الاسم: " & existingClient1 & vbNewLine & _
                      "القاعة: " & HallName1 & vbNewLine & _
                      "تاريخ الدخول: " & Format(existingCheckIn1, "dd/mm/yyyy") & vbNewLine & _
                      "تاريخ الخروج: " & Format(existingCheckOut1, "dd/mm/yyyy")
    Else
        Me.aa.Value = "متاحة"
        Me.bb.Value = "لا توجد حجوزات سابقة لهذه القاعة"
    End If

    If Not IsNull(existingClient2) Then
        Me.DD.Value = "القاعة غير متاحة"
        Me.ff.Value = "الاسم: " & existingClient2 & vbNewLine & _
                      "القاعة: " & HallName2 & vbNewLine & _
                      "تاريخ الدخول: " & Format(existingCheckIn2, "dd/mm/yyyy") & vbNewLine & _
                      "تاريخ الخروج: " & Format(existingCheckOut2, "dd/mm/yyyy")
    Else
        Me.DD.Value = "متاحة"
        Me.ff.Value = "لا توجد حجوزات سابقة لهذه القاعة"
    End If
End Sub

 

حجز (2).accdb

[kkhalifa1960]

تفضل استاذ @عالم الهندسة المرفق بعد التعديل .ووافني بالرد .

حجز (4).rar

تم تعديل فبراير 18 بواسطه kkhalifa1960

[عالم الهندسة]

جزاكم الله خير واعتذر ان اتعبناكم بسوء الشرح 

تم تعديل فبراير 19 بواسطه عالم الهندسة