Skip to main content

AccessTr.neT


FileDialog Kabul etmiyor

FileDialog Kabul etmiyor

Çözüldü #1
Selam
Bir çok uygulamada kullandığım kodlar hata verdi
referanslar da tamam sorun nerde yardımcı olusanız sevinirim

User-Defined Typ not defined

Dim dlg As FileDialog
Dim si As Variant
Dim uzan As Integer
Dim FileName, yeniyol As String
Dim vrtSelectedItem As Variant
If IsNull(Adres_ID) Then: MsgBox "Kayıtlı Veri Yok !!! " & "Kayıtı Veri Olmadan Resim Ekleyemezsiniz": Exit Sub
If Len(Dir(Application.CurrentProject.Path & "\CariResim", vbDirectory)) = 0 Then
' MkDir Application.CurrentProject.Path & "\CariResim"
End If
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.AllowMultiSelect = False
.ButtonName = "Select Pic"
.Filters.Add "Pictures", "*.gif; *.jpg; *.jpeg; *.bmp"
.Filters.Add "All", "*.*"
.FilterIndex = 0
.InitialFileName = Environ("UserProfile") & "\My Documents\*.bmp;*.gif;*.jpg;*"
'.InitialFileName = Application.CurrentProject.Path & "\CariResim"
.InitialView = msoFileDialogViewThumbnail
.Title = "Select picture..."
If .Show = True Then
For Each vrtSelectedItem In .SelectedItems
FileName = vrtSelectedItem

uzan = InStr(StrReverse(FileName), "\")
yeniyol = Application.CurrentProject.Path & "\CariResim" & Right(FileName, uzan)
Debug.Print yeniyol & "----- " & FileName
If FileName = yeniyol Then
GoTo ylcn
End If
Next vrtSelectedItem

FileCopy FileName, yeniyol
ylcn:
Me.picImage1 = yeniyol
Me.Image145.Picture = picImage
Me.Etiket133.Visible = False
Me.Resim1.Visible = False
End If
End With
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 21/12/2010, 16:12, Düzenleyen: aydın3838.
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
FileDialog Kabul etmiyor - Yazar: aydın3838 - 21/12/2010, 16:11
Cvp: FileDialog Kabul etmiyor - Yazar: POWER - 21/12/2010, 16:20
Cvp: FileDialog Kabul etmiyor - Yazar: Hayri16 - 21/12/2010, 16:25
Cvp: FileDialog Kabul etmiyor - Yazar: aydın3838 - 21/12/2010, 16:47
Cvp: FileDialog Kabul etmiyor - Yazar: ozanakkaya - 21/12/2010, 17:10
Cvp: FileDialog Kabul etmiyor - Yazar: ozanakkaya - 21/12/2010, 19:57
Cvp: FileDialog Kabul etmiyor - Yazar: aydın3838 - 21/12/2010, 17:16
Cvp: FileDialog Kabul etmiyor - Yazar: alpeki99 - 22/12/2010, 13:34
Cvp: FileDialog Kabul etmiyor - Yazar: aydın3838 - 22/12/2010, 17:54
Cvp: FileDialog Kabul etmiyor - Yazar: alpeki99 - 23/12/2010, 00:39
Cvp: FileDialog Kabul etmiyor - Yazar: aydın3838 - 23/12/2010, 10:49
Cvp: FileDialog Kabul etmiyor - Yazar: alpeki99 - 23/12/2010, 12:09
Task