ник: Axc
Public Sub RaschitatItogSummu()
Dim mes As String
mes = "#" & "3" & "/" & "1" & "/" & "2007" & "#" ' это для примера, значение mes будет меняться
On Error GoTo Err_RaschitatItogSummu
Dim cnCurrent As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Set cnCurrent = CurrentProject.Connection
Set rst = New ADODB.Recordset
strSQL = "SELECT quИтоговыеСуммыПоМесяцам.Сумма " & _
"FROM quИтоговыеСуммыПоМесяцам " & _
"WHERE " & " quИтоговыеСуммыПоМесяцам.КодДоговора " & " = " & Forms![Главная]![пфФирмы].Form![КодДоговора] & _
" AND " & " quИтоговыеСуммыПоМесяцам.Месяц " & " = " & mes
rst.Open strSQL, cnCurrent, adOpenDynamic, 'Вот здесь и вылетает
'Forms![Главная]![полеИтоговаяСуммаSQL] = rst!Сумма
rst.Close
cnCurrent.Close
Set rst = Nothing
Set cnCurrent = Nothing
Exit_RaschitatItogSummu:
Exit Sub
Err_RaschitatItogSummu:
MsgBox Err.Description
Resume Exit_RaschitatItogSummu
End Sub