Aslında kodları doğru yazmışsınız ama raporun activate olayına değil de raporun Detail kısmının Print olayına yazacaksınız. (Ayrıntı-Basıldığında olayı)
Kod:
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim Patates
If IsNull(SrNO) Then
ImageFrame.Picture = Empty
Else
Patates = CurrentProject.Path & "\Photos\" & Me.SrNO & ".jpg"
ImageFrame.Picture = Patates
End If
End Sub
ResimYukleme_Seruz.rar
(Dosya Boyutu: 26,89 KB | İndirme Sayısı: 92)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs