access2016无法显示打印照片
access2016无法显示打印照片,access2013能显示打印照片。请求帮助,谢谢!
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Err_主体_Format
Dim imgpath As String
imgpath = CurrentProject.Path & "\images\" & 编号 & ".jpg"
If Dir(imgpath) = "" Then imgpath = CurrentProject.Path & "\images\" & "空白照片.jpg"
Image1.Picture = imgpath
Exit_主体_Format:
Exit Sub
Err_主体_Format:
'MsgBox Err.Description
Resume Exit_主体_Format
End Sub