Мир объектов Excel 2000



              

Формирование и показ списка отобранных заказчиков - часть 2


End Sub

Процедура FromSelectedListToFields, выполняющая основную работу, похожа на уже рассмотренную процедуру FromListToFields. Разница состоит лишь в том, что работа идет с другой формой:

Public Sub FromSelectedListToFields() 'Данные о заказчике, выбранном из списка, 'ищутся в базе данных и затем переносятся 'из набора записей в поля бланка Счет-фактура Const Кавычка = "'" Dim Key As String Dim strSQL1 As String

If SelectedCustomers.ListBox1.ListIndex >= 0 Then 'Выбор сделан 'Формирование запроса к базе данных Key = SelectedCustomers.ListBox1.Column _ (0, SelectedCustomers.ListBox1.ListIndex) strSQL1 = "Select * FROM [Заказчики]WHERE [Название]= " _ & Кавычка & Key & Кавычка Cmd1.CommandText = strSQL1 Set Rst1 = Cmd1.Execute 'Перенос данных из набора записей в поля бланка FromRstToFields 'Форма сделала свое дело - форма закрывается SelectedCustomers.Hide Else MsgBox ("Выберите заказчика!") End If End Sub

На этом можно было бы закончить описание того, как работает поиск с фильтрацией в базе данных. Весь процесс поиска и получения нужных данных рассмотрен. Но для полноты картины следует проанализировать другой, альтернативный способ фильтрации записей.




Содержание  Назад  Вперед