求助 数量显示

whinnyxie

各位 我在窗体“表1”中做了文本框，我希望文本框内能按照要求显示选了“完成”的数量，不知道怎么做。请教

linini

Me.Text6 = Abs(DSum("完成", "表1", "完成=" & -1 & ""))
Me.未完成数量 = Nz(DCount("*", "表1") - Me.Text6)

vanessaff

新手学习

whinnyxie

2# linini

你好 具体怎么弄的 我是新手

你这个代码要写到模块里，还是宏里？

whinnyxie

2# linini


我写到里面了，但是好象不行，再次请教
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