فاطمة الحاج

السلام عليكم ورحمه الله وبركاته ازيكم ايه اخباركم ان شاء الله كلها خير اذا ممكن مساعدة من حضرتكم بخصوص تحويل المثال المرفق (الشيت) الى فورم من فضلك لا تكررى نفس المشاركة والا ستحذف المشاركة تم نقل المشاركة الى المكان المخصص لها salary.xlsm40.78 kB · 3 تنزيلات

السلام عليكم ورحمه الله وبركاته salary.xlsm ازيكم ايه اخباركم ان شاء الله كلها خير اذا ممكن مساعدة من حضرتكم بخصوص تحويل المثال المرفق (الشيت) الى فورم

اخي الكريم عبدالفتاح اشكرك على هذا المجهود الرائع

اخي الكريم الشرح حسب الصورة المرفقة

اخي الكريم عبدالفتاح اشكرك على هذا المجهود الرائع بخصوص الكود المرفق : Private Sub CommandButton2_Click() n7 = DateAdd("d", n5.Text, n6) n7 = DateAdd("M", n4.Text, n6) n7 = DateAdd("YYYY", n3.Text, n6) End Sub الكود يضيف فقط الاعوام مثال لو اخذنا تاريخ الميلاد / 01/01/2020 وتاريخ اليوم مثلاً: 16/03/2021 فتكون النتيجة كالاتي : 15 يوم و 2 شهرين و 1 سنة وعند ادخال التاريخ القديم مثلا: 01/01/2010 حسب الكود المرفق سابقا تظهر النتيجية التالية 1/1/2011 وهذ غير مضبوط النتيجة يجب ان تكون 16/3/2021 date of birth_up.xlsm

اخي الكريم عبدالفتاح بارك الله فيك بحصوص الكود الاول صحيح وينتج عنه الايام والاشهر والعمر بالضبط ---------------------------------------------------------------------- Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim firstdat As Date, enddat As Date firstdat = n1.Value: enddat = n2.Value Me.n3 = CalcAgeY([n1], [n2]) Me.n4 = CalcAgeM([n1], [n2]) Me.n5 = CalcAgeD([n1], [n2]) Application.ScreenUpdating = True End Sub --------------------------------------------------------------------- المشكلة بالكود التالي فقط يضيف الايام فقط اما بخصوص الاشهر والاعوام لا يضيفها Private Sub CommandButton2_Click() n7 = DateAdd("d", n5.Text, n6) End Sub شكرا لك وبارك الله فيك

السلام عليكم وكل عام وانتم بالف خير أدام الله أعيادكم وكثرت أفراحكم وغُسلت همومكم وأحزانكم. اذا تكرمتم مساعدتي في الفورم المرفق date of birth.xlsm

اخي عبد الفتاح بارك الله فيكِ وجزاكِ الله خير الجزاء دمتِى برضى الله وحفظه ورعايته

السلام عليكم كل عام وأنتم بخير .. عيدكم مبارك اخواني الاعزاء اذا ممكن مساعدة في فورم بحث حسب المرفق عند البحث فقظ يظهر سجل واحد المطلوب ان يظهر جميع السجلات المراد البحث عنها بمعنى عند البحث عن الرقم 100 اظهار جميع السجلات التي اظهر الرقم 100 بارك الله فيكم جميعا وربي يحفظكم وكل عام وانتم بالف خير اخواني search.xlsm