我在formview中有一个Main表单，在datasheet视图中有一个相关的子表单，向同一查询询问结果。
在主窗体中，我有一个“自由”文本框，未链接到任何查询字段。此文本框是“输入”值，我想用于将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
这当然行不通..
使用UPDATE操作SQL更新基础表中的字段。像这样的代码：
CurrentDb.Execute "UPDATE tablename SET fieldname='" & Me.textboxname & "'"。
删除数字类型字段的撇号定界符；对于日期/时间类型，请使用＃分隔符。如果需要限制记录，请使用WHERE子句。还要根据需要为WHERE子句中的参数应用定界符。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句