Шаг 89 - Динамическая установка свойств DatabaseName и RecordSource

Давайте добавим в форму нашу процедуру. Щелкните два раза по форме что бы открылся исходный код формы. Дальше мы выбираем Tools - Add Procedure.

gif/89_1.gif (1499 b)

Появиться диалоговое окно в которое нужно будет внести имя процедуры.

gif/89_2.gif (3468 b)

После нажатия на ОК у нас появиться процедура.

gif/89_3.gif (3111 b)

В ней мы и напишем код по динамической установке свойств.

Public Sub InitDB()
ТаблицаОтчеты.Database = "c:\Base\dbtest.mdb"
ТаблицаОтчеты.RecordSource = "fond_name"
ТаблицаОтчеты.Refresh
End Sub 

Дальше остается только вызвать эту процедуру при загрузки формы.

Private Sub Form_Load()
InitDB
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.