Form Üzerinden Resim Ekleme Hakkında Her Şey

Taruz · 04-01-2012, 16:55

Merhaba arkadaşlar..

Resim ekleme işi biraz kafa karıştırır.. Access kaynakları der ki "kayda resim ekleyeceksen ole nesnesi olarak ekle." Tamam ekleyelim ama eklediğimiz resimler dosya içine gömüldüğü için 10 resim sonra dosya boyutu balon gibi şişecek.. Bir de her sürümde istediğimiz uzantıda ekleyemeyiz.. 2003 bmp ister, 2007 de png ler sıkıntılı.. İşin özü, formlara görsel olarak eklediklerimizden harici resimleri ole nesnesi olarak eklemek çok efektif değildir..

En stabil yöntem resimleri dosyaya gömmeden, bilgisayarımızdaki konumunu kullanarak bir resim çerçevesinde göstermek..

Senaryo..:

Diyelim ki bir personel uygulamamız var. Her personele ait resimleri form üzerinden gözat penceresini kullanarak eklemek ve kayıtlar arasında gezinirken de hangi kayıt üzerindeysek o kayda ait resmi görmek istiyoruz.. Ve istiyoruz ki eklediğimiz resimleri değiştirebilelim ve hata silebilelim..

Nasıl Yapılır..:

Resim ekleyeceğimiz kayıtların bulunduğu tablomuza gidip tasarım görünümünde açıyoruz.. En sona yeni bir alan ekleyelim, ismi resim olsun. Veri tipi de Not olsun.. Bu alanda resim dosyamızın bilgisayarımızdaki yolunu saklayacağız..

[Resim: resimekle1.jpg]

Tabloyu kaydedip kapalım ve formumuza geçelim.. Formumuza önce bir metin kutusu ekleyelim, ismi yine resim olsun. Özellikler / Biçim / Görünür seçeneğini Hayır yapalım..

Formumuz kayıt kaynağı olarak direkt tabloya bağlı ise bu metin kutusunun Özellikler / Veri / Denetim Kaynağı kısmına tablomuzdaki resim alanını yazalım..

Eğer formumuzun kayıt kaynağı bir sorguya dayalı ise bu sorguyu açıp tablomuzdan bu alanını da sorgu ızgarasına ekleyelim.. Bunu yapmazsak denetim kaynağında resim alanı görünmez..

Menüye alışıksanız Varolan Alanları Ekle kısmından da metin kutusu eklemeden resim alanını forma dahil edebilirsiniz..

Şimdi araç kutusundan Resim denetimi seçip formumuzun üzerine yerleştirelim.. Özellikler / Diğer / Ad kısmından da adını cerceve yapalım..

[Resim: resimekle2.jpg]

Access bir resim seçmemizi isteyecek.. Aşağıdaki gibi bir resmi uygulamanız ile aynı klasöre eklerseniz resim eklenmemiş kayıtlarda bu resim görünür.. Resmi sağ tık yapıp Resmi Farklı Kaydet seçeneğinden bilgisayarınıza kaydedebilirsiniz.. (Resim 300x300 boyutlarındadır.. Küçük göründüğüne bakmayın.)

[Resim: resimyok.jpg]

Şimdi de forma iki düğme ekleyelim.. Birinin etiketi Ekle, diğerinin Sil olsun..

Son durum böyle olacak..:

[Resim: resimekle3.jpg]

Kodlarımızı yazma aşamasına geldik.. Ekle düğmesinin Özellikler / Olay / Tıklandığında satırına çift tıklayalım.. Satırda [Olay Yordamı] ifadesi ve sağ kenarda üç noktalı bir düğme belirir.. Düğmeye tıklayalım ve açılan kod sayfasında imlecin oturduğu kısma bu kodu yazalım..:

Visual Basic
Dim gzt As FileDialog
Dim DosyaAdi As String
Dim SeciliNesne As Variant
Set trz = Application.FileDialog(msoFileDialogFilePicker)
With trz
    .AllowMultiSelect = False
    .ButtonName = "Resim Seç"
    .Filters.Add "Resimler", _
                  "*.gif; *.jpg; *.jpeg; *.bmp; *.png"
    .FilterIndex = 0
    .InitialFileName = Environ("UserProfile") & "\My Documents\"
    .InitialView = msoFileDialogViewThumbnail
    .Title = "Resim Seç..."
        If .Show = True Then
            For Each SeciliNesne In .SelectedItems
            DosyaAdi = SeciliNesne
            Next SeciliNesne
            Me.resim = DosyaAdi
            Me.cerceve.Picture = DosyaAdi
        End If
End With

Şimdi de Sil düğmesinin tıklandığında kod sayfasını açalım ve bu prosedürü yapıştıralım..:

