將文本框值分配給多個表/查詢字段值 (Assigning a textbox value to a multiple table/query field values)

問題描述

將文本框值分配給多個表/查詢字段值 (Assigning a textbox value to a multiple table/query field values)

我在表單視圖中有一個主表單，在數據表視圖中有一個相關的子表單，向同一查詢詢問結果。

在主表單中，我有一個“免費”文本框，它沒有鏈接到任何查詢字段. 這個文本框是一個“輸入”值，我想用於一個模塊/函數，它將 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

在模塊/函數中：

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

這當然行不通..

參考解法

方法 1:

Update field in underlying table with an UPDATE action SQL. Code like:

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

Remove apostrophe delimiters for number type field; for date/time type use # delimiter. Use a WHERE clause if need to restrict records. Apply delimiters as needed for parameters in WHERE clause as well.

(by Alex、June7)

參考文件

1. Assigning a textbox value to a multiple table/query field values (CC BY‑SA 2.5/3.0/4.0)