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

نوعه ورقة بيانات

السلام عليكم هل هناك خيار في الاكسس يسمح لنا باضافة صورة على النموذج الفرعي وتظهر كخلفيه للنموذج بدل الالوان ؟ أم انه لا يمكن تحقيق ذلك ** مرفق مثال للتطبيق عليه OFFICNA SUBFORM.accdb

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

حبيب نزل طلبك في منشور منفصل وستجد الرد الشافي والوافي من الخبراء

تمام معلم عاشت ايدك تم تالتجربة يتم الغاء الوقت لكن القيد يبقى في الجدول وبجانبه اشارة انه ملغي فكرة ممتازة

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

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

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

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

انا قصدت يرجع اذا اردنا حجز ليوم اخر لقد اجبت على تساؤلاتي اما لو ادخلت تاريخ يوم لم يحجز فيه فستظهر جميع الساعات هذا مربط الفرس ** السؤال الان -- اتحملني يا غالي ماذا لم تم الغاء الحفلة من قبل العريس قبل وقتها هل اتمكن من اعطاء الوقت نفسه لشخص اخر ؟ جهودكم مشكورة معلمنا @ابوخليل جعله الله في ميزان اعمالكم

عاشت ايدك معلمنا @ابوخليل هذا العمل رائع عندي سؤال يا ريت تشرح لنا كيف اختفى الوقت المحجوز من جدول اختيار الوقت وهل سيرجع تلقائيا اذا انتهت الحفلة ؟

تفضل\ نسق النموذج على كيفك leb.accdb بدون اكواد اعمل نموذج منقسم يقوم بالمهمة

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

السلام عليكم هذا الموقع يساعدكم في كتابة الاكواد 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 صممت برنامج حجوزات صغير وربطه مع كالندر جوجل وكان شغال تمام زمان كان هناك خيار اظهار الكالندر في نموذج اكسس اتوقع تم الغائها في الاصدارات الحديثة بعد هذه المعطيات هل تم حل الموضوع ام هناك رأي اخر ؟؟ منكم نستفيد اخي الكريم