Microsoft Access 2016 表单不显示照片

Question

我有一个显示用户照片的访问表单。当我点击照片区域时，它也让我选择照片。昨天，我已将访问权限从 2010 升级到 2016。我使用的是 Microsoft Office 2016 plus。现在，照片没有显示。它让我选择照片，但它们没有显示。我使用的代码如下。

Private Sub Photo_Click()
pl = PLFirst()
If IsNull(pl) Then
    MsgBox "First select the person.", vbExclamation, "My sample project"
    Exit Sub
End If

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = GetValue("ScanFolder") & ""
fd.Title = "Select Photo"
fd.Filters.Clear
fd.Filters.Add "JPG or JPEG Images", "*.jpg; *.jpeg"

fd.show
If fd.SelectedItems.Count > 0 Then
    If PhotoAddress & "" = "" Then
        PhotoAddress = GetValue("PhotoAddress")
    End If

    FileCopy fd.SelectedItems(1), PhotoAddress & "\" & PeopleList.Column(1) & ".jpg"
End If
Set fd = Nothing
UpdatePicture
  End Sub

我不知道是代码或兼容性问题。任何帮助将不胜感激。

Answer 1

看this的帖子： 显然微软会解决这个问题，但作为一种解决方法，您可以将当前数据库、图片属性存储格式设置为“保留源图像格式”。