Вопрос состоит в том чтобы внедрить в поле объекта OLE объект. Это линк к объекту но не внедрение. Если кто знает и может помогите плиз.



Private Sub Кнопка2_Click()
Dim strDoc As String
Dim vrtSelectedItem As Variant
Dim fd As FileDialog
Dim oApp As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)


With fd
.AllowMultiSelect = False
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'MsgBox "The path is: " & vrtSelectedItem
strDoc = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With


If IsNull(strDoc) Then
MsgBox "Error!!!"
Else



Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open (strDoc)
Set oApp = Nothing
End If



Exit_RunOle_Click:
Exit Sub

Err_RunOle_Click:
MsgBox Err.Description
Resume Exit_RunOle_Click

End Sub

Мне нужно отобразить содержимое документа ВОрд в поле объекта OLE

Много движений, а заказчику надо одним движением добраться к файлу и просмотреть его, вернее он вообще не знает Аксес, а кнопку обзор уже видел. ПОєтому надо одним движением добраться к файлу просмотреть его в самой базе в поле оле выбрать данные которые ему понадобятся и сохранить этот файл на диск!

Так нельзя я уже так предлагал не подходит нужно именно в Аксес

Это не то! Люди помогите плиз

Вы не совсем меня поняли. Мне нужно в вставка объекта-создать из файла-обзор сразу добраться к Обзор одним нажатием. Если кто знает как это сделать тогда как напишите пожалуйста!

А в Визуал Бейсик это сделать можно?