Access'e resim eklemek istiyorum(uzantı problemi olmadan)
Tarih
21/12/2010 00:38
Konu Sahibi
newindmuh
Yorumlar
4
Okunma
2499
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



newindmuh
Aktif Üye
Kullanici Avatari
Aktif Üye
85
18/03/2010
12
Kocaeli
Ofis 2007
25/10/2013,14:19
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.994
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,23:53
Çözüldü 

Visual Basic Code
.Filters.Add "JPEGs", "*.jpg"


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

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


newindmuh
Aktif Üye
Kullanici Avatari
Aktif Üye
85
18/03/2010
12
Kocaeli
Ofis 2007
25/10/2013,14:19
Çözüldü 
(21/12/2010, 00:42)alpeki99 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
.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ı?
newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.060
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,23:19
Çözüldü 
Kodda hata yok. Dosya seçme sayfasından dosya uzantısını seçmen gerekiyor. Koddaki

Visual Basic Code
        .FilterIndex = 3


satırını

Visual Basic Code
        .FilterIndex = 1


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

Cevapla


newindmuh
Aktif Üye
Kullanici Avatari
Aktif Üye
85
18/03/2010
12
Kocaeli
Ofis 2007
25/10/2013,14:19
Çözüldü 
ç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..
newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form Açıldığında Yeni Kayda Gitme Problemi ferhatozge 6 206 30/11/2016, 15:53 ferhatozge
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 236 29/11/2016, 13:49 Mesut Kaytan
  Arama problemi ve bir kaç diğer sorun nightashes 3 111 28/11/2016, 01:22 nightashes
Çözüldü access olmadan veritabanı kullanmak mariachi232 4 1.830 14/11/2016, 16:49 atoz112
  Tabloya Eklenen Resmi Formda Gösterme Problemi peter088 2 135 19/10/2016, 20:24 peter088


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya