1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Dim sPer As String, i As Integer, nEnd As Integer
Dim sSQL As String, rs As Object
Dim rsTabM As New ADODB.Recordset, cnn As ADODB.Connection
sPer = Me.cmbMonth & "." & Me.cmYear
Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection
If IsMissing(T) Then
sSQL = "execute dbo.pc_TabMonth '" & sPer & "'"
Else
sSQL = "execute dbo.pc_TabMonth '" & sPer & "', " & (CStr(Trim(T))) '& "'"
End If
rsTabM.ActiveConnection = cnn 'CurrentProject.Connection
rsTabM.Open sSQL, , adOpenForwardOnly, adLockReadOnly, adCmdText
With Me.cmbMonth
.FormatConditions.Delete
.FormatConditions.Add acExpression, acEqual, "[cmbMonth] = " & Month(Date)
.FormatConditions( [b]0 ).BackColor = vbRed
.FormatConditions( 0 ).FontBold = True
End With[/b]
Set Me.fmTM2_2.Form.Recordset = rsTabM
Сейчас для эксперимента перенес кусок кода, выделенный жирным шрифтом в это место (раньше он был после Dim) и вроде заработало. Для чистоты эксперимента верну его "взад" и попробую еще разок. Если от этого зависели заморочки, то не понимаю причем тут манипуляции с полями формы и получением данных с сервера.
