ник: SergeyKV
Всех с наступающим новым годом! 
Я заыкрываю объект DataEnvironment.rsSearchQuery.Сlose а далее хочу продолжить работу с поиском , но мне выдает ошибку : Невозможно работать если объект закрыть, а если его не закрыть то выдает ошибку : Невозможно работать если объект открыт...
Private Sub btSearch_Click()
Dim i As Integer
Screen.MousePointer = 11
DataEnvironment1.SearchQuery (Me.FieldSearch.Text)
Set Rs = DataEnvironment1.rsSearchQuery
FlexGrid.Clear
ProgressBar1.Max = 50
For i = 0 To Rs.RecordCount - 1
Me.ProgressBar1.Value = i
FlexGrid.AddItem Rs.Fields(0) & vbTab & Rs.Fields(1) & vbTab & Rs.Fields(2)
Rs.MoveNext
Next i
DataEnvironment1.rsSearchQuery.Close
FieldSearch.Refresh
ProgressBar1.Value = 0
Screen.MousePointer = 0
End Sub
|