منع ادخال الوقت اذا كان هناك حجز مسبق

[عبد اللطيف سلوم]

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

مرفق صورة وقاعدة البيانات للتطبيق عليها

حجز حفلة حسب التاريخ والوقت 

لاحظوا الحجز الثالث باسم HASSAN يتعارض مع الحجز الاول

المطلوب -- يمنع ادخل حجز فيه تعارض بالوقت لبدء الحفلة حتى نهايتها

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

قاعدة البيانات

WEEDING HALLS.accdbFetching info...

 

اتمنى منكم المساعدة وجزاكم الله خيرا

[Foksh]

 

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

الأمر يسير أخي @عبد اللطيف سلوم ان شاء الله

انشئ نموذج وفي زر التسجيل استخدم الكود التالي
 

Private Sub Command7_Click()
    Dim rs As DAO.Recordset
    Dim sql As String

    sql = "SELECT 1 FROM Tbl_Party WHERE DATE_PARTY = #" & Me.DATE_PARTY & "# " & _
          "AND ((#" & Me.TIME_PARTY_START & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _
          "OR (#" & Me.TIME_PARTY_END & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _
          "OR (TIME_PARTY_START BETWEEN #" & Me.TIME_PARTY_START & "# AND #" & Me.TIME_PARTY_END & "#))"

    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)

    If Not rs.EOF Then
        MsgBox "يوجد حجز مسبق لهذه الفترة!", vbExclamation, "تنبيه"
    Else
        CurrentDb.Execute "INSERT INTO Tbl_Party (DATE_PARTY, TIME_PARTY_START, TIME_PARTY_END) " & _
                          "VALUES (#" & Me.DATE_PARTY & "#, #" & Me.TIME_PARTY_START & "#, #" & Me.TIME_PARTY_END & "#)", dbFailOnError
        MsgBox "تم حفظ الحجز بنجاح!", vbInformation, "تأكيد"
    End If

    rs.Close: Set rs = Nothing
End Sub

 

WEEDING HALLS.accdbFetching info...

[ابوخليل]

اخي عبداللطيف

لو وضعت نموذجا بسيطا يبين كيفية ادخالك للبيانات .. لكان افضل في ايجاد الحل النموذجي

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

هذا يعني ان الدخول يتم في يوم والخروج في يوم آخر

[عبد اللطيف سلوم]

  في 18‏/2‏/2025 at 21:17, Foksh said:

 

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

الأمر يسير أخي @عبد اللطيف سلوم ان شاء الله

انشئ نموذج وفي زر التسجيل استخدم الكود التالي
 

Private Sub Command7_Click()
    Dim rs As DAO.Recordset
    Dim sql As String

    sql = "SELECT 1 FROM Tbl_Party WHERE DATE_PARTY = #" & Me.DATE_PARTY & "# " & _
          "AND ((#" & Me.TIME_PARTY_START & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _
          "OR (#" & Me.TIME_PARTY_END & "# BETWEEN TIME_PARTY_START AND TIME_PARTY_END) " & _
          "OR (TIME_PARTY_START BETWEEN #" & Me.TIME_PARTY_START & "# AND #" & Me.TIME_PARTY_END & "#))"

    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)

    If Not rs.EOF Then
        MsgBox "يوجد حجز مسبق لهذه الفترة!", vbExclamation, "تنبيه"
    Else
        CurrentDb.Execute "INSERT INTO Tbl_Party (DATE_PARTY, TIME_PARTY_START, TIME_PARTY_END) " & _
                          "VALUES (#" & Me.DATE_PARTY & "#, #" & Me.TIME_PARTY_START & "#, #" & Me.TIME_PARTY_END & "#)", dbFailOnError
        MsgBox "تم حفظ الحجز بنجاح!", vbInformation, "تأكيد"
    End If

    rs.Close: Set rs = Nothing
End Sub

 

WEEDING HALLS.accdb 472 kB · 7 downloads

Expand  

الله يصبحكم بأنوار النبي

جربت الان -- ظهر عندي هيك

 

وعند الدخول على المشكلة ظهرت هيك

 

 

انا استخدم اوفيس 365 مدفوع نظام 64 بت

[عبد اللطيف سلوم]

 فرغته من البيانات 

وحاولت التسجيل ولكن ظهرت نفس المشكلة

[kkhalifa1960]

تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (PARTY_ID) استخدمته مع شرط اسم الحاجز وتاريخ الحجز . ووافني بالرد .

WEEDING HALLS (111).rarFetching info...

[Retired programmer]

  في 19‏/2‏/2025 at 04:29, kkhalifa1960 said:

تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (PARTY_ID) استخدمته مع شرط اسم الحاجز وتاريخ الحجز . ووافني بالرد .

WEEDING HALLS (111).rar 26.9 kB · 2 downloads

Expand  

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

المفروض يتم الحجز

لاحظ الخطأ

 

[Foksh]

  في 19‏/2‏/2025 at 02:59, عبد اللطيف سلوم said:

جربت الان -- ظهر عندي هيك

 

Expand  

من نفس المرفق أخي عبداللطيف :-

[kkhalifa1960]

يعمل عندي وبشكل جيد .

عموماً سأعدل تنسيق التاريخ 

• Access يحتاج إلى التنسيق الأمريكي (yyyy-mm-dd) عند التعامل مع SQL.
• استخدام dd/mm/yyyy قد يؤدي إلى أخطاء عند إدخال التواريخ.

                                                               اليكم المرفق بعد تعديل تنسيق التاريخ .

 

 

WEEDING HALLS (112).rarFetching info...

[Retired programmer]

  في 19‏/2‏/2025 at 08:05, Foksh said:

من نفس المرفق أخي عبداللطيف :-

Expand  

اخوي خليفة ارفع لنا هذه النسخة اذا تكرمت

النسخ السابقة لا يوجد بها موديول

[Foksh]

  في 19‏/2‏/2025 at 09:07, Retired programmer said:

النسخ السابقة لا يوجد بها موديول

Expand  

اخي الكريم الموديول ليس له علاقة بهذا الملف .

[ابو عارف]

  في 19‏/2‏/2025 at 07:45, Retired programmer said:

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

المفروض يتم الحجز

لاحظ الخطأ

Expand  

خلي قيمة افتراضية لمربع نص PAID صفر

أو وضع إسم تلك المربع بين دالة NZ(PAID,0)

CurrentDb.Execute "INSERT INTO Tbl_Party (HUSBAND_NAME, DATE_PARTY, PARTY_ID, COST_AMOUNT, PAID) " & _
                          "VALUES ('" & Me.HUSBAND_NAME & "', #" & Format(Me.DATE_PARTY, "dd/mm/yyyy") & "#, " & _
                          Me.PARTY_ID & ", " & Me.COST_AMOUNT & ", " & Nz(Me.PAID, 0) & ")", dbFailOnError

 

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

[عبد اللطيف سلوم]

  في 19‏/2‏/2025 at 09:05, kkhalifa1960 said:

يعمل عندي وبشكل جيد .

عموماً سأعدل تنسيق التاريخ 

• Access يحتاج إلى التنسيق الأمريكي (yyyy-mm-dd) عند التعامل مع SQL.
• استخدام dd/mm/yyyy قد يؤدي إلى أخطاء عند إدخال التواريخ.

                                                               اليكم المرفق بعد تعديل تنسيق التاريخ .

 

 

WEEDING HALLS (112).rar 31.51 kB · 8 downloads

Expand  

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

لاحظ الصورة المرفقة

 

هذه القاعدة اللي طبقت عليها

WEEDING HALLS (112).rarFetching info...

انا بعرف اني غلبتك 

 

[عبد اللطيف سلوم]

  في 19‏/2‏/2025 at 01:34, ابوخليل said:

اخي عبداللطيف

لو وضعت نموذجا بسيطا يبين كيفية ادخالك للبيانات .. لكان افضل في ايجاد الحل النموذجي

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

هذا يعني ان الدخول يتم في يوم والخروج في يوم آخر

Expand  

اخوي الغالي

الفكرة من هذا البرنامج هو حجز مواعيد لصالة افراح

بحيث كل حفلة مدتها ساعتين 

ولا بد من ضبط الامور لكي لا يتم اعطاء موعد لاحق يتضارب مع موعد اخر

هنا سيجتمع عريسين في ان واحد وتقوم مشاجرة وتكسير كراسي هههههههههههه

اذا ضبطنا عدم التكرار  هيك نجنب الصالة المشاكل

[ابوخليل]

 !! 😌

لم توضح وجهة نظري هل هي صحيحة ام لا

الآن انت اضفت معلومة جديدة وهي ان المدة ساعتين فقط

ولكن المبرمج ينظر الى افق اوسع .. ماذا لو تم تمديد الفترة ، مثلا الزبون يريدها 3 ساعات ، وماذا لو تم حجز الساعتين كما ذكرت اعلاه في يومين 

بمعنى ان الحجز تم في الساعة الحادية عشر ليلا فالخروج سيكون في الساعة الواحدة غدا .. هنا كيف تتعامل مع معيار التاريخ؟

انا عندما اتصدى للاجابة .. لا بد ان اقتنع ان هذا الحل هو المناسب .. وأنه يغطي جميع الاحتمالات

 

[kkhalifa1960]

  في 19‏/2‏/2025 at 17:10, عبد اللطيف سلوم said:

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

Expand  

 

تفضل استاذي فقط لغيت شرط الاسم من الكود .وطريقتي تتماشى مع كلام استاذي أبو خليل .

WEEDING HALLS (113).rarFetching info...

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

[Foksh]

بعد بحثي عن هذا الملف من مشروع إدارة صالة أفراح في العاصمة عمان ، جرب هذا التعديل :-

 

Afra7.accdbFetching info...

[ابوخليل]

👍

 Format(DateAdd("d", -1, Me.DATE_PARTY)

 

[عبد اللطيف سلوم]

  في 19‏/2‏/2025 at 18:03, kkhalifa1960 said:

 

تفضل استاذي فقط لغيت شرط الاسم من الكود .وطريقتي تتماشى مع كلام استاذي أبو خليل .

WEEDING HALLS (113).rar 29.95 kB · 7 downloads

Expand  

 

عاشت ايدك 

شغال 100%

  في 19‏/2‏/2025 at 18:46, Foksh said:

بعد بحثي عن هذا الملف من مشروع إدارة صالة أفراح في العاصمة عمان ، جرب هذا التعديل :-

 

Afra7.accdb 1.04 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads

Expand  

عاشت ايدك يا غالي

شغال 100 %

  في 19‏/2‏/2025 at 19:03, ابوخليل said:

👍

 Format(DateAdd("d", -1, Me.DATE_PARTY)

 

Expand  

اشكرك على المرور معلمنا الرائع 

[أبوبسمله]

السلام عليكم

مشاركه مع اخوتى واساتذتى

اعجبتنى طريقه اخى الفاضل @Foksh جزاه الله خيرا

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

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

Private Sub Command7_Click()
    Dim rs As DAO.Recordset
    Dim sql As String

    sql = "SELECT 1 FROM Tbl_Party WHERE DATE_PARTY = #" & Me.DATE_PARTY & "# " & _
          "AND ((" & CDbl(Me.TIME_PARTY_START) & " BETWEEN cdbl(TIME_PARTY_START) AND cdbl(TIME_PARTY_END)) " & _
          "OR (" & CDbl(Me.TIME_PARTY_END) & " BETWEEN cdbl(TIME_PARTY_START) AND cdbl(TIME_PARTY_END)) " & _
          "OR (cdbl(TIME_PARTY_START) BETWEEN " & CDbl(Me.TIME_PARTY_START) & " AND " & CDbl(Me.TIME_PARTY_END) & "))"

    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)

    If Not rs.EOF Then
        MsgBox "يوجد حجز مسبق لهذه الفترة!", vbExclamation, "تنبيه"
    Else
        CurrentDb.Execute "INSERT INTO Tbl_Party (DATE_PARTY, TIME_PARTY_START, TIME_PARTY_END) " & _
                          "VALUES (#" & Me.DATE_PARTY & "#, #" & Me.TIME_PARTY_START & "#, #" & Me.TIME_PARTY_END & "#)", dbFailOnError
        MsgBox "تم حفظ الحجز بنجاح!", vbInformation, "تأكيد"
    End If

    rs.Close: Set rs = Nothing
End Sub

تمنياتى لكم بالتوفيق

WEEDING HALLS_1.accdbFetching info...

[عبد اللطيف سلوم]

  في 19‏/2‏/2025 at 17:58, ابوخليل said:

 !! 😌

لم توضح وجهة نظري هل هي صحيحة ام لا

الآن انت اضفت معلومة جديدة وهي ان المدة ساعتين فقط

ولكن المبرمج ينظر الى افق اوسع .. ماذا لو تم تمديد الفترة ، مثلا الزبون يريدها 3 ساعات ، وماذا لو تم حجز الساعتين كما ذكرت اعلاه في يومين 

بمعنى ان الحجز تم في الساعة الحادية عشر ليلا فالخروج سيكون في الساعة الواحدة غدا .. هنا كيف تتعامل مع معيار التاريخ؟

انا عندما اتصدى للاجابة .. لا بد ان اقتنع ان هذا الحل هو المناسب .. وأنه يغطي جميع الاحتمالات

 

Expand  

نعم صحيح معلم 

نظام الحجز المتعارف عليه في الاردن ساعتين 

اذا كانت الحفلة طويلة يتم حجز 4 ساعات وليس 3 

وقد يحدث ان يكون الحجز الساعة 11 ليلا وينتهي الساعة 1 صباحا من اليوم التالي

علما اني قبل كورونا عام 2020 صممت برنامج حجوزات صغير وربطه مع كالندر جوجل 

وكان شغال تمام 

زمان كان هناك خيار اظهار الكالندر في نموذج اكسس

اتوقع تم الغائها في الاصدارات الحديثة

 

بعد هذه المعطيات هل تم حل الموضوع ام هناك رأي اخر ؟؟

منكم نستفيد اخي الكريم

[ابوخليل]

الم تصل الى حل مقنع من ردود الإخوة الفضلاء أعلاه ؟

أم انك تريد فكرة اكثر ضبطا وتحكما ؟

 المسألة تعتمد على وقتين اثنين وأوقات محصورة بينهما _وهنا مكمن الصعوبة_ الا باستخدام جدول او جداول خدمية

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

وانما لا يظهر امامه الا الأوقات المتاحة فقط خلال اليوم المحدد القادم

ان راقت لك الفكرة .. خبرني حتى احاول تنفيذها لعلي انجح في ذلك ،،

ولدي استفسار .. اي الاوقات الاكثر حجزا .. المساء ام الصباح  .. ،  واذا الحجز غالبا محصور بين ساعات محددة في الغالب لا يتعداها اتمنى تحددها من الوقت الى الوقت

سؤالي اعلاه من اجل الأولوية في العرض امام المستخدم

وسؤال خطر على بالي الآن : الحجز كما ذكرت ساعتين .. ساعتين  ، اذا فرضنا انه تم الحجز الساعة الخامسة وسينتهي الساعة السابعة .. متى سيبدأ الحجز التالي هل يبدأ من الساعة السابعة اي من وقت نهاية الحجز الذي قبله مباشرة ؟ 

 

 

[Foksh]

  في 22‏/2‏/2025 at 18:21, ابوخليل said:

وسؤال خطر على بالي الآن : الحجز كما ذكرت ساعتين .. ساعتين  ، اذا فرضنا انه تم الحجز الساعة الخامسة وسينتهي الساعة السابعة .. متى سيبدأ الحجز التالي هل يبدأ من الساعة السابعة اي من وقت نهاية الحجز الذي قبله مباشرة ؟

Expand  

هذه الفكرة قمت بضبطها في مثالي المرفق الأخير ، لكنها يبدو أنها لم تكن مطلباً من مطلب أخونا @عبد اللطيف سلوم 😅 .

[ابوخليل]

  في 22‏/2‏/2025 at 19:44, Foksh said:

هذه الفكرة قمت بضبطها في مثالي المرفق الأخير ، لكنها يبدو أنها لم تكن مطلباً من مطلب أخونا @عبد اللطيف سلوم 😅 .

Expand  

الواقع يفرض فترة كافية بين كل حجزين متتاليين

لانه لا يتوقع ابدا جاهزية القاعة في نهاية الحجز  .. على الاقل يكون بينهما ساعة من اجل الاخلاء والتجهيز للحاجز الجديد

[عبد اللطيف سلوم]

  في 22‏/2‏/2025 at 18:21, ابوخليل said:

وسؤال خطر على بالي الآن : الحجز كما ذكرت ساعتين .. ساعتين  ، اذا فرضنا انه تم الحجز الساعة الخامسة وسينتهي الساعة السابعة .. متى سيبدأ الحجز التالي هل يبدأ من الساعة السابعة اي من وقت نهاية الحجز الذي قبله مباشرة ؟

Expand  

اخونا الغالي حسب المتعارف عليه في الاردن

ينتهي الحجز قبل انتهاء الوقت بربع ساعة 

من اجل تجهيز الصالة للحفلة القادمة

والناس تمل من الاغاني والدوشة

احيانا تخرج الناس بعد ساعة او ساعة ونصف

ولو نفرض جدلا استمروا لنهاية الساعتين

الحفلة الي بعدها ستنتظر ربع ساعة لحين تجهيز الصالة 

عندهم موظفين كثر ويقوموا بالترتيب ع السريع

  في 22‏/2‏/2025 at 19:44, Foksh said:

هذه الفكرة قمت بضبطها في مثالي المرفق الأخير ، لكنها يبدو أنها لم تكن مطلباً من مطلب أخونا @عبد اللطيف سلوم 😅 .

Expand  

والله ياصاحبي انحرجت منك ومن الاخ خليفة بالنسبة للحل المطلوب والاجابة الصحيحة

علما انكم الاثنين جئتم بالحل

السموحة