VPF::ItemSelected.Item(index) as Long - Форум программистов

Knives

Дата 17.4.2008, 04:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 2.4.2008

Репутация: нет
Всего: нет

Есть список.Выбираю в нём имя файла.Делаю двойной щелчок мышкой.
В итоге должен открыться файл с выбранным из списка именем.
Вот код

Код


Private Sub Список70_DblClick(Cancel As Integer)

Dim oApp As Object

    
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    With oApp
         Me.Список70.SetFocus
        .ChangeFileOpenDirectory "C:\MySpace\PZDC\chernovik"
        .Documents.Open FileName:=Me.Список70.SelText
        
                                    
        
        
    End With

    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
    
Exit_Список70_DblClick:
    Exit Sub

Err_Список70_DblClick:
    MsgBox Err.Description
    Resume Exit_Список70_DblClick
End Sub

Что я делаю не так?

Это сообщение отредактировал(а) Akina - 17.4.2008, 08:12

Akina

Дата 17.4.2008, 08:12 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

M
Akina

Используя тег КОД, не забывайте правильно выбирать тип кода из списка.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

bopoha

Дата 17.4.2008, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

SelText - это про выделение. Подробности в справке.

Пробуйте так
Me.Список70 (Me.Список70.Value) - если значение находится в 0 столбце
или
Me.Список70.Column(x) - нумерация колонок начинается с 0-я

--------------------

Как создавать приложения на MS Access

Knives

Дата 17.4.2008, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 2.4.2008

Репутация: нет
Всего: нет

Всем спасибо за ответы. Всё работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »