Option Compare Database
Option Explicit

Public Function fStartValue(dateValue As Date, lngKodMU As Long) As Double
' функция возвращает показания на ПЕРВЫЙ день месяца, которому принадлежит dateValue
Dim dateStart
Dim rst As DAO.Recordset

    ' определяем первый день месяца
    dateStart = DateSerial(Year(dateValue), Month(dateValue),  1 )
    Set rst = CurrentDb.OpenRecordset("select sum(nz(показание,0)) as v from показания " & _
                                    "where ((дата_показ<=#" & Format(dateStart, "mm\/dd\/yyyy") & "#) " & _
                                    "and (код_му=" & CStr(Nz(lngKodMU,  0 )) & "))")
    fStartValue = Nz(rst!v,  0 )
    rst.Close    
End Function

Public Function fEndValue(dateValue As Date, lngKodMU As Long) As Double
' функция возвращает показания на ПОСЛЕДНИЙ день месяца, которому принадлежит dateValue
Dim dateEnd
Dim rst As DAO.Recordset

    ' определяем первый день СЛЕДУЮЩЕГО месяца
    dateEnd = DateAdd("m",  1 , DateSerial(Year(dateValue), Month(dateValue),  1 ))
    Set rst = CurrentDb.OpenRecordset("select sum(nz(показание,0)) as v from показания " & _
                                    "where ((дата_показ<#" & Format(dateEnd, "mm\/dd\/yyyy") & "#) " & _
                                    "and (код_му=" & CStr(Nz(lngKodMU,  0 )) & "))")
    fEndValue = Nz(rst!v,  0 )
    rst.Close    
End Function

SELECT Место_Установки.код_му AS Место_Установки_код_му, показания.код_му AS показания_код_му, 
     Место_Установки.му, показания.дата_показ, показания.показание, 
     fStartValue([дата_показ],[показания].[код_му]) AS показания_начало_месяца, 
     fEndValue([дата_показ],[показания].[код_му]) AS показания_конец_месяца
FROM Место_Установки INNER JOIN показания ON Место_Установки.код_му = показания.код_му;

 1 	 1 	Счетчик  1 	 30 . 06 . 2006 	 5468 	 0 	 5468 
 1 	 1 	Счетчик  1 	 31 . 07 . 2006 	 5589 	 5468 	 11057 
 1 	 1 	Счетчик  1 	 31 . 08 . 2006 	 5671 	 11057 	 16728 
 2 	 2 	Счетчик  2 	 31 . 05 . 2006 	 456 	 0 	 456 
 2 	 2 	Счетчик  2 	 30 . 06 . 2006 	 745 	 456 	 1201 
 2 	 2 	Счетчик  2 	 31 . 07 . 2006 	 815 	 1201 	 2016 
 3 	 3 	Счетчик  3 	 31 . 10 . 2006 	 96287 	 0 	 96287 
 3 	 3 	Счетчик  3 	 30 . 11 . 2006 	 96400 	 96287 	 192687 
 3 	 3 	Счетчик  3 	 31 . 12 . 2006 	 96520 	 192687 	 289207 
 3 	 3 	Счетчик  3 	 31 . 01 . 2007 	 97000 	 289207 	 386207 
 3 	 3 	Счетчик  3 	 28 . 02 . 2007 	 97200 	 386207 	 483407 

Public Function fStartValue(dateValue As Date, lngKodMU As Long) As Double
' функция возвращает показания на ПЕРВЫЙ день месяца, которому принадлежит dateValue
Dim dateStart
Dim rst As DAO.Recordset
    ' определяем первый день месяца
    dateStart = DateSerial(Year(dateValue), Month(dateValue),  1 )
    Set rst = CurrentDb.OpenRecordset("select max(nz(показание,0)) as v from показания " & _
                                    "where ((дата_показ<#" & Format(dateStart, "mm\/dd\/yyyy") & "#) " & _
                                    "and (код_му=" & CStr(Nz(lngKodMU,  0 )) & "))")
    fStartValue = Nz(rst!v,  0 )
    rst.Close
End Function

SELECT Место_Установки.код_му AS Место_Установки_код_му, показания.код_му AS показания_код_му, Место_Установки.му, 
   показания.дата_показ, показания.показание, 
   fStartValue([дата_показ],показания.код_му) AS показания_начало_месяца,
   показания.показание AS показания_конец_месяца, 
   [показания_конец_месяца]-[показания_начало_месяца] AS Расход
FROM Место_Установки INNER JOIN показания ON Место_Установки.код_му = показания.код_му