MS-Access VBA - 如何将文本框使用的当前查询字段名称分配给变量

Question

我有一个从查询中获取记录的表单。

在这个表单中，我有一些链接到查询字段的文本框。

我想将文本框在 AfterUpdate 事件中使用的当前查询字段名称分配给变量，如下所示：

Private Sub Texbox1_AfterUpdate()
Dim fldName as Stringf
fldName = Me.RecordSource.Textbox1.Field
End Sub

这当然不行...

Answer 1

您需要的属性是ControlSource。

例如：

Private Sub Texbox1_AfterUpdate()
    Dim fldName As String
    fldName = Textbox1.ControlSource
End Sub

Answer 2

Private Sub Texbox1_AfterUpdate()
Dim fldName As String
fldName = Textbox1.Value
End Sub

MS-Access VBA - How to assign the current query field name used by a textbox to a variable