Сообщество Чайников

Вопрос

Народ, подскадите, пожалуйста: при открытии формы задается Recordset, зараннее объявленный public, однако в других процедурах его не видно. Как сделать Recordset, который объявлен на уровне модуля и к которому можно обратиться из других процедур?

Ответ

Объявляешь в разделе Declaration формы:

PRIVATE DB as database
PRIVATE RS as Recordset
Private Sub Form_Load ()
    set DB = DbEngine.OpenDataBase ("MyBase.mdb")
    set RS = db.OpenRecordset("SELECT *FROM MyTable",dbopenforwardonly)
End Sub

и все, во всех процедурах данной формы Recordset будет виден.

P.S. не забудь его закрыть при выгрузке формы:

Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    rs.close
    set rs = nothing
    db.close
    set db = nothing
end sub

Сергей Л.