متقاعد

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

بعض اجرارات الماكروا تحتاج الى اظهارها ومنها اجراء setvalue شاهد الصورة المرفقة

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

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

في الاصدارات من 2010 اضيف في الجدول حقل من نوع بيانات محسوب هذا النوع من الحقول يمكن استخدامة لاجراء العمليات الحسابية ويمكن استخدامة مع بعض الدوال من خلال منشئ التعبير مثلا ممكن نضع شرط باستخدام iif او نعيد قيمة بناء على فهرس الاختيارات مثال Choose([aa];"مكة";"جدة";"المدينة") او اعادة الشهر او اليوم او السنه او تجميع لعدة حقول نصية مثلا الاسم اسم الاب الجد اللقب ... الخ وفي جميع الحالات لابد ان تبنى هذة العمليات على حقل او حقول اخرى في الجدول. مثلا لو كتبنا التعبير في حقل من نوع محسوب في الجدول لاعادة العام الحالي ⬇️ Year(Date()) لن يمكننا ذلك وسوف نحصل على خطأ بينما يمكننا كتابتها في النموذج والاستعلام لذا فعند رغبتنا في ذلك لحقل في الجدول لابد ان نشير الى حقل تاريخ موجود في الجدول Year([s_date]) في جميع الاحوال لا احبذ استخدام هذا النوع من الحقول في الجداول فمن رأيي ان مكانها النموذج او الاستعلام تحياتي

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

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

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

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

هذه التعديلات سبق عملها في الموضوع السابق ⬇️ وتم ارسال الرابط لك هل انزلت الملف من الرابط ام ان التعديل لم يكن المطلوب ؟ تحياتي

في نموذج kal اعمل زر امر ضع فيه الامر التالي DoCmd.Close acForm, Me.Name DoCmd.OpenForm "jop"

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

اعتقد توجد مشكلة صغيرة في السطر 3 والسطر الاخير في السطر الثالث الامر Me.Requery لو اردنا اضافة اقساط للموظف رقم 5 او اي موظف اخر يحدث النموذج ويعيدنا للسجل الاول وبالتالي تضاف الاقساط للموظف الاول بدل بالامر الى Me.f2.Requery ليكون التحديث للنموذج الفرعي فقط

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

يا هلا اخي احمد الحقيقة اني اشرت في مشاركتي السابقة الى تسجيل خروج من الموقع وبالتالي توقفي عن المشاركة والتفاعل على كل حال وكمشاركة اخيرة استثنائية لا نحتاج الى استعلام اضافي الاستعلام موجود مسبقا فقط نربطة بجدول التقييم ثم نضع حقل القيمة في تقرير الاهداف المنتهية وفي هذه الطريقة لن يظهر معنا الا الاهداف المنتهية والتي تحتوي على نتيجة التقييم ملاحظة صغير حسب قواعد المشاركة سؤال واحد في الموضوع وهذا الطلب الجديد مختلف عن الطلب الاصلي مع ذلك تم عمل المطلوب وحتى لو اغضب ذلك المشرفين 😎 الملف في الرابط https://www.4shared.com/s/fZ_nCVXkEiq

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

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

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

رابط الملف بدون ضغط https://www.4shared.com/s/fiDJvXuToiq

معلومة جميلة وقيمة تحياتي

السبب تغيير اسماء الحقول في الاستعلام جرب الان https://mrkzgulfup.com/download789169.html

سؤال استاذ الفاضل احمد ماهي فائدة استخدام حلقتين تكرارية For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then اليست واحدة تكفي لتنفيذ المطلوب وخصوصا اننا نتعامل مع سجل واحد كل مره واذا اردنا استخدام for next بدلا من for each For x = 0 To rst.Fields.Count - 1 If IsNull(rst.Fields(x)) Then وايضا لماذا الانتقال للسجل التالي rst.MoveNext Next a كما يمكن الاستغناء عن الحلقة التكرارية بالكامل باضافة استعلام واحد نضع فيه حقل محسوب وسوف يؤدي المطلوب ولكن التكرارية هي الحل الامثل احسنت اخي ولكل طريقته وطالما تحدثنا عن الاختصار ممكن نختصر الكود كاملا الى سبعة او ثمانية اسطر فقط بتحويل الحلقة التكرارية الى وحدة نمطية ثم تقوم بتعويض الحقول الفارغة والمكتمل الى 0 و 1 وايضا ممكن تنفيذ كل المطلوب بدون استخدام vba اي عن طريق استعلام اضافي واستخدام المايكروا وفي هذه الطريقة لن نستطيع اظهار اسماء الحقول وانما فقط رسالة بوجود حقول فارغة ---------------------- واخيرا مازلت عند رأيي السابق طالما تعاملنا مع مصدر السجلات فنكمل الاضافة عن طريقه ولا داعي لاستعلام الالحاق هذة وجهة نظري وهي غير ملزمة لاحد تحياتي للجميع

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

احسنت اخي قدور وشكرا على ردك المفصل في ردي الذي تداركنه ولم ارسله اخذت الامر من وجهة نظر برمجية بحته فانا لست محاسب وخلال 40 عام في الوظيفة لم اعمل في مجال المحاسبة ثم استدركت بعد ردك السابق رقم 6 في تسلسل الموضوع واشرت الى ⬇️ قالت العرب : اهل مكة ادرى بشعابها وانتم المحاسبين ادرى بعملكم احيانا تتطلب طبيعة العمل لزوم ما لا يلزم تحياتي

كتبت رد مطول ونصيحة بتجنب عمليات الالجاق كلما امكننا ذلك وان قاعدة البيانات المثالية لا تتكرر فيها البيانات ويمكن تحقيق كل ذلك بواسطة الاستعلامات وربط الاستعلامات بشكل صحيح يغني عن كثير من عمليات الالحاق ولكن تراجعت بعد مشاهدت ردك استاذنا الفاضل عبد الله ⬇️ والحمد لله انني تداركت الامر في الوقت المناسب قالت العرب : قَطَعَت جَهِيزَةُ قَولَ كُلّ خَطِيبِ تحياتي