Visual Basic
If MsgBox("Kayda ait resim silinecek. Onaylıyor musunuz?" _
                , vbYesNo, "Resim Sil") = vbYes Then
Me.resim = ""
 
'Çerçevede, aynı klasörde bulunan resimyok adndaki resim görünür..
'Bu resim yoksa çerçeve boş görünür..
On Error Resume Next
Me.cerceve.Picture = CurrentProject.Path & "\resimyok.jpg"
End If

Şimdi sıra kayıt gezintisi sırasında o kayda ait resmi çerçevede göstermeye geldi..

Formumuzun Özellikler / Olay / Geçerli Olduğunda kod sayfasına bunu yapıştıralım..:

Visual Basic
On Error GoTo hata
    If Nz(resim, "") = "" Then
        Me.cerceve.Picture = CurrentProject.Path & "\resimyok.jpg"
    Else
        Me.cerceve.Picture = resim
    End If
Exit_hata:
    Exit Sub
 
hata:
    MsgBox "Resim bulunamadı.." _
           & Chr(10) & "Resim dosyanız silinmiş," _
           & " yeri veya ismi değişmiş olabilir..", vbInformation, "Hata"
           Me.cerceve.Picture = ""
    Resume Exit_hata

Operasyon bitti sayılır.. Şimdi diyalog penceresi için gerekli olan bir referansı eklemek gerekiyor..

Kod sayfasını (VBA editörünü) açalım. Üstteki Tools Menüsünüden Refrences seçeneğine tıklayalım.. Ekrana gelen listeden Microsoft Office xx.x Object Library seçeneğini bulup onaylayalım.. (xx.x kısmı sürümünüze göre değişir..)

[Resim: resimekle4.jpg]

Artık formumuz üzerinde kayıtlara resim ekleyebileceğiz..

[Resim: resimekle5.jpg]

Konu anlatımı esnasında üzerinde çalıştığım dosya ektedir..

Detaylar diğer mesajlarda..

Taruz · 04-01-2012, 17:34

Soru şu..:

"Eklediğim resimleri tek bir yerde toplayabilir miyim? Mesela tüm resimler, eklediğimde uygulamamla aynı dizindeki resimler adlı klasörde olsa.."

Ekle düğmesinde kullandığımız prosedürün hemen altına (End Sub üstüne) bunu ilave edelim..:

Visual Basic
On Error Resume Next
 
asil = Me.resim
 
kopya = CurrentProject.Path & _
"\resim\" & Dir(asil) 'Buradaki 'resim' klasör adıdır..
 
Dim aa
Set aa = CreateObject("Scripting.FileSystemObject")
 
aa.CopyFile asil, kopya
Me.resim = kopya
Me.cerceve.Picture = kopya
If MsgBox("Resim klasöre kopyalandı.. " _
& "İlk dosyayı silmek ister misiniz?", vbYesNo, "Uyarı") = vbYes Then
Kill asil
End If

Taruz · 04-01-2012, 17:46

Üsttekinin devamı niteliğinde bir soru daha..:

"Resimleri klasörde topladık ama hangi resim hangi kaydın belli değil.. Resimleri, örneğin otomatik sayı alanı değeri ve personel adının birleşimi bir isimle kaydedebilir miyiz?"

Bu durumda yukarıdaki, resmi klasöre taşıma prosedürünün yerine bunu kullanınız..:

Visual Basic
On Error Resume Next
 
asil = Me.resim
 
kopya = CurrentProject.Path & _
"\resim\" _
& Me.PersonelNo & Me.Ad & Right(Dir(asil), 4) 'Buradaki alan isimlerini kendinize göre güncelleyiniz..
 
Dim aa
Set aa = CreateObject("Scripting.FileSystemObject")
 
aa.CopyFile asil, kopya
Me.resim = kopya
Me.cerceve.Picture = kopya
If MsgBox("Resim klasöre kopyalandı.. " _
& "İlk dosyayı silmek ister misiniz?", vbYesNo, "Uyarı") = vbYes Then
Kill asil
End If

Taruz · 04-01-2012, 17:59

Soru..:

"Formda iyi güzel resmi gösteriyoruz ama raporlarda nasıl olacak bu iş?"

Raporumuza ilk mesajda anlattığım gibi bir resim denetimi ekliyoruz ve Özellikler / Veri / Denetim Kaynağı kısmına gidip resim alanını seçiyoruz..:

[Resim: resimekle6.jpg]

Raporu açtığımızda sonuç..:

[Resim: resimekle7.jpg]

Taruz · 04-01-2012, 18:34

Merak edebileceğimiz bir soru daha..:

