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