Присвоение значения текстового поля нескольким значениям таблицы / поля запроса

Question

У меня есть основная форма в просмотре формы и связанная подчиненная форма в виде таблицы, запрашивающая результаты для того же запроса.

В основной форме у меня есть «свободное» текстовое поле, которое не связано ни с одним полем запроса. Это текстовое поле является входным значением, которое я хочу использовать для модуля / функции, который назначит 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

Конечно, это не работает ..

Answer 1

Обновить поле в базовой таблице с помощью действия UPDATE SQL. Код как:

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

Удалить апострофные разделители для поля типа номера; для типа даты / времени используйте # разделитель. Используйте предложение WHERE, если необходимо ограничить записи. Примените разделители по мере необходимости для параметров в предложении WHERE.