将文本框值分配给多个 table/query 字段值

Question

我在窗体视图中有一个主窗体以及数据表视图中的相关子表单向同一个查询询问结果。

在主窗体中，我有一个未链接到任何查询字段的 "free" 文本框。此文本框是一个 "input" 值，我想将其用于 module/function，它将 txtbox.value 分配给查询字段下的所有值。示例：

主窗体：

Private Sub Command1_Click()
Dim txtbox As String
Dim qryField as String
Dim FieldName as String
Dim subfrm as Object

txtbox = textbox.Value
FieldName = "Data"
qryField = Me.RecordSource & "." & FieldName
subfrm = subfrmOfMain

Call AssignValueToAllFieldValues (subfrm, txtbox, qryField)
End Sub

在module/function中：

Public Sub AssignValueToAllFieldValues (Byval subfrm as Object, Byval txtbox as String, Byval qryField as String)

For each qryField.value in subfrm.qryField
  "assign txtbox.value to qryField.value"
Next
End Sub

这当然不行..

Answer 1

使用更新操作 SQL 更新基础 table 中的字段。代码如下：

CurrentDb.Execute "UPDATE tablename SET fieldname='" & Me.textboxname & "'"。

删除数字类型字段的撇号分隔符；对于 date/time 类型，使用 # 分隔符。如果需要限制记录，请使用 WHERE 子句。根据需要为 WHERE 子句中的参数应用分隔符。

将文本框值分配给多个 table/query 字段值

Assigning a textbox value to a multiple table/query field values

ms-access

vba

ms-access-forms