حين لم تبادر بالرد فقد جعلت لك السنين اختيارية
ويمكن ان تجعل الرقم 20 داخل الكود بدلا من قيمة الحقل
اولا عملنا وحدة نمطية عامة يمكن تطبيقها في اي مكان من المشروع في النموذج او الاستعلام
Function modah(vyear As Integer, vmonth As Integer, vday As Integer)
v1 = (text0 - 1) - vyear
v2 = 11 - vmonth
v3 = 30 - vday
If v3 < 0 Then
v2 = v2 - 1
End If
v2 = v2 Mod 12
modah = v1 & "سنة, " & v2 & "شهر, " & v3 & "يوم"
End Function
وهنا تم نداؤها داخل المحرر في حدث النقر على الزر
textx = modah(Text1, Text2, Text3)
طرح سنوات من الخدمة.rar