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
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 Sub
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.
Raporlama da benden o zaman. Kolay gelsin..
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..
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..