Question

我有一个带有两个文本框的表单。 TexBox应该总是空着。当用户键入值时。将键入的值添加到表字段中已存在的值。这甚至可能吗？该表有两个coloumns currentValue和finalValue。

Private sub currentValue_AfterUpdate()
Dim enterValue As Long
Dim finalValue As Long

enterValue = New TextBox Object
finalValue = value + Me.Recordset("currentValue")
Update finalValue_AfterUpdate
Me.enterValue.Visible = Fales

End sub

Answer 1

您可以将字段（从表格）绑定到表单文本框（txt1）

隐藏此控件。

将未绑定的文本框（txt2）添加到表单，供用户添加其值。就像你的想法有一个更新后事件。

Private Sub txt2_AfterUpdate()
    txt1 = txt1 + txt2
End Sub

示例代码，未经测试。

然后记录变脏，因此需要保存，但您可以按照自己的意愿处理

是否可以使用TextBox中的值创建对象？

1 个答案: