SELECT Тб321КлПериод.pYear, Тб321КлПериод.IdCodPeriod, Тб301РеЗастр.КодОКПО, Тб301РеЗастр.НаимОКПО, 
Тб301РеЗастр.НомЗапТб301, IIf(Len(Тб301РеЗастр!Улица)>3,", " & Тб301РеЗастр!Улица,"") AS Улица_, 
IIf(Len(Nz(Тб301РеЗастр!ДомКвартира,""))>0,", " & Тб301РеЗастр!ДомКвартира,"") AS Дом_, 
Тб301РеЗастр!НасПункт & [Улица_] & IIf(Len(Nz(Тб301РеЗастр!ДомКвартира,""))>0,
", " & Тб301РеЗастр!ДомКвартира,"") AS Address_, Тб301РеЗастр.КодСубъект, Тб304РеСубъект.НаимСубъект, 
Тб301РеЗастр.СумКоличОНС AS ОНС, Тб301РеЗастр.СумКоличСОНС AS СОНС, Тб301РеЗастр.КодПериод, 
IIf(Len(Nz([email],""))=0,"","@") AS Lemail, Тб319УНП.OKULP, Left([Тб301РеЗастр].[КодОКПО],8) AS ОКПО8, 
Тб301РеЗастр.КодОКОГУ, qry_OKOGU.OKOGU0, qry_OKOGU.НаимОКОГУ AS NameOKOGU, Тб324ОКОГУ.НаимОКОГУ
FROM ((((((Тб301РеЗастр LEFT JOIN Тб321КлПериод ON Тб301РеЗастр.КодПериод = Тб321КлПериод.КодПериод) 
INNER JOIN Тб304РеСубъект ON (Тб301РеЗастр.КодПериод = Тб304РеСубъект.[Код период]) AND (Тб301РеЗастр.КодСубъект = Тб304РеСубъект.КодСубъект)) 
LEFT JOIN tblAdressE ON Тб301РеЗастр.КодОКПО = tblAdressE.КодОКПО) 
LEFT JOIN Тб319УНП ON Тб301РеЗастр.КодОКПО = Тб319УНП.OKPO) 
LEFT JOIN qry_OKOGU ON (Тб301РеЗастр.КодПериод = qry_OKOGU.КодПериод) AND (Тб301РеЗастр.КодОКОГУ = qry_OKOGU.КодОКОГУ)) 
LEFT JOIN Тб324ОКОГУ ON (qry_OKOGU.КодПериод = Тб324ОКОГУ.КодПериод) AND (qry_OKOGU.OKOGU0 = Тб324ОКОГУ.КодОКОГУ))
WHERE (((Тб301РеЗастр.КодПериод)=currentperiod()))
WITH OWNERACCESS OPTION;

SELECT Тб321КлПериод.pYear, Тб321КлПериод.IdCodPeriod, Тб301РеЗастр.КодОКПО, Тб301РеЗастр.НаимОКПО, 
Тб301РеЗастр.НомЗапТб301, IIf(Len(Тб301РеЗастр!Улица)>3,", " & Тб301РеЗастр!Улица,"") AS Улица_, 
IIf(Len(Nz(Тб301РеЗастр!ДомКвартира,""))>0,", " & Тб301РеЗастр!ДомКвартира,"") AS Дом_, 
Тб301РеЗастр!НасПункт & [Улица_] & IIf(Len(Nz(Тб301РеЗастр!ДомКвартира,""))>0,", " & Тб301РеЗастр!ДомКвартира,"") AS Address_, 
Тб301РеЗастр.КодСубъект, Тб304РеСубъект.НаимСубъект, Тб301РеЗастр.СумКоличОНС AS ОНС, 
Тб301РеЗастр.СумКоличСОНС AS СОНС, Тб301РеЗастр.КодПериод, IIf(Len(Nz([email],""))=0,"","@") AS Lemail, Тб319УНП.OKULP, 
Left([Тб301РеЗастр].[КодОКПО],8) AS ОКПО8, Тб301РеЗастр.КодОКОГУ, qry_OKOGUm.OKOGU0, 
qry_OKOGUm.НаимОКОГУ AS NameOKOGU, qry_OKOGUm.НаимОКОГУм AS НаимОКОГУ, tblEBase.КодОператора
FROM (((((Тб301РеЗастр LEFT JOIN Тб321КлПериод ON Тб301РеЗастр.КодПериод = Тб321КлПериод.КодПериод) 
INNER JOIN Тб304РеСубъект ON (Тб301РеЗастр.КодПериод = Тб304РеСубъект.[Код период]) AND (Тб301РеЗастр.КодСубъект = Тб304РеСубъект.КодСубъект)) 
LEFT JOIN tblAdressE ON Тб301РеЗастр.КодОКПО = tblAdressE.КодОКПО) 
LEFT JOIN Тб319УНП ON Тб301РеЗастр.КодОКПО = Тб319УНП.OKPO) 
LEFT JOIN tblEBase ON Тб301РеЗастр.КодОКПО = tblEBase.КодОКПО) 
LEFT JOIN qry_OKOGUm ON (Тб301РеЗастр.КодОКОГУ = qry_OKOGUm.КодОКОГУ) AND (Тб301РеЗастр.КодПериод = qry_OKOGUm.КодПериод)
WHERE (((Тб301РеЗастр.КодПериод)=currentperiod()))
WITH OWNERACCESS OPTION;

Me.Recordsource = "<текст запроса>"

Public Function CurrentPeriod() As Integer
  If Nz(intPeriod, 0) = 0 Then
    CurrentPeriod = DMax("&#202;&#238;&#228;&#207;&#229;&#240;&#232;&#238;&#228;", "&#210;&#225;321&#202;&#235;&#207;&#229;&#240;&#232;&#238;&#228;", "Actuale<>0")
  Else
    CurrentPeriod = intPeriod
  End If
End Function

Public Function CurrentPeriod() As Integer
  If Nz(intPeriod, 0) = 0 Then
    FilialPeriod = DMax("КодПериод", "Тб321КлПериод", "Actuale<>0")
  Else
    CurrentPeriod = intPeriod
  End If
End Function