Access'e resim eklemek istiyorum(uzantı problemi olmadan)
Tarih
21/12/2010 00:38
Konu Sahibi
newindmuh
Yorumlar
4
Okunma
2563
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....
6.023
29/10/2008
Ordu
Ofis 2013 32 Bit
24/02/2017,14:08
Çözüldü 
Sponsor Reklam

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.317
29/01/2008
Denizli
Ofis 2010 32 Bit
Bugün,10:40
Çözüldü 
Sponsor Reklam
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
  Çoklu Resim Gösterme ensar236 6 140 Dün, 19:57 ensar236
  Formunda Birden Fazla Bulunan Comboboxların Harflerle Açılmasını İstiyorum burhanb 7 128 21/02/2017, 13:08 burhanb
  Fiyat Değişiminde Değişim tarihi Eklemek haziran4 2 40 18/02/2017, 13:01 haziran4
  64 Bit Ofiste MouseHook, MouseWheel Problemi zzr 4 71 18/02/2017, 09:48 zzr
Sad Forma Resim Eklemede Hata 1453asi 7 100 10/02/2017, 09:37 1453asi


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