我写到里面了,但是好象不行,再次请教
Option Compare Database
Private Sub Text6_BeforeUpdate(Cancel As Integer)
Me.Text6 = Abs(DSum("完成", "表1", "完成=" & -1 & ""))
End Sub
Private Sub 未完成数量_BeforeUpdate(Cancel As Integer)
Me.未完成数量 = Nz(DCount("*", "表1") - Me.Text6)
End Sub