نجوم المشاركات

السلام عليكم هذا الموقع يساعدكم في كتابة الاكواد https://chat.deepseek.com/ شاهد هذا الفيديو اتمنى لكم الفائدة

ارفق للمهتمين نموذج للنسخ الاحتياطي :- 1- بجوار قاعدة البيانات أ - نسخة احتياطية بالتاريخ بفلدر ب- نسخة احتياطية مضغوطة بالتاريخ بفلدر ج - نسخة احتياطية مضغوطة بباسوورد بالتاريخ بفلدر 2- بمسار تختاره أ - نسخة احتياطية ب- نسخة احتياطية مضغوطة ج - نسخة احتياطية مضغوطة بباسوورد فاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها. اليكم المرفق . CopyDB.rar

أما بالنسبة للطلب نسخة مضغوطة .... ونسخة مضغوطة بباسوورد ..... سأنشرها بمشارك جديدة كهدية لينتفع بها الجميع .

شكرا جزيلا أستاذ @kkhalifa1960 مجهود رائع 🙂

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

هل تقصد هدا التوكيلات.docx ملف تصدير V3.xlsm

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

وعليكم السلام تم تعديل المعادلة في العمود F تعديل معادلة1.xlsm

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

مشاركة مع الاساتذة تفضل استاذ @gavan تصوري بمرفق كامل جربه ووافني بالرد . GavanDB.rar

السلام عليكم مشاركه مع اخوتى واساتذتى اعجبتنى طريقه اخى الفاضل @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

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

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

اتفضل 1.accdb