kha9009lid

اللهم اغفر لها و ارحمها و أدخلها فسيح جناتك إنا لله و إنا إليه راجعون

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

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

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

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

نعم اخي حسام تعطي النتيجة المطلوبة تحياتي وتقديري استاذ @husamwahab

الرقم الصحيح هو 77.085 في النموذج مع استخدامك لدالة التقريب Me.nesab = Round([asasy] * 0.05, 2) اعطاك الرقم مقرب لاعلى 77.09 في الاستعلام اعطاك الرقم مقرب الى اقل 77.8 يمكن الحصول في الاستعلام على الرقم مقرب للاعلى من خلال دالة التنسيق بدون الحاجة لدالة التقريب في الاستعلام تحديث الى ضع التالي Format([tbl_moratb]![asasy]*0.05;"Standard") او حل اكثر احترافية عن طريق وحدة نمطية من اعداد الاستاذ رمهان Function ramhan_round(xnumber, xrounded) xn = Format(xnumber, "0." & String(IIf(xrounded < 0, 0, xrounded), "0")) ramhan_round = Left(xn, Len(xn) + Int(Right(xn, 1) = ".")) End Function وللاستدعاء في الاستعلام ramhan_round([tbl_moratb]![asasy]*0.05;2) وفي النموذج لديك Me.nesab = ramhan_round([asasy] * 0.05, 2)

بعد اذن اخي الفاضل @محمد سلامة ممكن ذلك انظر المشاركة لاستاذنا العزيز @essam rabea

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

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

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

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

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

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

عند استخدام جهاز عربي انجليزي تظهر الرسالة التي اشار اليها الاخ بلال تحياتي وتقديري

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

ولحذف السجل المحدد قم بعملزر امر وفي حدث عند النقر ضع الامر التالي DoCmd.SetWarnings False DoCmd.RunSQL "DELETE [جدول الموظفين].*, [جدول الموظفين].CHK " & vbCrLf & _ "FROM [جدول الموظفين] " & vbCrLf & _ "WHERE ((([جدول الموظفين].CHK)=True));" DoCmd.SetWarnings True Me.Requery وتفسيرة قم بايقاف رسائل التحذير نفذ استعلام بالكود لحذف معلومات الموظف اذا كان زر الاختيار مفعل اعد رسائل التحذير اخير حدث النموذج حتى لاتظهر عبارة محذوف علمان الملف المرفق بالموضوع بصيغة الاصدار 2003 وليس 2010 تحياتي لك وللاستاذ الفاضل @rey360 مرفق الملف بصيغة 2007 الى 2019 za-Test1.accdb

في معايير الاستعلام للحقول الثلاث غير Formulaires الى forms

فيه فكرة لا اعلم اذا كانت تناسبك نجعل بداية اليوم اعتبار من السادسة صباحا مثلا وتنتهي في 5.59 صباحا انظر للموضوع فيه فكرة للاستاذ محمد ابو عبدالله وكذلك مشاركة للاستاذ سلمان الشهراني

بعد اذن الاستاذ محمد جرب المرفق كان لديك مشكله في استعلام1 ومشكله في استعلام2 طالما الالحاق للجدول يتم من خلال حقول النموذج يفترض حذف الجداول من الاستعلام ايضا مشكلة التكرار عند تسجيل الاقساط تم حلها باضافة اجراءت التأكد من ان الامر سبق تنفيذة الملف مرفق اقساط طلاب.accdb

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

شوف انا فهمي على قدي ولكن الى فهمته انك لديك تاريخ وترغب اضافة عدد معين من الايام ويعطيك التاريخ الخاص بالتسليم DateAdd("d";[em];[pp12012]) نستخدم دالة dateadd ولها ثلاث وسائط d ترمز لليوم em الحقل الموجود في النموذج الذي تحدد فيه الايام المطلوب اضافتها pp12012 الحقل الذي يحتوي على التاريخ الهجري الملف مرفق واعتذر اذا كان فهمي غير صحيح مثال(2).accdb

في طريقة بسيطة عن طريق دالة فورمات في الحقل المحسوب في الاستعلام Format(DSum("[cash]";"[tb1]";"[id] =1 ");"قياسي") والنتيجة تنسيق رقم قياسي.accdb

gen.accdb

اسهل طريقة بدون الحاجة الى اكواد او مربعات نص