anladığım kadarıyla aşağıdaki gibi bir yapı işinize yarayacaktır
1 - Frm_ekipman formuna aşağıdaki yordamı ekleyin

Function xSonuc()

xSonuc = ""

Set rsA = Me.tbl_kalinlik_alt_formu.Form.Recordset.Clone



If rsA.RecordCount > 1 Then

    rsA.MoveFirst: xYilSon = Year(rsA(2)): xDgr1 = rsA(3)

    rsA.MoveLast: xYilOnceki = Year(rsA(2)): xDgr2 = rsA(3)

    xSonuc = (xDgr1 - xDgr2) / (xYilSon - xYilOnceki)

End If

End Function

2 - form geçerli olduğunda yordamına aşağıdaki kodu ekleyin

kh_shell = xSonuc

dilerim işinize yarar.