نجوم المشاركات

الكود يعمل بشكل صحيح فبحسب الشرط اذا كان رقم الاداه لايساوي صفر (بدون تحديد ما اذا كان اكبر او اصغر من صفر) واسم الحقل هو Cridi او Elec فسيتم إرجاع قيمة التجميع لهذين الحقلين عبارة Else ستعني أنه إذا كان رقم الأداة يساوي صفر واسم الحقل هو Inkhirat او ErrVerment فسيتم إرجاع قيمة التجميع لهذين الحقلين اذا اردت ان يتم النعامل مع جميع الحقول بنفس الشروط قم بحذف عبارة Else وستنحل المشكلة تحياتي

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

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

ننتظر رد وملاحظات الاستاذ المهاجر

رابط الفيديو على الكلاود انقر هنا

احببت ان اشارككم الموضوع بعد دعوة اساذنا @ابوخليل لدعوتي للمشاركة ان عملت كمحاسب تكاليف على نظام اوراكل اهم النقاط الاساسية في محاسبة التكاليف 1-اعتماد معادلات تصنيع للمنتج بمعنى اخر كل كمية منتج جاهز او نصف مصنع بحاجة الى مواد كالتالي ثم عند البدة بالانتاج تختار معادلة تصنيع والنظام يقوم بحساب المواد اللازمة 2-اعتماد الية تكليف المنتج هل تكلفة المواد الداخلة في الانتاج تتم بناءا على الوارد اولا صادر اولا او متوسط السعر وافضل بشكل اسهل استخدام متوسط السعر 3-اعتماد المصاريف الغير متعلقة بالمنتج بشكل مباشر مثل الكهرباء ومياه رواتب الاداريين ..... واسهل طريق اعتماد معدل تحميل لكل ساعة عمل مصاريف معينة

استاذنا @ابوخليل دعنا نكمل رغم ان استاذ @المهاجر ابو معاذ لم يرد احتمال يكون منتظر نهاية العمل.... اعرض عليك المرفق التالي قبل تنفيذ ملاحظاتك ... ProductionOrderTest.rar

مشكور استاذ ربي يبارك فيك وفي اولادك وصحتك ويجعلك عملك صدقة جارية في ميزان حسناتك 🤲

