Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > ItemSelected.Item(index) as Long

Автор: Knives 17.4.2008, 04:06

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

Код


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

M
Akina

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

Автор: bopoha 17.4.2008, 15:24

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

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

Автор: Knives 17.4.2008, 23:07

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