Question

如何将文本框中的计算值保存到表格中？我试图将我的计算作为默认值，它正在保存，但如果我更改输入，我的计算不会改变。如果我将它放入我的控制源，我无法保存它。

是否可以将计算保存到表中？

亲切的问候， Lukso

Answer 1

在大多数情况下，您需要使用一个事件。控件的After Update事件通常是合适的。例如

 Form
 ---------------------------
 Amount : 10
 Tax    :  2
 Total  : 12  'Amount + Tax

使用上述表单，在Tax和Amount的After Update事件中，您可以将绑定控件Total更新为Amount + Tax。

Private Sub Amount_AfterUpdate()
    Me.Total = Me.Amount + Me.Tax
End Sub

与计算一样，您必须问自己是否与存储此计算相关，还是可以从查询中获取？

最后，Access 2010来了data macros和calculated columns，这也适用。

Answer 2

INSERT INTO如果您正在制作新唱片要么 UPDATE如果您要更新现有的。{/ p>

您可能需要一个隐藏的单独未绑定文本框，具体取决于您正在做什么。

这会将字段fieldName更新为fieldNameTextBox的值，其中记录ID自动编号字段=表单上的自动编号字段。

Insert Into具有非常相似的语法。

Dim db As DAO.Database
Dim RecordList As DAO.Recordset
Set db = CurrentDb()
Set RecordList = db.OpenRecordset("qryClientSearch")
db.execute "UPDATE table1 SET table1.fieldName = """ & Me.fieldNameTextBox.Value & """ WHERE Table1.ID = " & Forms![FormName]![ID] & ""

如何将文本框中的计算值保存到表中

2 个答案: