Access ve resim ekleme sıkıntısı

Access ve resim ekleme sıkıntısı - Baskı Önizleme

+- 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ığı: Access ve resim ekleme sıkıntısı (/konu-access-ve-resim-ekleme-sikintisi.html)

Sayfalar: 1 2 3

Cvp: Access ve resim ekleme sıkıntısı - POWER - 08/02/2014

Buraya neden eklemiyorsunuz ?

Çözüm bulacağımız kesin, başkalarıda yararlansın...

Cvp: Access ve resim ekleme sıkıntısı - gorkemogutveren - 08/02/2014

hemen ekliyorum arkadaşım

Cvp: Access ve resim ekleme sıkıntısı - gorkemogutveren - 08/02/2014

form 3 üzerine çalışıyorum arkadaşlar.

Cvp: Access ve resim ekleme sıkıntısı - POWER - 08/02/2014

Şimdi çıkmam lazım akşama cevap yazarım...

Cvp: Access ve resim ekleme sıkıntısı - ernac - 08/02/2014

Tekrar selam; yazacaklarım Access için geçerlidir ve alıntıdır. Kodları bir incelersin;

İlk olarak tablomuzda resim adında bir alan ilave edelim.. Veri Türü,
Not olsun.. Kaydedip çıkalım..

Şimdi formumuza gidip bu alanı bir metin kutusu ile ilişkilendirelim..
Kutunun adı da aynı; resim olsun.. Bu kutada resmin bilgisayarımızdaki
yolunu göstereceğiz..

Daha sonra Araç Kutusundan form üzerine bir resim çerçevesi
yerleştirelim.Bu çerceveye Gözat komutu yardımıyla bilgisayarımızdan
seçtiğimiz bir resmi yerleştireceğiz..

Evet, şimdi de “Gözat”mamız için formun üzerine bir düğme
yerleştirelim.. Düğmenin olay özelliklerinden Tıklatıldığında yordamına
şu kodları yazalım:

Kod:

Dim dlg As FileDialog

Dim si As Variant

Dim FileName As String

Dim vrtSelectedItem As Variant

Set trz = Application.FileDialog(msoFileDialogFilePicker)

With trz

    .AllowMultiSelect = False

    .ButtonName = "Resim Seç"

    .Filters.Add "Resimler", "*.gif; *.jpg; *.jpeg; *.bmp"

    .Filters.Add "Hepsi", "*.*"

    .FilterIndex = 0

    .InitialFileName = Environ("UserProfile") & "My Documents*.bmp;*.gif;*.jpg;*"

    .InitialView = msoFileDialogViewThumbnail

    .Title = "Resim Seç..."

        If .Show = True Then

            For Each vrtSelectedItem In .SelectedItems

            FileName = vrtSelectedItem

            Next vrtSelectedItem

            Me.resim = FileName

            Me.cerceve.Picture = FileName

        End If

End With

Bu aşamalardan sonra resmimizin yolunu tablomuza kaydetmiş ve de
bağlantılı resmi çercevemizde göstermiş olduk..

Şimdi de kayıtlar arasında gezinti, süzme, arama vb. işlemler
yaptığımızda, ekrandaki kayda ait resmin çerceveye yerleşmesi için ayrı
bir işlem daha yapmamız gerekiyor..

Formumuzun Geçerli Olduğunda olay yordamına;

Kod:

On Error GoTo trz

If Not IsNull([resim]) Then

Me.cerceve.Picture = [resim]

Else

Me.cerceve.Picture = ""

End If

Exit Sub

trz:

If Err = 2220 Then

Me.cerceve.Picture = ""

Else

MsgBox Err.Description, vbExclamation

End If

bu kod kümesini yazın.. Aynı pencereden Tools / References kısmından
Microsoft Office 1x.0 Object Library seçeneğini de işaretledinizmi
tamamdır..

Artık formunuz üzerine Gözat kutusunu kullanarak ve de sadece yolunu
depolayarak resimlerimizi ekleyip, görüntüleyebiliriz..

Dediğim gibi alıntıdır. Umarım işine yarar.
Herkese iyi çalışmalar...

Cvp: Access ve resim ekleme sıkıntısı - gorkemogutveren - 08/02/2014

dostum inceleyip geri döneceğim.

çok teşekkürler şimdiden