Ahmed_J

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

السلام عليكم اساتذتي الاعزاء تسلم ايدك استاذنا العزيز @ابوخليل كلوا تمام بارك الله فيك لدي طلب اخر لو سمحت وهو عمل حساب الخدمة الوظيفية عن طريق الاستعلام لفد وجدت وحدة نمطية لاحد الاساتذة في الموقع يتم استدعائها عن طريق الاستعلام وعملت منها وحدة نمطية منها لجمع الايام والثانية لجمع الاشهر والثالثة لجمع السنوات والرابعة تشمل الكل باليوم والشهر والسنة لكن واجهتني اخطاء بعملية الجمع والطرح وظهور ارقام بالسالب يوجد ملف مرفق ارجو التعديل علية لاهمية الموضوع تحياتي للجميع ' الوحدة النمطية الاصلية Function Work(SumDto, SumMto As Byte, SumYto As Integer) As String Dim dd, mm As Byte Dim yy As Integer If SumDto > 30 Then SumDto = SumDto Mod 30 SumMto = SumMto + 1 End If If SumMto > 12 Then SumMto = SumMto Mod 12 SumYto = SumYto + 1 End If dd = SumDto mm = SumMto yy = SumYto Work = dd & " يوم و" & mm & " شهر و" & yy & " سنة" End Function جمع مدد الخدمة بالنموذج.accdb

السلام عليكم اساتذتي الاعزاء لدي نموذج لاحد الاخوة في الموقع لحساب مدة الخدمة الوظيفية باليوم والشهر والسنة المطلوب تصحيح الكود لحساب الخدمة النهائية (الخدمة الحالية + الخدمة السابقة - قترة الانقطاع) = الخدمة النهائية (جمع المدد) مع العلم اريد ان يكون حساب ايام الشهر هي (30) يوم فقط ومازاد عن ذلك يضافة للاشهر التي هي (12) شهر ومازاد عن ذلك يضاف للسنين ولا يجب ان يكون هنالك رقم بالسالب مرفق صورة فيها خدمة موظف حقيقية تحياتي للجميع جمع الخدمة بالنموذج.accdb

شكرا جزيلا بارك الله فيكم

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

السلام عليكم مشاركة مغ الاساتذة الاعزاء انظر للرابط اتمنى ان يكون المطلوب

السلام عليكم استاذ @د.كاف يار ارجو التعديل على الملف المرفق ووضع كود استدعاء زر Back_up في زر انهاء التطبيق (يعني عمل نسخة قبل الخروج) Call Back_up_Click تحياتي test.rar

السلام عليكم استاذ @د.كاف يار انا واجهتني نقس المشكلة علما ان كود استدعاء الزر صحيح تحياتي

السلام عليكم استاذ @أ / محمد صالح بارك الله فيك وجعلها في ميزان حسناتك

السلام عليكم شكرا لكم اساتذتي الاعزاء @kha9009lid @Barna @kanory @Eng.Qassim @د.كاف يار بارك الله فيكم زجعلها في ميزان حسناتكم تحياتي

السلام عليكم استاذ @kha9009lid بارك الله فيك على الجهود المبذولة بقى طلب واحد فقط لو كان الرقم المدخل غير موجود بالجدول ارجوا اظهار رسالة بذلك (السجل غير موجود) مثل الرقم (8 او 10) والغاء الطباعة

السلام عليكم استاذ @Barna واستاذ @kanory شكرا لكم طريقة مربع الاختيار انا اعرفها وهي لاتنفعي في عملي الاصلي بسبب نفاذ موارد الجهاز (لااستطيع اضافة اي حقل للجدول) الطريقة الثانية هي تنفعني لكن اريد الطباعة تكون مثلا (1,4,7 ) اي انا اختار رقم السجل وليس (من - الى) اتمنى ان تصل فكرتي وشكرا لكم احبتي الاعزاء

السلام عليكم استاذ @Barna هذا مثال من ملف البيانات اريد الطباعة بزر من خلال النموذج (يعني طباعة مجموعة اسماء محددة او تسلسلات محددة) test (1).accdb

شكرا لك استاذ @Hawiii بارك اله فيك

السلام عليكم استاذ @Hawiii هل طريقة استدعاها من الوحدة النمطية صحيحة بهذا الشكل Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025) وشكرا لك

السلام عليكم اساتذتي الاعزاء لدي قاعدة بيانات الموظفين فيها حقل التسلسل واسم الموظف وراتبه وجميع بياناته كيف يمكنني طباعة عدد محدد من السجلات (لاكثر من موظف واحد) في تفرير الاكسس انا اقوم باختيارها مثلا (عن طريق الاسم الكامل) مثل احمد ومحمد او عن طريق (التسلسل) 1,2,3 وهكذا يعني طباعة مجموعة اسماء محددة او تسلسلات محددة وشكرا لكم

شكرا لك استاذ @husamwahab الكود ضبط معي بالنسبة للارقام التي معي في الجدول الرجاء ملاحظة الكود واصبح التالي لو كان فيه خطا Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5)) تحياتي لك

شكرا لك استاذي العزيز لكني جربت دالة round لكن النتيجة غير مطابفة معي

استاذي العزيز @Hawiii هو Taskbar شريط المهام

السلام عليكم استاذ @Eng.Qassim لكن لو كان الرقم بالحقل ( 30,200=n28) * (0.0025) =(76) وهذا خطا بالنسبة لي المفروض يبقى (75,5) وشكرا لك استاي العزيز

السلام عليكم اساتذتي الاعزاء لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (0.0025) لكن اغلب النتائج تظهر بالكسور مثلا الحقل ( 30,100=n28) * (0.0025) =(75,25) Forms![form1_1]![n28] = Me![MAG] * 0.0025 المطلوب : اذا كانت النتيجة فيها كسر = 75,5 فهي مقبولة اذا كانت النتيجة للكسر اكبر من 5 تتحول الى 1 قيصبح المجموع (76) اذا كانت النتيجة للكسر اقل من 5 تتحول الى 0 قيصبح المجموع (75) علما انني جربت الدوال التالية (Int,Round,Fix) ولم تنفع اعتقد يمكن عملها بدالة iff تحياتي للجميع

شكرا لك استاذ @Hawiii على اهتمامك لكن انظر الى اصل الموضوع تحياتي

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

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

السلام عليكم استاذ @محمد أبوعبدالله هذا هو الملف الاصلي الكود لم يفعل شيء حول دبل كلك تحياتي data.accdb