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

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

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

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

حجز.accdbFetching info...

[kkhalifa1960]

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

حجز (2).rarFetching info...

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

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

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

[kkhalifa1960]

  في 16‏/2‏/2025 at 21:09, عالم الهندسة said:

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

Expand  

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

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

  في 16‏/2‏/2025 at 21:09, عالم الهندسة said:

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

Expand  

 

[kkhalifa1960]

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

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

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

  في 17‏/2‏/2025 at 06:58, kkhalifa1960 said:

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

Expand  

 

  في 16‏/2‏/2025 at 21:09, عالم الهندسة said:

 

Expand  

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

0.rarFetching info...

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

[ابوخليل]

  في 17‏/2‏/2025 at 06:58, kkhalifa1960 said:

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

Expand  

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

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

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

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

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

[Foksh]

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

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

  في 17‏/2‏/2025 at 20:01, Foksh said:

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

Expand  

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

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

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

حجز (3).rarFetching info...

[Foksh]

  في 18‏/2‏/2025 at 14:56, عالم الهندسة said:

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

 

Expand  

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

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

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).accdbFetching info...

[kkhalifa1960]

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

حجز (4).rarFetching info...

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

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

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

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