MSAccess - заполнить текстовое поле значением из запроса

Question

У меня есть поле со списком и несколько текстовых полей в форме.Когда я выбираю значение в поле со списком, я хочу, чтобы он выполнял запрос на основе этого значения и заполнял текстовые поля данными, возвращаемыми запросом.Запрос должен возвращать только одну запись, и текстовые поля correnspond для разных столбцов этой записи.

У меня есть этот код:

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

Текстовое поле Текст 51 заблокировано, установите для свойства Locked значение False.