ListView + VBA

[justas1507]

Добрый день!
Есть listView (6.0) (список продуктов), необходимо с помощью вба сделать так, чтобы когда кликаеш на какую-либо строку, открывалась форма, где представлены более подробные сведения о данном продукте. listView и форма сформированы на базе одной таблицы.

Буду признателен если кто поможет с этой проблемой...

[Teslenko_EA]

Здравствуйте justas1507.
у контрола ListView есть событие "клик по значению" его можно использовать в Вашем случае:

Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    DoCmd.OpenForm "Form1", , , "поле1 = " + Item.Key 
    ...

Евгений.

[justas1507]

Спасибо за совет, но такое решение выдает ошибку. .. Я приложил файл, посмотрите?
База конечно корявая, но сейчас это не имеет особого значения. У меня не получилось главное - чтобы открывалась форма frmItem с данными продукта по которому я кликнул в ListView

[Teslenko_EA]

justas1507, Ваша конструкция при построении списка (заполнении ListView) не устанавливает строкам идентификатор (Key)
для исправления необходимо:
1. в запросе Query1 добавить поле tblItem.ItemID
2. строку кода создающую элемент списка сделайте такой:

            Set objItem = .ListItems.Add(, "K" & rstItems("ItemID"), rstItems("Title"))
'"K" & rstItems("ItemID") - ключ, ключом может быть только текстовое значение, "K" & - сделает его таковым

3. открывать форму с необходимой записью будет код:

Private Sub ListView3_ItemClick(ByVal Item As Object)
On Error Resume Next
DoCmd.OpenForm "frmItem", , , "ItemID=" + Mid(Item.Key, 2)
...

Евгений.

[justas1507]

Спасибо большое! Вы мне очень помогли! Все получилось!