' выбор группы и отображение всех членов этой группы
Dim GROUP As String ' переменная имя группы
Dim rst As ADODB.Recordset ' набор записей
GROUP = Me!LV1.SelectedItem.Text ' имя группы из ListView
Set rst = New ADODB.Recordset ' набор записей
' открываем товары этой группы
rst.Open "SELECT COMMODITY_TBL.* " _
& " From COMMODITY_TBL " _
& "WHERE (((COMMODITY_TBL.GROUP_NAME)='" & GROUP & "')) ", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
========================================================
или
' выбор группы
Dim GROUP As String
GROUP = Другая_Форма!LV1.SelectedItem.Text
|