عمل نظيف وجميل اعجبت جدا باختيارك لتسميات الجداول وحقولها .. طريقة علمية رائعة تدرس أولا ومهم جدا ان يكون صاحب المصلحة المستفيد ( ابو معاذ ) متابعا لكل ما يطرح وان يجري تجاربه ليكتشف الميزات والثغرات ويذكرنا بما يغيب عن البال المتابعة يا ابا معاذ ثم المتابعة .. متابعتك تشجع على الاستمرار وسألتني اخي خليفة هل تكمل ؟ هل طريقك الذي ستسير عليه مرسوم بدقة ؟ انت استاذنا وكبيرنا ومكسب لنا في هذا المنتدى .. ولكن دعنا نناقش المشروع كتحليل بيانات وتصور مسار . ربما النقاش يجلب فكرة تكون غائبة كما نعلم جميعا ان البرمجة هي تنفيذ فكرة محددة برمجيا .. لذا يجب ان تتبلور هذه الفكرة ويجب الاحاطة بجميع ابعادها . ما ستعمله اخي خليفة يفترض ان يكون صالحا لأي مصنع صغير او اي خط انتاج سواء كان ملابس او اواني او اثاث الخخخ .. واي منشأة من هذا النوع بحاجة الى : مخزن / خط انتاج وتصنيع / حسابات هذا باختصار فالمبيعات مثلا تدخل ضمنا دعنا نبدأ التصور والتحليل : انا اعمل على حاسبة المؤسسة كمدخل بيانات مسؤول المبيعات جاء الي وذكر ان عميلا في المكتب يريد 100 من البلوفر النسائي موديل 11 ويستفسر عن الامكانية ومعلوم ان البلوفر الواحد يتم تصنيعه من 9 خامات : قماش وخيوط وازرار واكسسوارا الخخخخ فاقوم بفتح البرنامج ثم فورم التصنيع وادخل معرف المنتج والكمية فقط المفترض اذا الخامات في المخزن تغطي يعطيني اشارة بذلك ويسمح لي بطباعة مذكرة الاخراج ، والا سوف ينبهني الا ان بعض الخامات لا تغطي ويسألني ايضا ان كنت اريد رؤية ا تقرير الموجودات والنواقص في هذه اللحظة .. العميل .. بين خيارين اما ان يصبر حتى يتم تغطية الخامة واما ان يتم تغيير الخامة الناقصة باخرى بديلة .. اذا قبل العميل التغيير فنحن بين خيارين اما ان نعدل على خامات المنتج موديل11 واما ان ننشء موديلا (منتجا) جديدا مثلا : بلوفر نسائي موديل 12 ادخال معرف المنتج ثم انتر هذا يعني ان البرنامج يستعرض جدولا مكونا من سجلات عديدة تشتمل على خامات يتم مقارنتها مع مثيلاتها في جدول المخزن والمقارنة تتم خامة خامة وما يقابلها من حيث وجود العدد الكافي للاخراج فلو كانت مثلا الازرار في منتج واحد 12 زرا فهذا يعني اننا بحاجة الى 1200 زر لتغطية عدد 100 منتج وهكذا لبقية الخامات دعنا نذهب الى قلب البرنامج ( الجداول) من اجل تحقيق العملية السابقة والاستعلام عن المنتج وتوفر خاماته يجب ان نبني الجداول على اساس هذه الفكرة : ( اقوم بفتح فورم التصنيع وادخل معرف المنتج والكمية فقط ) سأذكر الحقول الأساسية التي يجب ان تشتمل عليها الجداول .. وهذا لا يعني عدم اضافة حقول اخرى تخدم البرنامج وهي كثيرة - جدول الخامات : معرف الخامة/اسم الخامة/الوحدة /السعر - جدول المنتجات : معرف المنتج / اسم المنتج - جدول خامات المنتج : معرف المنتج/ معرف الخامة/ الكمية . ( يرتبط بعلاقة مع جدول المنتجات اطراف برأس ) وفيه يتم ادراج خامات كل منتج اللازمة للتصنيع هذه الجداول اعلاه هي عبارة عن جداول خدمية انا اعتبرها شبه ميتة .. هكذا اراها .. لأنه لا يتم عليها عمليات يومية اوشبه يوميه .. بل على فترات قد تكون متباعدة جداول الحركة في مشاريع المبيعات دوما اعتمد جدولا واحدا لرصد تفاصيل المشتريات والمبيعات اما هنا فالامر مختلف : - جدول راس الحركة - جدول حركة المخزن : لا يختلف عن جداول المخازن الأخرى ويشمل الداخل والخارج - جدول التفاصيل : المبيعات والمصروفات في جدول المخزن لا يهم كثيرا سعر الخامة الافرادي ما دامه موجود في جدول الخامات المهم السعر الاجمالي والعدد سعر الخامة في جدول الخامات يتم تحديثه تزامنا مع كل عملية شراء .. ولأن اسعار الشراء تختلف من فترة لأخرى .. يتم جمع الكمية الجديدة مع المتبقي من الكمية السابقة وبعملية حسابية بسيطة يخرج متوسط سعر الخامة الافرادي الجديد لا اعلم ان كان عرضي هذا مفهوم ومفيد .. ومع هذا هو قابل للنقاش والنقد

استاذنا @ابوخليل من وجهة نظري افترضنا انتاج بلوفر ... فعملت كتالوج به المكونات وخلافه .............. لانتاجه هذه هي الجداول ونماذج انتاجها. هل اكمل.... . ProductionOrderCreateTables.rar

نعم ... مع زيادة فضل لعملك حيث ان استعلامك اخف

هههههه نفس المبدأ تقريباً ، ولكن هنا عند التحميل يفرض القيمة دائماً وهي أسلم وأأمن .. المهم اطلاق سراحه بدون قيود 😅

صحيح .. تسلم كل مشكلة ولها حل .. المهم الفكرة تتم بشكل محكم وضعت هذا السطر عند تحميل النموذج الفرعي .. يعني اطلقنا سراحه حتى اشعار آخر ههههههه @Foksh ما رأيك الآن WIL7.rar

آمين يا رب العالمين .. وإياكم معلمي الفاضل .. وحيث أن الفكرة ينقصها شيء واحد ، وهو عند تحميل البيانات ستجد فقط السجل الأول هو من يعرض البلدية في الكومبوبوكس ( داخل النموذج الفرعي الثاني ) .. وهنا أعتقد لأن مصدره ( الكومبوبوكس الخاص بالبلدية ) يحتوي شرط للفلترة ولزوم حذف الشرط يظهر لنا القيم الحقيقية من مصدرها لكل سجل . جرب الفرق ، بما أننا نقوم بتعيين مصدر القيم للكومبوبوكس عند تحديث اسم الولاية ( صحيح ؟؟ )

انار الله دربك فشكرا لك الجملة التي تفضلت بها هي عين الصواب تم تعديل الجملة ...... والتجربة اكثر من رائعة 100% WIL6.rar

مع اني لست من مناصري استخدام الاكسس خارج اطار قواعد البيانات ولكن الإبداع الذي اراه في هذا العمل يستحق الإعجاب والتقدير فعلاً الأخت @hanan_ms مبدعة وتستحق ان تكون ضمن خبراء الموقع لانها دائما تثبت أن بالإمكان استخدام الاكسس لوظائف اخرى الى جانب قواعد البيانات وعندما أرى مثل هذا التمكن في البرمجة كما في هذا الموضوع او مواضيع الاخوة @Foksh و @jjafferr و @Moosak و @ابوخليل وبقية الاخوة الذين لايسع المجال هنا لذكرهم فلسان حالي كما يقول المثل (كلما قلنا عساها تنجلي .. قالت الايام هذا مبتداها 🫣) وان طريق التعلم مازال طويلاً شكرا لمبدعي المنتدى لكل ماتقدموه تحياتي

في الكومبوبوكس "Wil_Miled" قمت كتجربة بتغيير الحدث بعد التحديث من :- Me.Com_Miled.Requery ليصبح في النموذج الفرعي F2_Sub كالتالي ( كتجربة ) :- Private Sub Wil_Miled_AfterUpdate() If Not IsNull(Me.Wil_Miled) Then Me.Com_Miled.RowSource = _ "SELECT TblWsub.ID, TblWsub.N_C, TblWsub.Code_W " & _ "FROM TblWsub " & _ "WHERE TblWsub.Code_W = " & Me.Wil_Miled & " " & _ "ORDER BY TblWsub.N_C;" End If End Sub وكانت النتيجة كالتالي :- إلا أنني غير راضٍ عن الفكرة 😢 . رغم أن أحد التقويض في الحلول هو أن النماذج الفرعية = نماذج مستمرة !!!!

بما أن أفكار معلمي أبو خليل لا تنتهي ( مشكوراً على جهوده التي نتعلم منها ) . وددت المشاركة على الهامش في ملف المشاركة الأصلية كالتالي .. في مربع النص "مكان الميلاد" الحدث نفسه عند الخروج ( كما هي رغبة أخي طاهر ) :- Private Sub مكان_الميلاد_Exit(Cancel As Integer) Dim sourceInfo As String sourceInfo = Me.Name & "|" & Me.Parent.Name DoCmd.OpenForm "C1", , , , , , sourceInfo End Sub طبعاً هذا الكود سيمرر اسم النموذج الفرعي واسم النموذج الرئيسي مفصولين بإشارة "|" إلى النموذج "C1" الآن في النموذج "C1" قمت بحجز المتغيرين والحدث التالي عند تحميل النموذج :- Private sourceSubform As String Private sourceMainForm As String Private Sub Form_Load() If Not IsNull(Me.OpenArgs) Then Dim parts() As String parts = Split(Me.OpenArgs, "|") If UBound(parts) = 1 Then sourceSubform = parts(0) sourceMainForm = parts(1) End If End If End Sub وفي الكومبوبوكس Com_Miled ، قمت بتحديث الكود ليصبح :- Private Sub Com_Miled_AfterUpdate() If sourceSubform <> "" And sourceMainForm <> "" Then With Forms(sourceMainForm).Controls(sourceSubform).Form .Com_Miled = Me.Com_Miled .Wil_Miled = Me.Wil_Miled End With End If DoCmd.Close acForm, Me.Name End Sub وبالتالي النتيجة خرجت معي بهذا الشكل :- ملاحظة :- لم أقم بالإطلاع على أي ملف مرفق تمت مشاركته .. WIL.zip

