tabk = "kas" & Forms![спрос]![Поле97]
tabd = "dog" & Forms![спрос]![Поле97]
b:
If НаличиеЗапроса("НОВАЯ ОБЩАЯ") = True Then DoCmd.DeleteObject acQuery, "НОВАЯ ОБЩАЯ"
Set dbs = CurrentDb
strSQL = "SELECT " & tabk & ".M,Сотрудники.кто, Сотрудники.Фамилия, " & tabk & ".MASTER ," & Forms![спрос]![Поле97]
& "&" & """год""" & " AS Выражение2," & tabk & ".KASSA, " & tabk & ".DAT," & tabk & ".STAVKA
FROM Сотрудники, " & tabd & " INNER JOIN " & tabk & " ON " & tabd & ".KOD = " & tabk & ".KOD WHERE
(((Сотрудники.кто)<>False)AND((" & tabk & ".MASTER)=[Сотрудники]![Фамилия]));"
Set qdf = dbs.CreateQueryDef("НОВАЯ ОБЩАЯ", strSQL)
qdf.Close
Set dbs = Nothing
|