как передать рекордсет от одной формы к другой?

[АндрейБ]

Хочу ускорить процес поиска, т.к. таблицы большие и хочу передать значение рекордсет от одной формы к другой.
Форма1 при определенном событие открывает Рекордсет1 и если в Рекодсете1 есть записи, то открывает Форма2, в которой по тем же критериям открывается Рекордест2. Причем открытие рекордсета занимает 3-7 секунд, а когда 2 раза надо открыть то 10-15 секунд.
Я пытаюсь сделать так
Рекордсет2 = Рекордсет1.Опенрекордсет
Рекордсет2 = Форма1!Рекордсет1.Опенрекордсет

Но не работает, подскажите как сделать?

[tyomitch]

Set

[АндрейБ]

Set стоит, просто забыл указать.

[alibek]

А зачем OpenRecordset?

[shady]

Recordset.Clone

[АндрейБ]

не работает, пишет ошибка 424,
Object required - типа объект не найден, оно и понятно что Рекордсет1 описан в одной форме, а Рекордсет во второй!
Есть какие-то реальные предложения?

[GSerg]

Предложение тебе понять разницу между объектом и методом объекта.
Достаточно реальное?

[АндрейБ]

наверное - я навичок поэтому не надо сильно грузит терминами.
Лучше дайте ответ рельно ли сделать то что я спрашиваю?

[dr.MIG]

Реально. Просто надо внимательно прочитать всё что уже тебе сказали...(убрать OpenRecorset и добавить Set)

[АндрейБ]

Set RS = RS5.Clone
я поставил так - ошибка осталась!
напиши как мне все же написать?
RS5 - в форме 1, RS в форме 2, передача идет от 1 ко второй, присвоение при открытие 2 формы.

[shady]

а как объявлены RS и RS5?
при таком раскладе

Код: Выделить всё

Set RS = RS5.Clone

один из них должен быть глобальным..

[АндрейБ]

Форма 1 - часть кода относящиеся к теме:
Dim DBS As Database
Dim RS5 As Recordset
Set DBS = OpenDatabase(App.Path + "/Price/Price.mdb")
Set RS5 = DBS.OpenRecordset("Select * From I Where Code = '" & Text1.Text & "' And ID = " & RS7!ID & ";")
If RS5.RecordCount > 1 Then
M.Show vbModal - открываем новую форму 2!!!
End If

Форма 2:
Private Sub Form_Load()
Dim RS As Recordset
Set RS = RS5.Clone - не работает!!!

[dr.MIG]

RS5 объявить как Public в модуле формы и обратиться к ней Set RS = Form1.RS5.Clone

[Konst_One]

M.Show vbModal
ключевое слово - надеюсь всем станет ясно

ну а дальше вообще шедевр

Dim DBS As Database
Dim RS5 As Recordset
Set DBS = OpenDatabase(App.Path + "/Price/Price.mdb")
Set RS5 = DBS.OpenRecordset("Select * From I Where Code = '" & Text1.Text & "' And ID = " & RS7!ID & ";")
If RS5.RecordCount > 1 Then
M.Show vbModal - открываем новую форму 2!!!
End If

Форма 2:
Private Sub Form_Load()
Dim RS As Recordset
Set RS = RS5.Clone - не работает!!!

[АндрейБ]

Konst_One - конечно ты доктор, но не надо прикалываться, лучше разъясни что к чему!

[Konst_One]

все очень просто:

Код: Выделить всё

'Form1
Private Sub Command1_Click()
OpenForm
End Sub

Private Sub OpenForm()
Dim DBS As Database
Dim RS5 As Recordset

Set DBS = OpenDatabase(App.Path + "/Price/Price.mdb")
Set RS5 = DBS.OpenRecordset("Select * From I Where Code = '" & Text1.Text & "' And ID = " & RS7!ID & ";")

Form2.View RS5

End Sub

'Form2
Private WithEvents  rst as RecordSet
Public Sub View(byref rs as Recordset)
Set rst=rs
Me.Show vbModal
End Sub

[АндрейБ]

ясно.
всем спасибо, сам бы неделю разбирался бы.