عبد اللطيف سلوم قام بنشر الثلاثاء at 20:26 قام بنشر الثلاثاء at 20:26 السلام عليكم ورحمة الله وبركاته مرفق صورة وقاعدة البيانات للتطبيق عليها حجز حفلة حسب التاريخ والوقت لاحظوا الحجز الثالث باسم HASSAN يتعارض مع الحجز الاول المطلوب -- يمنع ادخل حجز فيه تعارض بالوقت لبدء الحفلة حتى نهايتها مع رسالة تخبرنا ان هناك حجز يتعارض مع هذا التوقيت قاعدة البيانات WEEDING HALLS.accdb اتمنى منكم المساعدة وجزاكم الله خيرا
Foksh قام بنشر الثلاثاء at 21:17 قام بنشر الثلاثاء at 21:17 وعليكم السلام ورحمة الله وبركاته .. الأمر يسير أخي @عبد اللطيف سلوم ان شاء الله انشئ نموذج وفي زر التسجيل استخدم الكود التالي 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 3
ابوخليل قام بنشر الأربعاء at 01:34 قام بنشر الأربعاء at 01:34 اخي عبداللطيف لو وضعت نموذجا بسيطا يبين كيفية ادخالك للبيانات .. لكان افضل في ايجاد الحل النموذجي والسبب انه يخطر على البال لو كان الحجز في الساعة الحادية عشر ليلا والخروج في الساعة الواحدة بعد منتصف الليل هذا يعني ان الدخول يتم في يوم والخروج في يوم آخر 2
عبد اللطيف سلوم قام بنشر الأربعاء at 02:59 الكاتب قام بنشر الأربعاء at 02:59 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 بت
عبد اللطيف سلوم قام بنشر الأربعاء at 03:12 الكاتب قام بنشر الأربعاء at 03:12 فرغته من البيانات وحاولت التسجيل ولكن ظهرت نفس المشكلة
kkhalifa1960 قام بنشر الأربعاء at 04:29 قام بنشر الأربعاء at 04:29 تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (PARTY_ID) استخدمته مع شرط اسم الحاجز وتاريخ الحجز . ووافني بالرد . WEEDING HALLS (111).rar 1
Retired programmer قام بنشر الأربعاء at 07:45 قام بنشر الأربعاء at 07:45 3 hours ago, kkhalifa1960 said: تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (PARTY_ID) استخدمته مع شرط اسم الحاجز وتاريخ الحجز . ووافني بالرد . WEEDING HALLS (111).rar 26.9 kB · 2 downloads اخوي خليفة حاولت اعمل حجز جديد بتاريخ جديد المفروض يتم الحجز لاحظ الخطأ
Foksh قام بنشر الأربعاء at 08:05 قام بنشر الأربعاء at 08:05 5 ساعات مضت, عبد اللطيف سلوم said: جربت الان -- ظهر عندي هيك من نفس المرفق أخي عبداللطيف :- 2
kkhalifa1960 قام بنشر الأربعاء at 09:05 قام بنشر الأربعاء at 09:05 يعمل عندي وبشكل جيد . عموماً سأعدل تنسيق التاريخ Access يحتاج إلى التنسيق الأمريكي (yyyy-mm-dd) عند التعامل مع SQL. استخدام dd/mm/yyyy قد يؤدي إلى أخطاء عند إدخال التواريخ. اليكم المرفق بعد تعديل تنسيق التاريخ . WEEDING HALLS (112).rar 1
Retired programmer قام بنشر الأربعاء at 09:07 قام بنشر الأربعاء at 09:07 1 hour ago, Foksh said: من نفس المرفق أخي عبداللطيف :- اخوي خليفة ارفع لنا هذه النسخة اذا تكرمت النسخ السابقة لا يوجد بها موديول 1 1
Foksh قام بنشر الأربعاء at 09:09 قام بنشر الأربعاء at 09:09 1 دقيقه مضت, Retired programmer said: النسخ السابقة لا يوجد بها موديول اخي الكريم الموديول ليس له علاقة بهذا الملف . 1
ابو عارف قام بنشر الأربعاء at 14:21 قام بنشر الأربعاء at 14:21 (معدل) 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 بواسطه ابو عارف 1
عبد اللطيف سلوم قام بنشر الأربعاء at 17:10 الكاتب قام بنشر الأربعاء at 17:10 8 ساعات مضت, kkhalifa1960 said: يعمل عندي وبشكل جيد . عموماً سأعدل تنسيق التاريخ Access يحتاج إلى التنسيق الأمريكي (yyyy-mm-dd) عند التعامل مع SQL. استخدام dd/mm/yyyy قد يؤدي إلى أخطاء عند إدخال التواريخ. اليكم المرفق بعد تعديل تنسيق التاريخ . WEEDING HALLS (112).rar 31.51 kB · 8 downloads حبيب اخترت حجزين بنفس التاريخ ونفس الموعد وقبلهم لاحظ الصورة المرفقة هذه القاعدة اللي طبقت عليها WEEDING HALLS (112).rar انا بعرف اني غلبتك
عبد اللطيف سلوم قام بنشر الأربعاء at 17:44 الكاتب قام بنشر الأربعاء at 17:44 16 ساعات مضت, ابوخليل said: اخي عبداللطيف لو وضعت نموذجا بسيطا يبين كيفية ادخالك للبيانات .. لكان افضل في ايجاد الحل النموذجي والسبب انه يخطر على البال لو كان الحجز في الساعة الحادية عشر ليلا والخروج في الساعة الواحدة بعد منتصف الليل هذا يعني ان الدخول يتم في يوم والخروج في يوم آخر اخوي الغالي الفكرة من هذا البرنامج هو حجز مواعيد لصالة افراح بحيث كل حفلة مدتها ساعتين ولا بد من ضبط الامور لكي لا يتم اعطاء موعد لاحق يتضارب مع موعد اخر هنا سيجتمع عريسين في ان واحد وتقوم مشاجرة وتكسير كراسي هههههههههههه اذا ضبطنا عدم التكرار هيك نجنب الصالة المشاكل
ابوخليل قام بنشر الأربعاء at 17:58 قام بنشر الأربعاء at 17:58 !! 😌 لم توضح وجهة نظري هل هي صحيحة ام لا الآن انت اضفت معلومة جديدة وهي ان المدة ساعتين فقط ولكن المبرمج ينظر الى افق اوسع .. ماذا لو تم تمديد الفترة ، مثلا الزبون يريدها 3 ساعات ، وماذا لو تم حجز الساعتين كما ذكرت اعلاه في يومين بمعنى ان الحجز تم في الساعة الحادية عشر ليلا فالخروج سيكون في الساعة الواحدة غدا .. هنا كيف تتعامل مع معيار التاريخ؟ انا عندما اتصدى للاجابة .. لا بد ان اقتنع ان هذا الحل هو المناسب .. وأنه يغطي جميع الاحتمالات 1
تمت الإجابة kkhalifa1960 قام بنشر الأربعاء at 18:03 تمت الإجابة قام بنشر الأربعاء at 18:03 (معدل) 53 دقائق مضت, عبد اللطيف سلوم said: حبيب اخترت حجزين بنفس التاريخ ونفس الموعد وقبلهم تفضل استاذي فقط لغيت شرط الاسم من الكود .وطريقتي تتماشى مع كلام استاذي أبو خليل . WEEDING HALLS (113).rar تم تعديل الأربعاء at 18:04 بواسطه kkhalifa1960 2
Foksh قام بنشر الأربعاء at 18:46 قام بنشر الأربعاء at 18:46 بعد بحثي عن هذا الملف من مشروع إدارة صالة أفراح في العاصمة عمان ، جرب هذا التعديل :- Afra7.accdb 3
ابوخليل قام بنشر الأربعاء at 19:03 قام بنشر الأربعاء at 19:03 👍 Format(DateAdd("d", -1, Me.DATE_PARTY) 2
عبد اللطيف سلوم قام بنشر الخميس at 02:45 الكاتب قام بنشر الخميس at 02:45 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) اشكرك على المرور معلمنا الرائع
أبوبسمله قام بنشر الخميس at 19:53 قام بنشر الخميس at 19:53 السلام عليكم مشاركه مع اخوتى واساتذتى اعجبتنى طريقه اخى الفاضل @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 1 1
عبد اللطيف سلوم قام بنشر بالامس في 02:04 الكاتب قام بنشر بالامس في 02:04 في 19/2/2025 at 20:58, ابوخليل said: !! 😌 لم توضح وجهة نظري هل هي صحيحة ام لا الآن انت اضفت معلومة جديدة وهي ان المدة ساعتين فقط ولكن المبرمج ينظر الى افق اوسع .. ماذا لو تم تمديد الفترة ، مثلا الزبون يريدها 3 ساعات ، وماذا لو تم حجز الساعتين كما ذكرت اعلاه في يومين بمعنى ان الحجز تم في الساعة الحادية عشر ليلا فالخروج سيكون في الساعة الواحدة غدا .. هنا كيف تتعامل مع معيار التاريخ؟ انا عندما اتصدى للاجابة .. لا بد ان اقتنع ان هذا الحل هو المناسب .. وأنه يغطي جميع الاحتمالات نعم صحيح معلم نظام الحجز المتعارف عليه في الاردن ساعتين اذا كانت الحفلة طويلة يتم حجز 4 ساعات وليس 3 وقد يحدث ان يكون الحجز الساعة 11 ليلا وينتهي الساعة 1 صباحا من اليوم التالي علما اني قبل كورونا عام 2020 صممت برنامج حجوزات صغير وربطه مع كالندر جوجل وكان شغال تمام زمان كان هناك خيار اظهار الكالندر في نموذج اكسس اتوقع تم الغائها في الاصدارات الحديثة بعد هذه المعطيات هل تم حل الموضوع ام هناك رأي اخر ؟؟ منكم نستفيد اخي الكريم
ابوخليل قام بنشر منذ 5 ساعات قام بنشر منذ 5 ساعات الم تصل الى حل مقنع من ردود الإخوة الفضلاء أعلاه ؟ أم انك تريد فكرة اكثر ضبطا وتحكما ؟ المسألة تعتمد على وقتين اثنين وأوقات محصورة بينهما _وهنا مكمن الصعوبة_ الا باستخدام جدول او جداول خدمية فأنا افكر في مثل هذا العمل وما يشبهه ان لا يحتاج المستخدم الى رسائل تحذيرية .. وليس مضطرا للاختيار والتجربة وانما لا يظهر امامه الا الأوقات المتاحة فقط خلال اليوم المحدد القادم ان راقت لك الفكرة .. خبرني حتى احاول تنفيذها لعلي انجح في ذلك ،، ولدي استفسار .. اي الاوقات الاكثر حجزا .. المساء ام الصباح .. ، واذا الحجز غالبا محصور بين ساعات محددة في الغالب لا يتعداها اتمنى تحددها من الوقت الى الوقت سؤالي اعلاه من اجل الأولوية في العرض امام المستخدم وسؤال خطر على بالي الآن : الحجز كما ذكرت ساعتين .. ساعتين ، اذا فرضنا انه تم الحجز الساعة الخامسة وسينتهي الساعة السابعة .. متى سيبدأ الحجز التالي هل يبدأ من الساعة السابعة اي من وقت نهاية الحجز الذي قبله مباشرة ؟ 1
Foksh قام بنشر منذ 3 ساعات قام بنشر منذ 3 ساعات منذ ساعه, ابوخليل said: وسؤال خطر على بالي الآن : الحجز كما ذكرت ساعتين .. ساعتين ، اذا فرضنا انه تم الحجز الساعة الخامسة وسينتهي الساعة السابعة .. متى سيبدأ الحجز التالي هل يبدأ من الساعة السابعة اي من وقت نهاية الحجز الذي قبله مباشرة ؟ هذه الفكرة قمت بضبطها في مثالي المرفق الأخير ، لكنها يبدو أنها لم تكن مطلباً من مطلب أخونا @عبد اللطيف سلوم 😅 .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.