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

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

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

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

انا استخدم اوفيس 365 لا يوجد فيها خيار للوصول الى المكتبات اين اجدها ؟؟ وجدتها

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

اخي الكريم يا ريت تعطينا معها خيارات نسخة مضغوطة و نسخة مضغوطة مع باسوورد هذا ما كنا نبحث عنه ويغنينا عن جميع انواع الباك اب

شوف الطريقة بهذا الشرح - فيديو WhatsApp Video 2025-02-22 at 8.40.16 AM.rar

اخوي قبل ما تفتح البرنامج اكبس كليك يمين واختار خصائص انزل اخر ىاشي تجد ان المحتوى محظور ضع صح بجانب فك الحظر واكبس اوكي ارج عشغل البرنامج يشتغل معك تمام

تفضل اخي الكود شغال تمام المديول Sub ChangeAMtoPM() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim newTime As Date ' Set the database and recordset Set db = CurrentDb strSQL = "SELECT TIMEER FROM TIMERR WHERE TIMEER IS NOT NULL" Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) ' Loop through the records Do While Not rs.EOF ' Check if the time is in the AM If Format(rs!timeer, "hh:mm:ss AM/PM") Like "*AM*" Then ' Add 12 hours to change AM to PM newTime = DateAdd("h", 12, rs!timeer) ' Update the record rs.Edit rs!timeer = newTime rs.Update End If ' Move to the next record rs.MoveNext Loop ' Close the recordset and database rs.Close Set rs = Nothing Set db = Nothing MsgBox "AM times have been changed to PM." End Sub time.accdb بعد ما تكبس على زر تغيير الوقت اغلق النموذج ثم افتحه لانه التغيير يتم في الجدول وليس في النموذج

Sub ChangeTimeToPM() Dim originalTime As Date Dim newTime As Date ' Example time in AM originalTime = "10:30:00 AM" ' Add 12 hours to change AM to PM newTime = DateAdd("h", 12, originalTime) ' Display the new time in the Immediate Window (Ctrl + G to view) Debug.Print "Original Time: " & originalTime Debug.Print "New Time (PM): " & newTime End Sub جرب ووافيني بالنتيجة

هذا البرنامج وصلني بالأمس من احد الاصدقاء من دولة العراق الشقيق وهو مفتوح المصدر ومقدم هدية الرقم السري للدخول الى الاكواد 12345 معلومات المبرمج موجوده على الشاشة الرئيسية حفاظا على حقوقه في التصميم اتمنى لكم الفائدة حجم البرنامج كبير لم اتمكن من رفعه حتى وهو مضغوط سأرفعه على جوجل درايف https://drive.google.com/file/d/1gUC2Q6jMxPsoHXzcCAPq0hPXLKhsGvjo/view?usp=sharing

نعم صحيح معلم نظام الحجز المتعارف عليه في الاردن ساعتين اذا كانت الحفلة طويلة يتم حجز 4 ساعات وليس 3 وقد يحدث ان يكون الحجز الساعة 11 ليلا وينتهي الساعة 1 صباحا من اليوم التالي علما اني قبل كورونا عام 2020 صممت برنامج حجوزات صغير وربطه مع كالندر جوجل وكان شغال تمام زمان كان هناك خيار اظهار الكالندر في نموذج اكسس اتوقع تم الغائها في الاصدارات الحديثة بعد هذه المعطيات هل تم حل الموضوع ام هناك رأي اخر ؟؟ منكم نستفيد اخي الكريم

وانا عندي نفس الاصدار وما اشتغلت علما اني لا افضل استخدم الباك اب اصلا انا اعمل نسخ ولصق لقاعدة البيانات على دارف اخر او على فلاشة

اخونا الغالي @Foksh انا جربتها عندي ما فتحت لي اختيار بالمكان وأيضا لا تظهر رسالة تم النسخ بنجاح هي تعمل نسخة احتياطية بنفس مسار البرنامج مع تغيير الاسم دبرها معلم

عاشت ايدك شغال 100% عاشت ايدك يا غالي شغال 100 % اشكرك على المرور معلمنا الرائع

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

حبيب اخترت حجزين بنفس التاريخ ونفس الموعد وقبلهم لاحظ الصورة المرفقة هذه القاعدة اللي طبقت عليها WEEDING HALLS (112).rar انا بعرف اني غلبتك

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

الله يصبحكم بأنوار النبي جربت الان -- ظهر عندي هيك وعند الدخول على المشكلة ظهرت هيك انا استخدم اوفيس 365 مدفوع نظام 64 بت

السلام عليكم ورحمة الله وبركاته مرفق صورة وقاعدة البيانات للتطبيق عليها حجز حفلة حسب التاريخ والوقت لاحظوا الحجز الثالث باسم HASSAN يتعارض مع الحجز الاول المطلوب -- يمنع ادخل حجز فيه تعارض بالوقت لبدء الحفلة حتى نهايتها مع رسالة تخبرنا ان هناك حجز يتعارض مع هذا التوقيت قاعدة البيانات WEEDING HALLS.accdb اتمنى منكم المساعدة وجزاكم الله خيرا

اشكركم تم حل الموضوع وأعتذر عن انشغالي بالتأخر بالرد

جربتها دون جدوى اشكرك يا غالي جربت UNIQUE VALUES و UNIQUE RECORDS دون جدوى

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

السلام عليكم الأخوة المبتدئين في برمجة اكسس هذا اقتطته من برنامج عملاق لأحد الاخوة المبرمجين وهو مقدم هدية مجانية اضعه بين ايديكم للاستفادة منه من حيث التصميم ومن حيث الاكواد وهو نسخة مجانية وليس مخصص للبيع 1- تعبئة بيانات الشركة الخاصة بك 2- تعبئة بيانات الموردين 3- تعبئة سيندات الدفع جربوه ووافوني بالنتائج SANADAT 2025.accdb

الحبيب @jjafferr الله يجزيكم الخير حليت لي مشكلة كبيرة