在MS Access中乘以数字

Question

我希望能够将两列中的两个数相乘，并将其显示在第三列中。

我有两列用户输入数字，第三列是用户点击输入时自动乘以数字。

但我有100个像这样的文本框，我不想为每一个编写代码。

有没有办法像在excel中那样执行此操作？ 在excel中这很容易。

以下是我必须为每个文本框写的内容：

Private Sub Text03_GotFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text03_LostFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text04_GotFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text04_LostFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * (12)
End Sub

Answer 1

如果我理解您的情况，在设计视图中打开表单会更简单，然后打开Text05文本框的属性表并将其用作Control Source属性（在属性表的Data选项卡）：

= Val([Text03]) * Val([Text04]) * 12

那么你不应该需要VBA代码来获取/丢失焦点事件。只要Text05或Text03中的值发生变化，访问权限就会自动更新Text04。