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
Çözüldü #2
Örnek ekleyiniz...
Please return your positive or negative ...
Cevapla
Çözüldü #3
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.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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
.rar Musteri-Firma-Stok-Satıs.rar (Dosya Boyutu: 1,64 MB | İndirme Sayısı: 15)
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
Bu hatanın sebebi
Kod:
Microsoft Office (Versiyon Numarası) Object Library
referansının eklenmemesi
Cevapla
Çözüldü #6
referanslar görünürde tamam
diğer projelerimde de kullanmakta olduğum kodlar
bu defa hata verdi

aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task