MS Access - 使用查询中的值填充文本框

Question

我在表单上有一个组合框和几个文本框。当我从组合框中选择一个值时，我希望它根据该值运行查询，并使用查询返回的数据填充文本框。查询应该只返回一条记录，文本框与该记录中的不同列相对应。

我有这段代码：

Private Sub cbo_equip_loc_Change()
Dim location As String
Me.cbo_equip_loc.SetFocus
location = DLookup("NAME", "Query1", "position = '" & Me.cbo_equip_loc.SelText & "'")
Me.Text51.SetFocus
Me.Text51.Text = location

End Sub

但我收到此错误：“此属性是只读的，无法设置”

有什么想法吗？

解决：我是个白痴。

我从控制源中获得了一些我之前尝试过的东西。删除它，它工作了！

Answer 1

没有必要这样做：

Me.Text51.SetFocus
Me.Text51.Text = location

确实，text属性仅在控件具有焦点时可用，但value属性可用而没有任何焦点，或者Access VBA对控件的名称非常满意：

Me.Text51.Value = location

或

Me.Text51 = location

Answer 2

文本框 Text51 已锁定，设置属性已锁定为False。