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

شكرا جزيلا

بارك الله فيكم

استاذنا العزيز @ابوخليل

في ٢٧‏/٧‏/٢٠٢٠ at 11:22, ابوخليل said:

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

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

تحياتي لكل الاساتذة الكرام

السلام عليكم

مشاركة مغ الاساتذة الاعزاء

انظر للرابط اتمنى ان يكون المطلوب

السلام عليكم

استاذ @د.كاف يار

ارجو التعديل على الملف  المرفق ووضع  كود  استدعاء  زر  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