FileDialog Kabul etmiyor
Tarih
21/12/2010 16:11
Konu Sahibi
aydın3838
Yorumlar
11
Okunma
2610
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



aydın3838
Destek Ekibi
Kullanici Avatari
Destek
256
20/12/2009
8
Kayseri
Ofis 2003
15/12/2016,19:28
Çözüldü 
Sponsor Reklam
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.
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Bugün,12:16
Çözüldü 
Örnek ekleyiniz...

Please return your positive or negative ...
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Sponsor Reklam
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

aydın3838
Destek Ekibi
Kullanici Avatari
Destek
256
20/12/2009
8
Kayseri
Ofis 2003
15/12/2016,19:28
Çözüldü 
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


Ek Dosyalar
.rar   Musteri-Firma-Stok-Satıs.rar (Dosya Boyutu: 1,64 MB / İndirme Sayısı: 14)
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:15
Çözüldü 
Sponsor Reklam
Bu hatanın sebebi

Kod:
Microsoft Office (Versiyon Numarası) Object Library 

referansının eklenmemesi

Cevapla

aydın3838
Destek Ekibi
Kullanici Avatari
Destek
256
20/12/2009
8
Kayseri
Ofis 2003
15/12/2016,19:28
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Bir kullancının girdiği bilgiyi yöneticinin onayından sonra kabul görmesi kralsavar 2 1.176 13/11/2011, 18:55 kralsavar
Çözüldü Tarih girerken varsayılan tarih olarak bir önceki kayattaki tarihi kabul etmesi hk. atabey68 13 3.553 18/07/2009, 09:22 assenucler
Çözüldü Formdaki işlemin sonucu neden tabloya kayıt etmiyor sonerdursun 8 2.885 26/12/2008, 11:10 mehmetdemiral


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