Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/12/2010 16:11
Konu Sahibi
aydın3838
Yorumlar
11
Okunma
3584
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aydın3838

Destek
YA.... AY....
 37
 271
 45
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çözüldü 
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.

Kullanici Avatari

POWER

Uzman
UF.... ÖZ....
 54
 1.874
 42
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Bugün,00:29
Çözüldü 
Örnek ekleyiniz...


Please return your positive or negative ...

Kullanici Avatari

Hayri16

Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
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.

Kullanici Avatari

aydın3838

Destek
YA.... AY....
 37
 271
 45
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çö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.

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.602
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
Bu hatanın sebebi

Kod:
Microsoft Office (Versiyon Numarası) Object Library 

referansının eklenmemesi


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

aydın3838

Destek
YA.... AY....
 37
 271
 45
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çö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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü "Method 'FileDialog' of object '_Application' failed" hatası access acemisi 5 108 27/11/2018, 14:53
Son Yorum: access acemisi
Çözüldü Filedialog Hatası notrino 9 177 12/10/2018, 09:37
Son Yorum: notrino
Çözüldü Bir kullancının girdiği bilgiyi yöneticinin onayından sonra kabul görmesi kralsavar 2 1.515 13/11/2011, 18:55
Son Yorum: kralsavar
Çözüldü Tarih girerken varsayılan tarih olarak bir önceki kayattaki tarihi kabul etmesi hk. atabey68 13 4.437 18/07/2009, 09:22
Son Yorum: assenucler
Çözüldü Formdaki işlemin sonucu neden tabloya kayıt etmiyor sonerdursun 8 3.786 26/12/2008, 11:10
Son Yorum: mehmetdemiral

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444