محمد أبوعبدالله

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

بعد اذن استاذنا الفاضل أبو خليل انسخ الملف الى المسار التالي C:\WINDOWS\SYSWOW64 ثم افتح Command كمدير للنظام ( Run as administrator) ثم اضف الامر التالي regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX تحياتي

مرفق مثال ادراج صورة.rar تحياتي

الحمد لله

وعليكم السلام ورحمة الله وبركاته لاخفاء الرسالة ضع DoCmd.SetWarnings False لاظهار الرسالة ضع DoCmd.SetWarnings True تحياتي

وعليكم السلام ورحمة الله وبركاته الطريقة التي اعمل بها هي طريقة اولاً يصرف أولاً وهي طريقة ناجحة بنسبة 100% وتم اقتباسها من موقع access-programmers واليك المثال المرفق بالموقع FifoStock.zip ولفهم المثال : اولا شراء كمية من صنف معين التاريخ = 01/11/2018 الكمية = 100 * السعر = 10 الاجمالي = 1000 التاريخ = 03/11/2018 الكمية = 100 * السعر = 15 الاجمالي = 1500 التاريخ = 05/11/2018 الكمية = 100 * السعر = 20 الاجمالي = 2000 ثانيا بيع كمية من نفس الصنف التاريخ = 07/11/2018 الكمية = 150 * السعر = 20 الاجمالي = 3000 يتم حساب الربح الحقيقي وقيمة المخزون كالتالي ( 100 * 10 = 1000 ) + ( 50 * 15 = 750 ) الاجمالي = 1750 هذا هو السعر الحقيقي للصنف ثم نأتي لقيمة المخزون ( 50 * 15 = 750 ) + ( 100 * 20 = 2000 ) الاجمالي = 2750 اذن قيمة المشتريات = 4500 قيمة المبيعات = 3000 قيمة المخزون = 2750 الربح = ( قيمة المبيعات + قيمة المخزون ) - قيمة المشتريات الربح = (3000 + 2750 ) - 4500 الربح = 1250 ================================= حتى الآن انا اعمل بشكل جيد وكل شىء تمام في حساب الارباح والحمد لله المشكلة في قيمة المخزون اذا كان هناك مرتجع فهذه المشكلة للاسف لم اوفق فيها حتى الآن . تحياتي

السلام عليكم ورحمة الله وبركاته انظر مصدر السجلات للتقرير اولاً واستخدم الكود التالي لحقل ( المحصولون على معدل ) : =Count([moy_ara1]>=10) base1.rar تحياتي

الكود يعمل جيدا item_Sum: Sum(Nz([Qote_item])*Nz([item_prais])) انظر الاستعلام ( استعلام 1 ) PROGRMS_Super Market 0801102018.rar تحياتي

السلام عليكم ورحمة الله وبركاته اخي الكريم اولاً بالنسبة لجمع الوقت فالامر يختلف عن جمع عددين فيجب تحويل الساعات الى دقائق ثم جمعها ثم تحويلها الى ساعات ودقائق مثال لجمع الوقت لحقل ( مدة العمل ) =CLng(24*60*CDate([TimW])) تحياتي

السلام عليكم ورحمة الله وبركاته تفضل وحدة نمطية بسيطة للاخفاء والاظهار Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub تحياتي

استخدك دائماً دالة nz مثال item_Sum: Sum(nz([Qote_item])*nz([item_prais])) تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك الاستخدام كالتالي =sum(nz(rebName!Text1)) rebName = اسم التقرير Text1 = اسم الحقل المحسوب تحياتي

السلام عليكم ورحمة الله وبركاته برجاء مراجة المرفق والتطبيق كما هو موجود بحقل ( المعدل العام ) وحقل ( المحصولون على معدل ) base1.rar تحياتي

البرنامج يعمل بشكل ممتاز المشكلة انه لا توجد اسئلة ! ضع اسئلة اولاً وسترى النتيجة تحياتي

الكمبو.accdb تحياتي الكمبو.rar

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

السلام عليكم ورحمة الله وبركاته برجاء مراجعة المرفق الكمبو.rar تحياتي

السلام عليكم مرحبا اخي الكريم زر حفظ انت تسنخدمه لوظيفة اخرى يمكنك عرض الرسالة لحفظ التغيرات اة التراجع عنها في حدث قبل التحديث للنموذج كالتالي Private Sub Form_BeforeUpdate(Cancel As Integer) DoCmd.SetWarnings False If MsgBox(" هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then Me.Undo End If DoCmd.SetWarnings True End Sub تحياتي

السلام عليكم ورحمة الله وبركاته برجاء مراجعة المرفق Employee 02.rar تحياتي

السلام عليكم بالفعل يتم ذلك عند تسجيل طالب في قسم معين في نموذد f3 يتم عرضه في نموذج f4 عند تحديد القسم من القائمة المنسدلة ثم تحديد المادة من القائمة المنسدلة الثانية يظهر الطالب لاضافة درجاته

السلام عليكم جرب المرفق من فضلك تسجيل التلاميذ2.rar تحياتي

وعليكم السلام ورحمة الله وبركاته برجاء مراجعة المرفق تحياتي Data Najaf 2018 - Copy.rar

السلام عليكم من بعد اذن اخونا hazkael من افضل برامج التحزيم برنامج smart installer maker يوجد شروحات كثيرة في google وايضاً شروحات في youtube تحياتي

وعليكم السلام ورحمة الله وبركاته access runtime هو الحل الوحيد والافضل لتشغيل ملفات Access على الكمبيوتر لا يوجد عليه Office اساساً ويقوم access runtime بتشغيل access فقط بدون وضع التصميم فلا يمكن تعديل تصميم الجداول والاستعلامات والنماذج والتقارير على جهاز لا يحتوي على Access كاملاً ولكن بوجود access runtime يتم تشغيل الملف فقط . ويمكن البحث في جوجل حسب الاصدار الذي تحتاجه access runtime 2010 download https://www.microsoft.com/en-us/download/details.aspx?id=10910 access runtime 2013 download https://www.microsoft.com/en-us/download/details.aspx?id=39358 تحياتي