+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Gazete Küpür Arşivi (/konu-gazete-kupur-arsivi.html)
Gazete Küpür Arşivi - HeRCuLeS - 02/05/2010
Selam Arkadaşlar
Evdeki gazete küpürlerimi indexlemek için ufak bir çalişma yaptım. Fakat takılığım noktalar var.
Göster : tıklandığında eklenen JPG tam sayfa açılsın birde bu eklenen JPG lerin rapora yansıması..
Şimdiden Teşekkürler
Cvp: Gazete Küpür Arşivi - Kur@l - 02/05/2010
Kolay Gelsin Benden Düğmeye Tıklayınca Bağlantılı Programda Gösterme Kısmı Aşağıdaki kodu Form kodlarına ekle tamamdır. Daha Kolay ve Verimli Olan Şekilleride vardır.
Kod:
Private Sub Komut305_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & ".jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut306_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-1.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut307_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-2.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut308_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-3.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End SubCvp: Gazete Küpür Arşivi - HeRCuLeS - 02/05/2010
Hocam Tesekkur ediyorum..
Geriye Raporlama Kaldı...
(02/05/2010, 19:03)Kural yazdı: Kolay Gelsin Benden Düğmeye Tıklayınca Bağlantılı Programda Gösterme Kısmı Aşağıdaki kodu Form kodlarına ekle tamamdır. Daha Kolay ve Verimli Olan Şekilleride vardır.
Cvp: Gazete Küpür Arşivi - ercansahin - 02/05/2010
Raporlama da benden o zaman. Kolay gelsin..
Cvp: Gazete Küpür Arşivi - HeRCuLeS - 02/05/2010
Size de çok teşekkür ederim..
Fakat boş olan resim alanlarinda ufak bir problem var.
Raporda 2. resim tüm kayıtlarda aynı .
ResimCercevesi.Picture = "" satırını
ResimCercevesi.Picture = CurrentProject.Path & "/arsiv/no.jpg"
olarak değiştirdim.
Şu an çalışıyor ama boş kayda "no.jpg" yi atayacağından yavaşlama olacağını sanıyourm.
(02/05/2010, 22:50)ercansahin yazdı: Raporlama da benden o zaman. Kolay gelsin..
Cvp: Gazete Küpür Arşivi - ercansahin - 03/05/2010
Aslında iyi düşünmüşsünüz.. Eğer gerçekten resim olsaydı o zaman yavaşlamayı düşünmeyecektiniz değilmi? Zaten o kadar da etkileyeceğini sanmıyorum. Fakat form açılırken resimleri yükleme esnasında kısa bir süre bekleme olacaktır. Bu durum kaçınılmaz. Bilgilerinize..