"Ben her kayda iki ya da daha fazla resim eklemek istiyorum? Nasıl yapabilirim?"

Cevap..: En baştan yapılan her şeyi tekrardan yaparak.. Wink

İşi kolaylaştırmak için her düğmeye uzun uzun kod yazmak yerine resim ekleme prosedürünü ayrı bir fonksiyona aldım..:

Visual Basic
Function ResimEkle(alanadi As String, cerceveadi As String)
Dim gzt As FileDialog
Dim DosyaAdi As String
Dim SeciliNesne As Variant
Set trz = Application.FileDialog(msoFileDialogFilePicker)
With trz
    .AllowMultiSelect = False
    .ButtonName = "Resim Seç"
    .Filters.Add "Resimler", _
                  "*.gif; *.jpg; *.jpeg; *.bmp; *.png"
    .FilterIndex = 0
    .InitialFileName = Environ("UserProfile") & "\My Documents\"
    .InitialView = msoFileDialogViewThumbnail
    .Title = "Resim Seç..."
        If .Show = True Then
            For Each SeciliNesne In .SelectedItems
            DosyaAdi = SeciliNesne
            Next SeciliNesne
            Controls(alanadi) = DosyaAdi
            Controls(cerceveadi).Picture = DosyaAdi
        End If
End With
 
 
On Error Resume Next
 
asil = Controls(alanadi)
 
kopya = CurrentProject.Path & _
"\resim\" _
& Me.PersonelNo & Me.Ad & Right(cerceveadi, 1) _
& Right(Dir(asil), 4) 'Buradaki alan isimlerini kendinize göre güncelleyiniz..
 
Dim aa
Set aa = CreateObject("Scripting.FileSystemObject")
 
aa.CopyFile asil, kopya
Controls(alanadi) = kopya
Controls(cerceveadi).Picture = kopya
If MsgBox("Resim klasöre kopyalandı.. " _
& "İlk dosyayı silmek ister misiniz?", vbYesNo, "Uyarı") = vbYes Then
Kill asil
End If
 
End Function

Her bir Ekle düğmesinde bu şekilde kullanılabilir..:

Visual Basic
Call ResimEkle("resim", "cerceve") 'resim alanı ve eklenecek çerçeve isimlerini yazacağız..

Formun Güncelleştirme Sonrasında kullandığımız kodda resim adedine göre geliştirilmesi gerekir tabi..:

Visual Basic
On Error GoTo hata
    If Nz(resim, "") = "" Then _
    Me.cerceve.Picture = CurrentProject.Path & "\resimyok.jpg" Else: Me.cerceve.Picture = resim
    If Nz(resim2, "") = "" Then _
    Me.cerceve2.Picture = CurrentProject.Path & "\resimyok.jpg" Else: Me.cerceve2.Picture = resim2
    If Nz(resim3, "") = "" Then _
    Me.cerceve3.Picture = CurrentProject.Path & "\resimyok.jpg" Else: Me.cerceve3.Picture = resim3
 
Exit_hata:
    Exit Sub
 
hata:
    MsgBox "Resim bulunamadı.." _
           & Chr(10) & "Resim dosyanız silinmiş," _
           & " yeri veya ismi değişmiş olabilir..", vbInformation, "Hata"
    Me.cerceve.Picture = ""
    Me.cerceve2.Picture = ""
    Me.cerceve3.Picture = ""
    Resume Exit_hata

Birden fazla ekleme ile ilgili örnek ektedir..:

[Resim: resimekle8.jpg]

Taruz · 04-01-2012, 18:44

Bir soru daha..:

"Eklediğim resimler çerçeveye oturmuyor.. Belli bir kısmı görünüyor.. Nasıl düzeltebiliriz?

Tasarım görünümünde çerçevenin Özellikler / Biçim / Boyutlandırma Modu kısmındaki seçeneklerden resminizin boyutuna göre istediğiniz ayarı seçebilirsiniz..

Konuyla ilgili, aklıma gelen hakkında detaylar ve açıklamaları bu şekilde.. Soru veya sorunlarınız olursa destek verebilirim..

Access dolu günler diliyorum..

Taruz..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Resim Dosya EkleME Saklama ve Gösterme (Sıfır kodla birkaç tıkla Form ve Rapor)	Mehmet Eser	12	17.321	24-07-2014, 20:56 Son Mesaj: mengene
	Access açılırken resim belirlemek	onur_can	4	2.889	15-07-2014, 22:25 Son Mesaj: mengene
	Sade Şık bir AVT için Alt Form yerine form üst bilgisi kullanımı Yeni Tasarım	Mehmet Eser	2	2.903	02-06-2012, 08:01 Son Mesaj: furkan_68200

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL