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

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

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

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

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

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

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

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

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

WEEDING HALLS.accdb

 

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

[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.accdb

[ابوخليل]

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

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

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

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

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

5 ساعات مضت, 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

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

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

 

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

 

 

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

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

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

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

[kkhalifa1960]

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

WEEDING HALLS (111).rar

[Retired programmer]

3 hours ago, kkhalifa1960 said:

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

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

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

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

لاحظ الخطأ

 

[Foksh]

5 ساعات مضت, عبد اللطيف سلوم said:

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

 

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

[kkhalifa1960]

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

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

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

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

 

 

WEEDING HALLS (112).rar

[Retired programmer]

1 hour ago, Foksh said:

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

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

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

[Foksh]

1 دقيقه مضت, Retired programmer said:

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

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

[ابو عارف]

6 ساعات مضت, Retired programmer said:

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

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

لاحظ الخطأ

خلي قيمة افتراضية لمربع نص 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

 

تم تعديل الأربعاء at 14:37 بواسطه ابو عارف

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

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

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

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

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

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

 

 

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

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

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

 

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

WEEDING HALLS (112).rar

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

 

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

16 ساعات مضت, ابوخليل said:

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

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

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

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

اخوي الغالي

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

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

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

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

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

[ابوخليل]

 !! 😌

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

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

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

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

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

 

[kkhalifa1960]

53 دقائق مضت, عبد اللطيف سلوم said:

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

 

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

WEEDING HALLS (113).rar

تم تعديل الأربعاء at 18:04 بواسطه kkhalifa1960

[Foksh]

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

 

Afra7.accdb

[ابوخليل]

👍

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

 

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

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

 

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

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

 

عاشت ايدك 

شغال 100%

8 ساعات مضت, Foksh said:

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

 

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

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

شغال 100 %

7 ساعات مضت, ابوخليل said:

👍

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

 

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

[أبوبسمله]

السلام عليكم

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

اعجبتنى طريقه اخى الفاضل @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.accdb

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

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

 !! 😌

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

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

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

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

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

 

نعم صحيح معلم 

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

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

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

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

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

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

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

 

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

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

[ابوخليل]

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

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

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

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

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

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

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

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

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

 

 

[Foksh]

منذ ساعه, ابوخليل said:

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

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