管理余额字段

Question

我有3个字段：

• 1是“总计”：包含实际价格
• 2个“已收款项”：包含来自客户的已收款项
• 3是“平衡”：= 1-2

我想创建一个表单，该表单将使用在    文本框并将其添加到2中的上一个值，这样我就不必    删除先前的值，并更新状态字段    显示任一存款。

Nb：如果2 <1，则状态字段为存款，如果1 = 2，则状态字段为付费。

这是我使用的代码

Private sub cmdbtn on click()
  Dim rs as recordset

  Set rs = currentdb.Openrecordset("contacttable", dbopendynaset) 
  Rs.Findfirst("contactid="'" & me.Txtcid & "'")
  Rs.Edit
  Rs![pfee]= rs![pfee] + me.Txtbal.Value
  Rs.Update
  Rs.Close
End sub