Подстановка данных в форму из другой таблицы

[Vladimir_Der]

Имеется две таблицы, в первой и второй таблицах имеются общие поля, соответственно в формах для ввода данных также имеются общие поля. Необходимо чтобы, по условиям выбора указанных в заголовке формы "Таблица2" автоматически заполнились общие поля (первые три поля) формы "Таблица2".
Первые три поля формы "Таблица2" берут значения из запроса "Таблица1Запрос", запрос отрабатывается данные подтягиваются к соответствующим полям со списком формы"Таблица2", но не отображаются, пока по ним не щёлкнешь.
Простенький файл прилагаю. Таблицы не должны быть связаны. Заранее благодарен.

[Aleksandr H.]

Заменить ВстароенныйМакрос нажатия кнопки на код

Private Sub Кнопка13_Click()
On Error GoTo Макрос1_Err

    DoCmd.OpenQuery "Таблица1 Запрос", acViewNormal, acEdit
    DoCmd.Close acQuery, "Таблица1 Запрос"
    DoCmd.RunCommand acCmdRefresh
    Form_Таблица2.№_КУСП = Form_Таблица2.№_КУСП.ItemData(0)
    Form_Таблица2.Фамилия = Form_Таблица2.Фамилия.ItemData(0)
    Form_Таблица2.Адрес = Form_Таблица2.Адрес.ItemData(0)

Макрос1_Exit:
    Exit Sub

Макрос1_Err:
    MsgBox Error$
    Resume Макрос1_Exit
End Sub

[Vladimir_Der]

Александр огромное спасибо, как всегда всё работает!!!
В реальных формах имеется достаточно много одноименных простых полей и как то не особо хочется переделывать их в поля со списком (не красиво выглядит). В примере форма Таблица2, имеет три одноименных поля с формой Таблица1, два из них на форме Таблица2: №КУСП и Адрес я переделал в простые поля. Возможно сделать, чтобы в эти поля подставлялись данные из запроса Таблица1 Запрос?
Файл уже с Вашим кодом прилагаю.
Примечание: форма Таблица2 может работать как самостоятельно, так и с подстановкой данных.

[Aleksandr H.]

Private Sub Кнопка13_Click()
On Error GoTo Макрос1_Err
Dim rst As Recordset
Dim sSql As String
sSql = "SELECT Таблица1.[№ КУСП], Таблица1.Фамилия, Таблица1.Адрес " & _
"FROM Таблица1 " & _
"WHERE Таблица1.[№ КУСП]=" & Form_Таблица2.КУСП & " AND Таблица1.Фамилия='" & Form_Таблица2.ФИО & "'"
Set rst = CurrentDb.OpenRecordset(sSql)
If rst.RecordCount > 0 Then
    Form_Таблица2.№_КУСП = rst.Fields(0).Value
    Form_Таблица2.Адрес = rst.Fields(2).Value
Else
    Form_Таблица2.№_КУСП = vbNullString
    Form_Таблица2.Адрес = vbNullString
End If

'Form_Таблица2.Фамилия.RowSourceType = "Table/Query"
'Form_Таблица2.Фамилия.RowSource = "SELECT [Таблица1 Запрос].Фамилия FROM [Таблица1 Запрос]"
'
'    DoCmd.OpenQuery "Таблица1 Запрос", acViewNormal, acEdit
'    DoCmd.Close acQuery, "Таблица1 Запрос"
'    DoCmd.RunCommand acCmdRefresh
'    Form_Таблица2.№_КУСП = Form_Таблица2.№_КУСП.ItemData(0)
'    Form_Таблица2.Фамилия = Form_Таблица2.Фамилия.ItemData(0)
'    Form_Таблица2.Адрес = Form_Таблица2.Адрес.ItemData(0)
'
'If IsNull(№_КУСП) Then
'Form_Таблица2.Фамилия.RowSourceType = "Table/Query"
'Form_Таблица2.Фамилия.RowSource = "SELECT Словарь.ФИО FROM Словарь"
'End If

Макрос1_Exit:
    Exit Sub

Макрос1_Err:
    MsgBox Error$
    Resume Макрос1_Exit

End Sub

[Vladimir_Der]

Александр огромное спасибо за помощь, использую Ваш первый код т.к. совпадающих полей в 1-ой и 2-ой таблицах более 15, использовать второй код оказалось не по зубам, особенно по строчке кода WHERE