سنبله کار عزیز
من قبلا برای یک برنامه پرسنلی از رویداد Format استفاده کردم و جواب گرفتم
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Err_Label
If Me.ImageMemberPic.Properties("Visible") = False Then
Me.ImageMemberPic.Properties("Visible") = True
End If
If Not IsNull(Me!MembershipPic) Then
Me.ImageMemberPic.Properties(3) = Me!MembershipPic
Else
Me.ImageMemberPic.Properties("Visible") = False
End If
Exit Sub
Err_Label:
Select Case Err.Number
Case 2220, 94
Me.ImageMemberPic.Properties("Visible") = False
Resume Next
Case Else
MsgBox Err.Number & " : " & Err.Description
End Select
End Sub