MS Access 表单不显示带有 .jpeg 扩展名的 JPEG 图片

Question

我有一个图像控件，其中控件源设置为数据库图像名称列，它适用于具有 .jpg 文件扩展名的 JPEG 文件，但不适用于具有 .jpeg 扩展名的 JPEG 文件。如果我将 JPEG 文件从 .jpeg 重命名为 .jpg，同时将数据库文件名中的扩展名从 .jpeg 更改为 .jpg，它就像一个魅力。这在生产环境中是不持久的，所以如果有人能解决这个问题，我将不胜感激。我是运行 Windows 10 平台上的 MS Access 2019。

Answer 1

您也许可以使用我的项目 VBA.PictureUrl 中演示的简单技术。它会愉快地显示任何普通的位图文件：

这是核心功能和典型用法（行内注释）：

' Download (picture) file from a URL of a hyperlink field to a
' (temporary) folder, and return the full path to the downloaded file.
'
' This can be used as the control source for a bound picture control.
' If no Folder is specified, the user's IE cache folder is used.
'
' Typical usage in the RecordSource for a form or report where Id is
' the unique ID and Url is the hyperlink field holding the URL to
' the picture file to be displayed:
'
'   - to a cached file where parameter Id is not used:
'
'   Select *, UrlContent(0, [Url]) As Path From SomeTable;
'
'   - or, where Id is used to create the local file name:
'
'   Select *, UrlContent([Id], [Url], "d:\somefolder") As Path From SomeTable;
'
' Then, set ControlSource of the bound picture control to: Path
'
' 2017-05-28. Gustav Brock, Cactus Data ApS, CPH.
'
Public Function UrlContent( _
    ByVal Id As Long, _
    ByVal Url As String, _
    Optional ByVal Folder As String) _
    As Variant

    Const NoError   As Long = 0
    Const Dot       As String = "."
    Const BackSlash As String = "\"
    
    Dim Address     As String
    Dim Ext         As String
    Dim Path        As String
    Dim Result      As String
    
    ' Strip leading and trailing octothorpes from URL string.
    Address = HyperlinkPart(Url, acAddress)
    ' If Address is a zero-length string, Url was not wrapped in octothorpes.
    If Address = "" Then
        ' Use Url as is.
        Address = Url
    End If
    
    If Folder = "" Then
        ' Import to IE cache.
        Result = DownloadCacheFile(Address)
    Else
        If Right(Folder, 1) <> BackSlash Then
            ' Append a backslash.
            Folder = Folder & BackSlash
        End If
    
        ' Retrieve extension of file name.
        Ext = StrReverse(Split(StrReverse(Address), Dot)(0))
        ' Build full path for downloaded file.
        Path = Folder & CStr(Id) & Dot & Ext
        
        If DownloadFile(Address, Path) = NoError Then
            Result = Path
        End If
    End If
    
    UrlContent = Result
    
End Function

Answer 2

我的解决方案：每 10 分钟一个 bash 文件和一个 crontab 作业运行。 bash 文件复制、传输和重命名新文件的扩展名。我在名为“new_bill_Url_location”的查询中创建了一个额外的列，并删除了“jpeg”扩展名并添加了一个“jpg”扩展名，带有 jpg 扩展名的文件保持原样。查询列的代码是:

new_bill_Url_location: IIf(Right([bill_Url_location],4)="jpeg", Left(bill_Url_location, Len(bill_Url_location) - 4) & "jpg",[bill_Url_location])

MS Access 表单不显示带有 .jpeg 扩展名的 JPEG 图片

MS Access forms are not showing JPEG pictures with a .jpeg extension

forms

windows

ms-access

jpeg

image