Skip to main content

AccessTr.neT


Programa resim ekleme ve raporlarda gösterme yapamadım ?

Programa resim ekleme ve raporlarda gösterme yapamadım ?

Çözüldü #1
Arkadaşlar merhaba, ben bir program yapıyorum. cv programı (kendi çapımda), fakat resim ekleme olayını hiç anlamadım. bayağı uğraşmama rağmen. çok örnek indirdim ama kendi veri tabanıma uygulayamadım. sizden yardım istiyorum. İstediğim şey tam olarak şu:
"cv_frm" kısmına , başvuran kişi fotoğraf ekleyecek. bu fotoğraf veri tabanı içinde yada ayrı bir klasör olarak kaydedilebilir önemli değil, önemli olan kayıt gerçekleşsin. kaydet butonuna basınca da resim diğer textboxlar gibi sıfırlansın. Ayrıca "aramayı_tek_goster_rpr" ve "tek_tek_goster_rpr" kısımlarında sorgu yaptığımda o kişinin diğer alanları geldiği gibi resmi de gelsin. şuan program da burada kaldım. yardıma ihtiyacım var. umarım anlatabilmişimdir. ilginize teşekkürler. program office 2007 arkadaşlar. iyi çalışmalar..
.rar cv programı.rar (Dosya Boyutu: 270,63 KB | İndirme Sayısı: 30)
newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla
Çözüldü #2
Sayın üyemiz
En basit resim bağlama yöntemi ekte bulacağınız
küçük örnekte görüleceği gibi otomatik bağlama
yöntemidir. Bunun için de kaydımızın "ID" sinden
faydalanıyoruz.

1. Uygulamamızın bulunduğu yere bir klasör açıyoruz ( örnekte : resimler)
2. Resimlerimizi bu klasöre kopyalıyoruz ve isimlerine ait oldukları kaydın
ID sini atıyoruz 1.BMP, 2.BMP ...... n.BMP gibi
3. Formumuzun üstüne ilşkisiz bir nesne çerçevesi ekliyoruz. ( örnekte : cerceve )
4. Formumuzun On current olayına aşağıdaki kodu yazıyoruz.


Private Sub Form_Current()
On Error GoTo yok
Forms!FRM_URUNLER!cerceve.Picture = CurrentProject.Path & "/resimler/" & Forms!FRM_URUNLER!URUN_ID & ".bmp"
Exit Sub
yok:
Forms!FRM_URUNLER!cerceve.Picture = CurrentProject.Path & "/resimler/" & "BOS.bmp"
End Sub

Ben burada hata olduğunda ( aranan resim bulunamadığında) daha önceden
hazırladığım 1pxx1px BOS.BMP dosyasını ekliyorum. Siz çift tırnak da kullanabilirsiniz.

yok:
Forms!FRM_URUNLER!cerceve.Picture = ""

Kolay gelsin

Not: Kodlar ve yöntem raporda da aynidir
Kayıt butonunda silinmesi için kod içerisindeki
sadece "yok" döngüsünün altındaki satırı yazabilirsiniz
.rar resim_okileturc.rar (Dosya Boyutu: 430,72 KB | İndirme Sayısı: 126)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
Sayın Okileturc;

İyi akşamlar.. Yine güzel bir dosya..

Emek ve paylaşımınız için teşekkürler..

Selam ve sevgiler..
Cevapla
Çözüldü #4
Sn Oktay hocam, açıklama ve örnek için teşekkürler.
Cevapla
Çözüldü #5
(28/11/2010, 21:24)okileturc yazdı: Sayın üyemiz
En basit resim bağlama yöntemi ekte bulacağınız
küçük örnekte görüleceği gibi otomatik bağlama
yöntemidir. Bunun için de kaydımızın "ID" sinden
faydalanıyoruz.

1. Uygulamamızın bulunduğu yere bir klasör açıyoruz ( örnekte : resimler)
2. Resimlerimizi bu klasöre kopyalıyoruz ve isimlerine ait oldukları kaydın
ID sini atıyoruz 1.BMP, 2.BMP ...... n.BMP gibi
3. Formumuzun üstüne ilşkisiz bir nesne çerçevesi ekliyoruz. ( örnekte : cerceve )
4. Formumuzun On current olayına aşağıdaki kodu yazıyoruz.


Private Sub Form_Current()
On Error GoTo yok
Forms!FRM_URUNLER!cerceve.Picture = CurrentProject.Path & "/resimler/" & Forms!FRM_URUNLER!URUN_ID & ".bmp"
Exit Sub
yok:
Forms!FRM_URUNLER!cerceve.Picture = CurrentProject.Path & "/resimler/" & "BOS.bmp"
End Sub

Ben burada hata olduğunda ( aranan resim bulunamadığında) daha önceden
hazırladığım 1pxx1px BOS.BMP dosyasını ekliyorum. Siz çift tırnak da kullanabilirsiniz.

yok:
Forms!FRM_URUNLER!cerceve.Picture = ""

Kolay gelsin

Not: Kodlar ve yöntem raporda da aynidir
Kayıt butonunda silinmesi için kod içerisindeki
sadece "yok" döngüsünün altındaki satırı yazabilirsiniz
Sn. okileturc
ilginize çok teşekkür ederim. şuan müsait olmadığım için bakamayacağım ama en müsait zamanda bir iki gün içinde bakıp size dönerim. fakat söyle bir sorun var programda resim ekle/sil gibi bir şey yok. benim istediğim kişi cv ye resim ekleyecek ve o eklediği resim raporlarda görünecek.iyi geceler...

newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla
Çözüldü #6
Bu biraz daha uzun bir metod. File Dialog penceresi ile yapacağız

1. Önce tablomuza resim yolunu saklayacağımız bir alan ekliyoruz ( örnekte : URUN_RESIMYOLU , metin, 255 )
2. Aşağıdaki kodu modüller penceresinde bir sayfaya yapıştırıp kaydedin


Sub resimekle()
Dim filename As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = " CV ye resim ekle"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path & "\resimler\"
result = .Show
If (result <> 0) Then
filename = Trim(.SelectedItems.Item(1))
Forms!FRM_URUNLEREKLEME!URUN_RESIMYOLU = filename
Forms!FRM_URUNLEREKLEME!URUN_ID.SetFocus
Forms!FRM_URUNLEREKLEME!cerceve.Picture = filename

End If
End With
End Sub

Form üzerine 2 buton ekliyoruz
RESİM EKLE altına

resimekle
RESİM SİL altına

me.URUN_RESIMYOLU=""
veya

me.URUN_RESIMYOLU=Forms!FRM_URUNLEREKLEME!cerceve.Picture = CurrentProject.Path & "/resimler/" & "BOS.bmp"

Uygulamayı yeniden ekliyorum bu anlatımımı ikinci
form üzerinde görebilirsiniz :FRM_URUNLEREKLEME

Kolay gelsin
.rar basitresim_okileturc_dosyaekle.rar (Dosya Boyutu: 433,04 KB | İndirme Sayısı: 61)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da