Связь сущностей

Option Compare Database
Option Explicit
 
Private Sub Поиск_Change()
    'Пока что не ищет нал или без нал
    Const SQL_str1 = "SELECT z.Код_Заказа, s.ФИО, z.Дата_Размещения, z.Дата_Исполнения, z.БезНал, k.Фамилия & ' ' & k.Имя & ' ' & k.Отчество as ФИО_Клиента FROM (тЗаказы as z left join тСотрудники as s on z.Код_Сотрудника = s.Код_Сотрудника) LEFT JOIN тКлиенты as k on z.Код_Клиента = k.Код_Клиента WHERE z.Код_Заказа Like '"
    Const SQL_str2 = "*' OR s.ФИО Like '"
    Const SQL_str3 = "*' OR z.Дата_Размещения Like '"
    Const SQL_str4 = "*' OR z.Дата_Исполнения Like '"
    Const SQL_str5 = "*' OR z.БезНал Like '"
    Const SQL_str6 = "*' OR k.Фамилия Like '"
    Const SQL_str7 = "*' OR k.Имя Like '"
    Const SQL_str8 = "*' OR k.Отчество Like '"
    Const SQL_str9 = "*' ORDER BY z.Код_Заказа"
    Dim SQL_str
    Me.Результат_Поиска = Empty
    SQL_str = Поиск.Text
    'SQL_str_bn = Me.БезНал
    SQL_str = SQL_str1 + SQL_str + SQL_str2 + SQL_str + SQL_str3 + SQL_str + SQL_str4 + SQL_str + SQL_str5 + SQL_str + SQL_str6 + SQL_str + SQL_str7 + SQL_str + SQL_str8 + SQL_str + SQL_str9
    Me.Результат_Поиска.RowSource = SQL_str
End Sub
 
Private Sub Результат_Поиска_DblClick(Cancel As Integer)
    Dim result
    result = "[Код_Заказа]=" & Me.Результат_Поиска
    DoCmd.OpenForm "фРедактирование_Заказа", , , result
End Sub