ник: час
В модуле создаётся функция или процедура чёта типа
и в неё вписываем SQL инструкцию запроса, созданного с помощъю конструктора, хотя конечно если можете запрос без конструктора создать - пожалуйста.........
'Dim rst As ADODB.Recordset
'Set rst = New ADODB.Recordset
'rst.Open "SELECT должники_TBL.* From должники_TBL WHERE ((.............. ", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
'If rst.RecordCount <> 0 Then
' Do While Not rst.EOF '
'rst("")=""
' rst.MoveNext
' Loop
'End If
|