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帖子：显然，Microsoft将解决此问题，但作为一种解决方法，您可以将当前数据库，图片属性存储格式设置为“保留源图像格式”。

Microsoft Access 2016表单不显示照片

1 个答案: