AccessTr.neT
Access'e resim eklemek istiyorum(uzantı problemi olmadan) - 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'e resim eklemek istiyorum(uzantı problemi olmadan) (/konu-access-e-resim-eklemek-istiyorum-uzanti-problemi-olmadan.html)



Access'e resim eklemek istiyorum(uzantı problemi olmadan) - newindmuh - 21/12/2010

Herkese Merhaba ;
Aşağıda ki kod benim programa resim çekmek için kullandığım Sn. okileturc sayesinde öğrendiğim bir koddur.Gayet güzel bir kod. Butona tıklayınca resim seç geliyor. Fakat sadece .bmp uzantılı resimleri çekiyor. Benim istediğim jpg yada bütün uzantıları çekmesi, Sorum şu ;
Aşağıda ki koda bir kaç satır ekleyerek bunu yapabilir miyim ? Teşekürler

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!cv_frm!foto! = filename
Forms!cv_frm!Kimlik.SetFocus
Forms!cv_frm!Resim86.Picture = filename


End If
End With
End Sub



Cvp: Access'e resim eklemek istiyorum(uzantı problemi olmadan) - alpeki99 - 21/12/2010

.Filters.Add "JPEGs", "*.jpg"

satırı ile jpg resimleri de görebiliyor olmanız lazım.


Cvp: Access'e resim eklemek istiyorum(uzantı problemi olmadan) - newindmuh - 21/12/2010

(21/12/2010, 00:42)alpeki99 yazdı:
.Filters.Add "JPEGs", "*.jpg"

satırı ile jpg resimleri de görebiliyor olmanız lazım.
Görmüyor, bende orayı anlamadım zaten. başka uzantılar var ama yinede görmüyor. kodda acaba bi hata mı var bir bilginiz var mı?



Cvp: Access'e resim eklemek istiyorum(uzantı problemi olmadan) - ozanakkaya - 21/12/2010

Kodda hata yok. Dosya seçme sayfasından dosya uzantısını seçmen gerekiyor. Koddaki

        .FilterIndex = 3

satırını

        .FilterIndex = 1

ile değiştirirsen tüm dosyaları görebilirsin.



Cvp: Access'e resim eklemek istiyorum(uzantı problemi olmadan) - newindmuh - 21/12/2010

çok teşekkür ederim, harika oldu dediğinizi yapınca düzeldi. Ayrıca daha önceden resimi sığdırmak için cerceveye kalitesini bayağı bozuyordu. şimdi hiç bozmuyor ilginç bi şey daha düzeldi. teşekkürler tekrar..