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

السلام عليكم هذا الموقع يساعدكم في كتابة الاكواد 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 % اشكرك على المرور معلمنا الرائع