Buraya neden eklemiyorsunuz ?
Çözüm bulacağımız kesin, başkalarıda yararlansın...
#7
Please return your positive or negative ...
Access ve resim ekleme sıkıntısı
#7
#8
hemen ekliyorum arkadaşım
#10
Şimdi çıkmam lazım akşama cevap yazarım...
Please return your positive or negative ...
#11
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:
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;
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...
İ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 Withbağ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 IfMicrosoft 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...
Son Düzenleme: 08/02/2014, 18:41, Düzenleyen: ernac.
#12
dostum inceleyip geri döneceğim.
çok teşekkürler şimdiden
çok teşekkürler şimdiden
Konuyu Okuyanlar: 3 Ziyaretçi
