Private Sub Выполнение_LostFocus()
If Me.Флажок42 =  0  And Me.ДатаВ < DateSerial( 2004 ,  1 ,  1 ) And Me.ДатаВ >= DateSerial( 2001 ,  1 ,  1 ) Then
      Me!НДС = Nz([Выполнение]) - Nz([Выполнение] /  1 . 2 )
   Else
       If Me.Флажок42 =  0  And Me.ДатаВ >= DateSerial( 2004 ,  1 ,  1 ) Then
       Me!НДС = Nz([Выполнение]) - Nz([Выполнение] /  1 . 18 )
       End If
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "SELECT трам пам пам" _
& " FROM ппппп" _
& " WHERE    ......." _
& "ORDER BY ...........;"
Debug.Print strSQL
Me.Внедренный1.Form.RecordSource = strSQL
End Sub

SELECT Месторождения.[Шифр месторождения], Накопительная.КодД, Накопительная.ДатаВ AS ДатаВ, Nz( 0 ) AS Объект, "" AS ССР, Sum(Накопительная.Выполнение) AS Выполнение, Накопительная.[№ акта] AS [№ акта], "" AS [Примечание к выполнению], Sum(Накопительная.Списано) AS Списано, Sum(Накопительная.[В ценах 91г]) AS [В ценах 91г], Sum(Накопительная.[СМР тек]) AS [СМР тек], Sum(Накопительная.НДСсп) AS НДСсп, Sum(Накопительная.НДС) AS НДС, Sum(Накопительная.Введено) AS Введено, Sum(Накопительная.НДСввед) AS НДСввед FROM (Месторождения INNER JOIN Договора ON Месторождения.[Шифр месторождения]=Договора.[Шифр месторождения]) INNER JOIN Накопительная ON Договора.КодД=Накопительная.КодД GROUP BY Месторождения.[Шифр месторождения], Накопительная.КодД, Накопительная.ДатаВ, Nz( 0 ), Накопительная.[№ акта] HAVING (((Sum(Накопительная.Выполнение))<> 0 )) OR (((Sum(Накопительная.Списано))<> 0 )) OR (((Sum(Накопительная.[В ценах 91г]))<> 0 )) OR (((Sum(Накопительная.[СМР тек]))<> 0 )) OR (((Sum(Накопительная.НДС))<> 0 )) OR (((Sum(Накопительная.НДСсп))<> 0 )) OR (((Sum(Накопительная.Введено))<> 0 )) OR (((Sum(Накопительная.НДСввед))<> 0 )) ORDER BY Накопительная.ДатаВ; 

strSQL = "SELECT Месторождения.[Шифр месторождения], Накопительная.КодД, Накопительная.ДатаВ AS ДатаВ, Nz(0) AS Объект, """" AS ССР, Sum(Накопительная.Выполнение) AS [Выполнение], Накопительная.[№ акта] AS [№ акта], """" AS [Примечание к выполнению], Sum(Накопительная.Списано) AS [Списано], Sum(Накопительная.[В ценах 91г]) AS [В ценах 91г], Sum(Накопительная.[СМР тек]) AS [СМР тек], Sum(Накопительная.НДСсп) AS [НДСсп], Sum(Накопительная.НДС) AS [НДС], Sum(Накопительная.Введено) AS [Введено], Sum(Накопительная.НДСввед) AS [НДСввед]" _
& " FROM (Месторождения INNER JOIN Договора ON Месторождения.[Шифр месторождения] = Договора.[Шифр месторождения]) INNER JOIN Накопительная ON Договора.КодД = Накопительная.КодД" _
& " GROUP BY Месторождения.[Шифр месторождения], Накопительная.КодД, Накопительная.ДатаВ, Nz(0), Накопительная.[№ акта]" _
& " HAVING (((Sum(Накопительная.Выполнение)) <> 0)) Or (((Sum(Накопительная.Списано)) <> 0)) Or (((Sum(Накопительная.[В ценах 91г])) <> 0)) Or (((Sum(Накопительная.[СМР тек])) <> 0)) Or (((Sum(Накопительная.НДС)) <> 0)) Or (((Sum(Накопительная.НДСсп)) <> 0)) Or (((Sum(Накопительная.Введено)) <> 0)) Or (((Sum(Накопительная.НДСввед)) <> 0))" _
& " ORDER BY Накопительная.ДатаВ;"