2

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

我有两列，用户在其中输入数字，第三列在用户点击输入时自动将数字相乘。

但是我有 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
4

1 回答 1

1

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

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

那么你不应该需要 VBA 代码来获得/失去焦点事件。每当值或更改时， Access 都会自动更新。Text05Text03Text04

于 2012-06-05T14:44:43.587 回答