子窗体实现简单相加相乘

陈琳　发表于：2013-04-01 17:44:33 　

请问老师，我想子窗体实现简单相加相乘。就是填入单价和数量，总价这一列会自动计算出来。

请问有相关的链接吗？

我看到论坛上的是用按钮来实现的，可否不用按钮？

谢谢！

陈琳发表于：2013-04-01 18:11:43

老师，我用这个，
Private Sub hj_GotFocus()
If IsNull(Me.dj) Or IsNull(Me.sl) Then
MsgBox "Please fill the unit price and quantity"
Else
Me.hj = CLng(Me.dj) * CLng(Me.sl)
End If
End Sub

但是如果我中途改了乘数和被乘数，需要再给焦点，才会更新结果。

请问怎么改？

Top

宏鹏发表于：2013-04-01 19:14:03

试试在单价和数量的更新后事件执行计算

Top

陈琳发表于：2013-04-02 10:08:43

老师，我改成这个了。
Private Sub dj_AfterUpdate()
If IsNull(Me.dj) Or IsNull(Me.sl) Then
MsgBox "Please fill the unit price and quantity"
Else
Me.hj = CLng(Me.dj) * CLng(Me.sl)
End If
End Sub

Private Sub sl_AfterUpdate()
If IsNull(Me.dj) Or IsNull(Me.sl) Then
MsgBox "Please fill the unit price and quantity"
Else
Me.hj = CLng(Me.dj) * CLng(Me.sl)
End If
End Sub

Top

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

Access交流中心

[5分]子窗体实现简单相加相乘