求窗体数据更新的思路和方法

做的一个资产管理系统，通过输入资产的购买金额，折旧方法，残值率，开始折旧时间和折旧周期后，按calculate按钮自动计算出折旧状态，月折旧额，当前累计折旧额和当前残值。Calculate按钮VBA代码做以下工作，1.根据时间的变化计算出灰色框内的控件值。2.根据时间的变化判断折旧状态，如当前时间>结束折旧时间时，折旧状态变为Non-value，即折旧到期，累计折旧额=购买金额-（购买金额*残值率），当前残值=购买金额-累计折旧额，月折旧额=0，反之为Value....。3.根据资产处理方法判断上述控件的值。问题是，每当需要更新数据时，需要进入窗体在每条记录的界面下按一次Calculate按钮，有没有办法通过什么方法一次性计算和判断左右记录当下的结果。

由于calculate含有判断语句，不仅仅是计算值，所以更新查询不能完全解决该问题。也试过将calculate的VBA代码放到窗体的加载事件过程，也实现不了，求思路和方法，不胜感激，谢谢点击下载此附件