وعليكم السلام ورحمة الله وبركاته عمي جعفر @jjafferr 🙂 شكرا لك على الإطلالة اللي تبهج النفوس 🙂🌹 رديت على سؤال عمنا أبو خليل هنا 😊👇 فعلا وهذي هي طريقة الاستخدام اللي ذكرتها في الشرح .. وفعلا أنا مستخدمنها وضايفنها كجزء من برنامج متابعة المهام الخاص بي في جهة العمل 🙂 : والأفكار في تطوير هذا المشروع كثيييييييييييييرة ما شاء الله

وعليكم السلام ورحمة الله راجع الملف المرفق لعل فيه ما تريد Example.xlsm

جميل ان يتم بناء المشروع جماعيا خاصة مع تواجد اخونا محب العقيدة بحكم عمله وممارسته لمثل هذه المشاريع .. واننا سنأخذ منه الزبدة الخالصة لأبعاد واحتياجات المشروع نحن الآن ننتظر ما يثمر عنه عمل اخي خليفة : مع اني مع عملية التدرج وهو : الاكتفاء بداية بالأساسات ( الجداول) وفحصها وتمحيصها فهي لب المشروع

احببت انه اعجبك ❤️ استاذ\ @Kamal_AlTmas ❤️🌹 :جرب التحديث 1- اضافة تحديد نطاق الجلسات السابقة لفتح وعرض كل ملفات 2- اضافة طقم ساعات متحركة 00:00:00 تستطيع نسخ ولصق مباشر الى مشروعك 3- استكملة بعض مع التحسين تابع الفيديو للتوضيح المرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/jybp6o8xhe3si7t/Control_fILE_Disain_Ms_V_103.rar/file

لحضرتكم بعض الارقام للعمل لوحه المفاتيح مفاتيح الأسهم KeyCode = 37 ' السهم لليسار ← KeyCode = 38 ' السهم للأعلى ↑ KeyCode = 39 ' السهم لليمين → KeyCode = 40 ' السهم للأسفل ↓ مفاتيح الوظائف KeyCode = 112 ' F1 KeyCode = 113 ' F2 KeyCode = 114 ' F3 KeyCode = 115 ' F4 KeyCode = 116 ' F5 KeyCode = 117 ' F6 KeyCode = 118 ' F7 KeyCode = 119 ' F8 KeyCode = 120 ' F9 KeyCode = 121 ' F10 KeyCode = 122 ' F11 KeyCode = 123 ' F12 مفاتيح التحكم KeyCode = 27 ' ESC KeyCode = 13 ' Enter KeyCode = 32 ' Space KeyCode = 9 ' Tab KeyCode = 8 ' Backspace KeyCode = 46 ' Delete KeyCode = 36 ' Home KeyCode = 35 ' End KeyCode = 33 ' Page Up KeyCode = 34 ' Page Down KeyCode = 45 ' Insert مفاتيح الأرقام KeyCode = 48 ' 0 KeyCode = 49 ' 1 KeyCode = 50 ' 2 KeyCode = 51 ' 3 KeyCode = 52 ' 4 KeyCode = 53 ' 5 KeyCode = 54 ' 6 KeyCode = 55 ' 7 KeyCode = 56 ' 8 KeyCode = 57 ' 9

الاستاذ الفاضل خبور خير (ابوعلي) هدايك جميلة واعمالك متقنة تسلم يدك على هذا العمل المميز ابواحمد