根据文本框的值修改另一文本框的值

Lucas Wang　发表于：2015-01-20 09:51:14 　

现有以下三个表字段，折旧开始时间StartDate, 折旧期限DepreciationPeriod（如3，表示3年）,折旧状态DepreciationStatus（含两个值，过期Write off和折旧期内In Depreciation Period），根据表字段创建窗体Form, 现希望实现当当前时间大于折旧开始时间+折旧期限时，折旧状态自动转为过期Write off，反之，状态为折旧期内In Depreciation Period，我的代码如下，

Private Sub Form_Load()
   If Now() > DateAdd("yyyy", Me.DepreciationPeriod.Value, Me.StartDate.Value) Then Me.DepreciationStatus.Value = "Write Off"
   ElseIf Now() <= DateAdd("yyyy", Me.DepreciationPeriod.Value, Me.StartDate.Value) Then Me.DepreciationStatus.Value = "In Depreciation Period"
   End If

End Sub

请问问题在哪，又如何实现，谢谢

Top

宏鹏发表于：2015-01-20 10:31:03

【Access示例】返回两个日期相距的天数[Access软件网]
http://www.accessoft.com/article-show.asp?id=8866

Top

Lucas Wang 发表于：2015-01-20 13:58:25

宏鹏，你好，谢谢你的答复，我的问题主要是处在如何根据判断结果修改折旧状态的值

Top

ynfsr 发表于：2015-01-20 14:39:29

Else 更换为End if 换行

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

根据文本框的值修改另一文本框的值