Web tarayıcısı denetimini kullanarak yerel PDF dosyasını vba görüntüleme

Question

ms erişim 2013'te, wbContent adlı bir web tarayıcısı denetimi içeren bir kullanıcı formum (frm_viewer) var.

Yerel bir PDF dosyasını doldurmak ve görüntülemek için aşağıdaki kodu yazdım, ancak düzgün çalışmasını sağlayamıyor gibi görünüyor.

Denetimin Kontrol Kaynağı özelliğini aynı formdaki bir metin kutusuna (yani Kaynak Kaynağı -> Temel URL -> İfade Oluşturucu -> = [MyTextbox]) referans alarak çalışmayı başarabiliyordum ama Bu yöntemi kullanmak istiyorum, değişkenler kullanarak anında doldurmayı tercih ediyorum.

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 

birisi benim koduna bakmak ve bana bunu düzgün çalışabilmesi için olsun nasıl bildirin lütfen?

Teşekkürler!

Answer 1

bu deneyin:

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

kontrol kaynağı şöyle bir dize olması gerekir: = 'http://www.address.com'