Skip to main content

AccessTr.neT


Access'e resim eklemek istiyorum(uzantı problemi olmadan)

Access'e resim eklemek istiyorum(uzantı problemi olmadan)

Çözüldü #1
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
newindmuh, 18-03-2010 tarihinden beri AccessTr.neT
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Access'e resim eklemek istiyorum(uzantı problemi olmadan) - Yazar: newindmuh - 21/12/2010, 00:38
Task