如何自动计算借贷利息并写入数据表中

Private Sub cmdClose_Click()
    DoCmd.Close
End Sub


Private Sub 发生日期_AfterUpdate()
    If Not IsNull(Me.发生日期) Then
        Me.天数.SetFocus
        Me.天数 = 还款日期 - 发生日期
    End If
End Sub

Private Sub 还款日期_AfterUpdate()
 If Not IsNull(Me.还款日期) Then
        Me.天数 = 还款日期 - 发生日期
    End If
End Sub

Private Sub 利率_AfterUpdate()
    If Not IsNull(Me.利率) Then
        Me.利息 = 利率 / 30 * 借方支出 * 天数 / 10000
    End If
End Sub
当在贷方栏数入金额时也能自动计算利息，该怎么弄，请指教一下，非常感谢