جرب هذا الكود
Private Sub Form_Current()
If Not NewRecord Then
Me.date_to = Date
If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub
Me.da = CalcAgeD(Me.date_from, Me.date_to)
Me.mo = CalcAgeM(Me.date_from, Me.date_to)
Me.ye = CalcAgeY(Me.date_from, Me.date_to)
End If
End Sub
6666.rar
الاخ شفان اشكرك الشكر الجزيل على كرمك معي فدائماً تغرقني بكرمك
اخي العزيز هذا هو المطلوب وشكراً
اما الخطوة الاولى فاني نفذتها ولاكن تعثرت في الخطة الثانية لاني كتبتها بصورة خاطئة ومنكم نستفيد
مع فائق احترامي وتقديري
بسم الله الرحمان الرحيم
السلام عليكم
لاحظة يوم امس ان رتبتي تغيرة في المنتدى من خبير الى خبير معتمد لا ادري متى تم ترقية او من طرف من برغم من ان دخولي و مشاركاتي في المنتدى في الاونة الاخيرة قليل ليس لسبب انما لانشغالات الشخصيو و العمل
لذى وجب علي شكر ادارت المنتدى على هذته الترقية التي اعتبرها وسام وضع على صدري
و اقدم شكرى لكل اعضاء المنتدى من اعرفهم ومن لا اعرفهم لانهم هم سبب تعلمي و مازلت اتعلم منهم سواء بالدروس و الشرحات او بالمشاركات او حتى استفسارات الاعضاء اجل فأيضن نتعلم من اسألة الاعضاء
كل الشكر و التقدير لكل من هم في هذا المنتدى العضيم
تحياتي للجميع
السلام عليكم
بالنسبة للوقوف بالماوس فوق السطر المعلم بالاصفر عند قيمة المتغير و تحريك الماوس قليلا لتظهر قيمة المتغير كما يسمي بتلميحة Tool Tip ، فعلى حد علمي هذا بجب أن يظهر فى حال توقف الكود و ظهور السطر الأصفر ،و لا يمكنني تفسير لماذا لا يظهر معك.
بالنسبة للملف الذي ارفقته سابقا لم اجد فيه ما يضاف الي ما اضفته فى آخر مثال لي و الذي عمل معي بكفاءة و جربه أحد الأخوة و أشار بنجاح تجربته
حاليا ليس لدي جديد سوي المثال الذي اشرت اليه و لا ادري لماذا لم يعمل معكم ، و اذا وجدت جديد ساضيفه باذن الله
أستاذنا الحبيب "صقر المنتدى " الذي لا يزال يجود بوقته كما هم بقية الأخوة ليعلمنا طرق العمل بالنماذج "الفورم":
السلام عليكم ورحمة الله وبركاته
هدية متواضعة أقدمها بين يديكم تعبيراً عن مدى سعادتنا بكم وبدروسكم
عبارة عن ملف Word و PDF لآخر عمل قدمته منذ لحظات راجياً أن تنال إعجابكم
والسلام عليكم
هدية للصقر2.rar
هدية للصقر1.rar
للحصول علي كل من الرقم العشري و الرقم الصحيح فى خانة مستقلة
يمكن عمل ذلك بخطوتين
1- الحصول علي الرقم الصحيح
=+INT(C5)
2- الحصول علي ناتج القسمة عليه
=+MOD(C5;C6)
او علي خطوة واحدة بدمج المعادلتين
=+MOD(C5;+INT(C5))
Mod.zip