FileDialog Kabul etmiyor

1 2
21/12/2010, 16:11

aydın3838

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
21/12/2010, 16:20

POWER

Örnek ekleyiniz...
21/12/2010, 16:25

Hayri16

Sayın aydın3838;
Yukarıdaki kodlardan benim anladığım, forma veya tabloya resim ekleme için dosya dialog kutusunu açan bir çalışma. Yine sanırım bu bir modülde kullanılıyor.
Daha önce çalıştığınızı söylediğinize göre(nasıl bir hata verdiğini de belirtmemişsiniz);
1- Kullanılan yollar, yani dizinler v.b değişmiş olabilir. Özellikle My document, türkçe windowslarda "belgelerim" olarak kullanılıyor olabilir.
2- Değişken veya tablo ismini kullanıyorsa onları kontrol etmek gerekir. Örneğin Adres_id diye bir şey görüyorum.

Ama yine de en doğrusu Ufuk Hocamın söyledği gibi örnek eklemeniz ve daha ayrıntılı bilgi vermeniz. Kolay gelsin.
21/12/2010, 16:47

aydın3838

Uygulamanın bulunduğu yere CariResim
adında bir klasör ekleyin
ve resim eklemeye çalışırsanız hata verdiği görülecektir
saygılarımla
21/12/2010, 17:10

ozanakkaya

Bu hatanın sebebi
Kod:
Microsoft Office (Versiyon Numarası) Object Library
referansının eklenmemesi
21/12/2010, 17:16

aydın3838

referanslar görünürde tamam
diğer projelerimde de kullanmakta olduğum kodlar
bu defa hata verdi

1 2