none
Accessフォーム上 WebBrowser による画像表示をレコード移動時更新したい RRS feed

  • 質問

  • こんにちは。

    VBAの初心者です。Accessのフォーム上でWEB上の画像を表示したく、

    下記のように C1データ というテーブルの 商品画像URL 1 というフィールドの値を

    URL として受け取り表示したいのですが、レコードを移動しても最初の画像が表示され更新されません。

    URL の値が更新されて WebBrowser に渡すにはどうしたらよいのでしょうか。お願いいたします。

    Private Sub Form_Current()

        Dim oRS As DAO.Recordset
        Dim URL As Variant
        
        With Application.CurrentDb
            Set oRS = .OpenRecordset("C1 データ", dbOpenDynaset)
        
            URL = oRS.Fields("商品画像URL 1").Value
            oRS.Close

             Set oRS = Nothing

        End With
            
    End Sub

        
    Private Sub WebBrowser4_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        If URL <> "about:blank" Then
            pDisp.Document.write "<head>" & _
                                    "<style type='text/css'>" & _
                                        "img {zoom:25%} " & _
                                        "body {margin:0; padding:0;}" & _
                                    "</style>" & _
                                 "</head>" & _
                                 "<body>" & _
                                    "<img src='" & URL & "'>" & _
                                 "</body>"
                                 WebBrowser4.Document.body.Scroll = "no"
        End If
        
    End Sub

    2015年12月28日 20:43

回答