Skip to main content

AccessTr.neT M.



Sürekli Form ve Raporda Fotoğraf Gösterme

Sürekli Form ve Raporda Fotoğraf Gösterme

Çözüldü #1
Saygıdeğer üstadlarım, sitede birçok fotoğraf ekleme örneği mevcut. Bunlardan biriside şimdi eklediğim ayhan2122 hocamın örneği, ancak hiç birisinde aradığımı bulamadım. Hepsinde aynı problem var.
Problem; Sürekli form veya raporda resim/fotoğraf gösterdiğinde birden fazla kayıt olmasına rağmen hepsinde ilk kayda ait resim/fotoğraf görüntülenmekte, hangi kayda tıklanırsa (sürekli formda) o kaydınkini getirerek hepsini değiştirmekte,

İstek; Her iki durumda da her kaydın kendisine ait fotoğrafın görüntülenmesini istiyorum. Saygılarımla..

.rar ResimYukleme_ayhan2122.rar (Dosya Boyutu: 23,24 KB | İndirme Sayısı: 38)
Cevapla
Çözüldü #2
Rapor kolayda, Sürekli formda maalesef bildiğim bir yöntem yok.

Sürekli form yerine, İlişkisiz formda ADO kullanarak yaptığım bir çözüm var. Onu incele.
Toplu Resim Gösterimi

Sanırım bu dosyada rapor örneği de vardı.

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
...........
Çözüldü #3
Son Düzenleme: 13/01/2010, 20:32, Düzenleyen: derebeyi.
Sayın seruz hocam, Raporda kolay olduğunu belirtmişsiniz. Benim için asıl önemli olanda bu zaten.. Birden fazla personelin listesini yanlarında fotoğrafları ile birlikte raporlamam gerekiyor. Yönlendirdiğiniz örneğe baktım, çözüm bulamadım. ayhan hocamın örneğinde raporlama olayını halledebilirseniz minnettar olurum.Saygılarımla

Cevapla
Çözüldü #4
Sn:derebeyi
Ofis 2007 de bu özellik zaten var.

OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
...........
Çözüldü #5
Sn ogulcan 2003 kullanıyorum..

Cevapla
Çözüldü #6
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:
1
2
3
4
5
6
7
8
9
10
11
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

.rar ResimYukleme_Seruz.rar (Dosya Boyutu: 26,89 KB | İndirme Sayısı: 76)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da