أحمد العيسى

وجدت " كود "  كنت قد استخدمته فى برنامج أكسل  ويعتبر متوافق 100% مع الطريقة التقليدية
فى حساب الفرق بين تاريخين بوضعهما  يدوياً  اسفل بعضهما ويتم الطرح مباشرة أو بالإستلاف
 
Function d_ay(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then d_ay = Day(Calculate) - Day(birth) Else d_ay = Day(Calculate) + 30 - Day(birth) End If End Function Function m_on(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then If Month(Calculate) >= Month(birth) Then m_on = Month(Calculate) - Month(birth) Else m_on = Month(Calculate) + 12 - Month(birth) End If Else If Month(Calculate) > Month(birth) Then m_on = Month(Calculate) - 1 - Month(birth) Else m_on = Month(Calculate) + 11 - Month(birth) End If End If End Function Function y_er(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then If Month(Calculate) >= Month(birth) Then y_er = Year(Calculate) - Year(birth) Else y_er = Year(Calculate) - 1 - Year(birth) End If Else If Month(Calculate) > Month(birth) Then y_er = Year(Calculate) - Year(birth) Else y_er = Year(Calculate) - 1 - Year(birth) End If End If End Function  

حل هذا الموضوع بالسطور التالية بعد كثير من المحاولة والخطأ
كود Private Sub DelRecords_Click() If Me.rrr = 0 Then MsgBox "يجب أن تختار أسم واحد على الأقل", vbInformation, "الاختيار" Exit Sub End If On Error GoTo Err_DelRecords_Click If MsgBox("ستقوم الآن بحذف السجلات المحددة " & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "إضغط (نعم) للإستمرار أو ( لا) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير") = vbYes Then Dim strName As String DoCmd.SetWarnings False DoCmd.RunSQL ("Delete From tbl_Tel Where tbl_Tel.OnlyYou = True;") Me.Refresh strName = Me.Name DoCmd.Close acForm, strName DoCmd.OpenForm strName End If Exit_DelRecords_Click: Exit Sub Err_DelRecords_Click: MsgBox Err.Description Resume Exit_DelRecords_Click End Sub