Упражнение

Создайте копию процедуры ПримерMSQuery и назовите ее СортировкаДанных. Создайте экранную форму с четырьмя переключателями:

• Код продукта
• Марка
• Цена
• На складе

Измените процедуру СортировкаДанных таким образом, чтобы извлекаемые данные сортировались по тому столбцу, которому соответствует выбранный переключатель в экранной форме.

В область общих объявлений модуля поместите строку кода

Public sSortChoice As String

Код процедуры СортировкаДанных:

Sub СортировкаДанных()

Dim sngPrice As Single

Dim sMessege As String

Worksheets.Add

sMessege = "Цена должна быть больше чем"

sngPrice = Application.InputBox(sMessege, "Ввод значения цены", _

Type:=1)

frmSort.Show

With ActiveSheet.QueryTables.Add(Connection:=Array(Array("ODBC; _

DSN=База данных MS Access;DBQ=c:\Program Files\ _

Microsoft Office\Office\Samples\Борей; _

DefaultDir=c:\Program Files\Microsoft "), _

Array("Office\Office\Samples;DriverId=25;FIL=MS Access; _

MaxBufferSize=2048;PageTimeout=5;")), _

Destination:=Range("A1")).CommandText - Array("SELECT _

Товары.КодТовара, Товары.Марка, Товары.Цена, _

Товары.НаСкладе" & Chr(13) & "" & Chr(10) & "FROM _

'c:\program Files\Microsoft Office\Office\Samples\

Борей'.Товары Товары" & Chr(13) & "" & Chr(10) & "WHERE _

(Товары.Марка>=" & sngPrice & ")" & Chr(13) "" _

& Chr(10) & "ORDER BY Товары." & sSortChoice)

.Name = "Запрос из База данных MS Access"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = True

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False

End With

End Sub

Код, ассоциированный с экранной формой (в процедуре СортировкаДанных она названа frmSort):

Private Sub cmdCancel_Click()

frmSort.Hide

End

End Sub

Private Sub cmdOK_Click()

If optProductID = True Then

sSortChoice = "КодТовара"

ElseIf optProduct.Name = True Then

sSortChoice = "Марка"

ElseIf optUnitPrice = True Then

sSortChoice = "Цена"

Else

sSortChoice = "НаСкладе"

End If

frmSort.Hide

End Sub