Разработка процедуры чтения записей по SQL-запросу и вывода их на рабочий лист.

Для удобства просмотра SQL-запроса перед его исполнением, удобно вывести его текст в текстовый бокс (Textdob1). Просмотр и листание запросов производится с помощью изменения свойств объекта «линейка прокрутки» (ScrollBar1). Тект процедуры показан ниже READ_SQL_QUERY(Nstr):

Sub READ_SQL_QUERY(Nstr)

RabTab = "Запросы"

frm.TextBox1.Text = Sheets(RabTab).Cells(Nstr + 1, 3).Value

frm.Label3.Caption = "Номер = " & Nstr

End Sub

Подключим данную процедуру к обработчику события «изменение положения курсора в полосе прокрутки»:

Private Sub ScrollBar1_Change()

Nstr = ScrollBar1.Value

Call READ_SQL_QUERY(Nstr)

End Sub

Также свяжем эту процедуру с событием «инициализация формы» (событие UserForm_Initialize), как показано ниже:

Private Sub UserForm_Initialize()

Call main

Call READ_SQL_QUERY(1)

End Sub

Процедура Main() описании выше.

Теперь можем запустить форму (нажав клавишу F5) и убедиться, что форма заполняется правильно и «прокрутка» работает нормально. Пример рабочего состояния формы показан на рис.53

Рис.53. Пример рабочего состояния формы FRM.