跟据查询结果显示图片已做出来但没有图片问题就大了

提示一次的代码如下：

Public cs

Private Sub Report_Load()
cs = 0
End Sub

Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize

End Sub

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim strFilename As String
strFilename = CurrentProject.Path + "\jpg\" & Me.cstyle & ".jpg"
If Dir(strFilename) = "" Then
Me.img2.Visible = False
If cs = 0 Then
  strMsg1 = "文件不存在：" & strFilename
   MsgBox strMsg1, 48, ""
   
    cs = 1
End If
Else
    Me.img2.Visible = True
    Me.img2.Picture = strFilename
End If

End Sub

不提示的代码如下：

Option Compare Database

Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize

End Sub

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim strFilename As String
strFilename = CurrentProject.Path + "\jpg\" & Me.cstyle & ".jpg"
If Dir(strFilename) = "" Then

  strMsg1 = "文件不存在：" & strFilename
   'MsgBox strMsg1, 48, ""
   Me.img2.Visible = False
  
End If
Else
    Me.img2.Visible = True
    Me.img2.Picture = strFilename
End If

End Sub