2016-04-04 20 views
1

msアクセス2013には、wbContentという名前のWebブラウザコントロールを含むユーザーフォーム(frm_viewer)があります。Webブラウザコントロールを使用してvbaにアクセスローカルのPDFファイル

次のコードを入力してローカルPDFファイルを表示しましたが、正常に機能していないようです。

コントロールのコントロールソースプロパティを同じフォーム(つまり、コントロールソース - >ベースURL - >式ビルダー - > = [MyTextbox])のテキストボックスに参照することで機能しましたが、このメソッドを使用したいと思って、私は変数を使用してその場でそれを設定することを好む。

Private Sub lblBrowse_Click() 

'declare file dialog with late binding -> 
Dim fDialog As Object, strPath As String 
Set fDialog = Application.FileDialog(3) 'msoFilePicker 

'set parameters -> 
Me.wbContent.ControlSource = "" 

    'initializing the file dialog -> 
    With fDialog 
     .AllowMultiSelect = False 
     .Filters.Clear  ' 
     .title = "Please select a file..." 

     'display the dialog box. If the .Show method returns True 
     'the user picked a file. If the .Show method returns False 
     'the user clicked Cancel. 
     If .show = True Then 
      strPath = .SelectedItems(1) 
      Debug.Print "SELECTED_FILE: " & strPath 

      'set source property to the string containing the full path -> 
      Me.wbContent.ControlSource = strPath 
      Me.wbContent.Requery 
     Else 

     End If 
    End With 

End Sub 

誰かが自分のコードを見て、どのように正しく機能するか教えてください。

ありがとうございます!

答えて

1

はこれを試してみてください:

Me.wbContent.ControlSource = "='" & strPath & "'" 

制御源はそうのような文字列にする必要がある:= 'http://www.address.com'

+0

伝説!それはうまくいった。 Webコントロールのソースプロパティは、vbaフォームの他の一般的なフォームコントロールとはかなり異なっているようです。最小限に抑えるための偽善者!再度、感謝します – tamosa

関連する問題