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

شوف الطريقة بهذا الشرح - فيديو 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 الله يجزيكم الخير حليت لي مشكلة كبيرة

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

السلام عليكم الأخوة المبتدئين في برمجة الاكسس اضع بين ايديكم فيديو شرح لطرقة عمل تصفية وفلتر من خلال التقرير بدون اكواد ولا ازرار ولا شيء فقط من خلال التقرير شاهدوا هذا الفيديو لطفا يمنع دخول الخبراء هههههههه report.rar

كود رائع عاشت ايدك

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

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

حبيب الامور تمام لكن الدخول للاكواد عليها رقم سري ؟؟ ايش هو ؟