Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Çoklu resim yükleme

[VBA] Çoklu resim yükleme
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#1
30-10-2016, 22:47 (En son düzenleme: 30-10-2016, 22:48 benuva.)
Merhaba değerli dostlar,

Sizlerin yardımlarıyla bir kod yazdım, şimdilik işimi görebiliyorum. Yardımlarınızla bu koda ilaveler yapmak istiyorum.

Aşağıdaki kod, ID no ile pc'deki photos klasörüne resimleri kaydedip, access'e link atıyor.İki konuda yardımlarınızı rica edeceğim.

1. Bu kodla pc'deki photos klasörüne sadece bir adet resim atabiliyorum. Sebebi Id no ile kayıt yapmasından kaynaklanmaktadır.(Kodu bir düğme daha yapıp, ona uyarladığımda ID sabit olduğundan ayni klasöre kayıt yapamıyorum)

Yapmak istediğim işlem: birinci kayıt ID (10), ikinci kayıt IDB (10B), üçüncü kayıt ise IDC (10C) olarak kayıt olmasını istiyorum.

2.Birde kayıtları ID + Plaka ile kayıt etmek istiyorum.

Örneğin: 10_34ABC15 / 10B_34ABC15 / 10C_34ABC15 şeklinde...

Değerli bilgi ve yorumlarınızı rica ederim. Şimdiden destekleriniz için teşekkür ederim.

Tablodaki alan isimlerim
ID, Plaka, Foto, Foto1, Foto2, Tarih

Gerekirse tabloyuda paylaşabilirim.



Private Sub savePicture_Click()
Dim dialog As FileDialog
Set dialog = Application.FileDialog(msoFileDialogFilePicker)
With dialog
.AllowMultiSelect = False
.Show

Foto.Value = .SelectedItems.Item(1)

End With

FileCopy Foto.Value, CurrentProject.Path & "\Photos\" & ID.Value & ".jpg"

Foto.Value = CurrentProject.Path & "\Photos\" & ID.Value & ".jpg"

If Me.NewRecord Then

DoCmd.RunCommand (acCmdSaveRecord)

End If
End Sub



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.094 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
31-10-2016, 02:37
Visual Basic
  1. Dim dialog As FileDialog, i, Sutun As Long, Foto(3), ResimDosAdi As String
  2. For i = 65 To 90 '***** A'dan Z'ye kadar HARF uretir.******
  3. If Len(Dir(CurrentProject.Path & "\Photos\" & ID & Chr(i) & ".jpg", vbNormal)) = 0 Then ResimDosAdi = CurrentProject.Path & "\Photos\" & Me.ID & Chr(i) & "_" & Me.Plaka & ".jpg": Sutun = (i - 64): Exit For
  4. Next
  5. if Sutun>3 then Msgbox "Tabloda 3 Adet Foto Sutunu var.", vbcritical, "UYARI"
  6. Set dialog = Application.FileDialog(msoFileDialogFilePicker)
  7. With dialog
  8. .AllowMultiSelect = False
  9. .Show
  10. Me.Controls("Foto" & IIf(Sutun = 1, Null, (Sutun - 1))) = .SelectedItems.Item(1)
  11. End With
  12. FileCopy Me.Controls("Foto" & IIf(Sutun = 1, Null, (Sutun - 1))), ResimDosAdi
  13. Me.Controls("Foto" & IIf(Sutun = 1, Null, (Sutun - 1))) = ResimDosAdi
  14. If Me.NewRecord Then DoCmd.RunCommand (acCmdSaveRecord)


ornek VT olmadigindan tam deneme yapamadim.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#3
31-10-2016, 21:25
Hocam çok teşekkür ederim. Deneyip sizleri bilgilendireceğim. Yapamazsam VT ile birlikte mümkünse tekrar yardımlarınızı rica edeceğim.

Saygılar.



  Bul
  Alıntı
Bu mesajı beğenenler:
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#4
31-10-2016, 23:56 (En son düzenleme: 01-11-2016, 00:29 benuva.)
Hocam Merhaba,

Vermiş olduğunuz kodları yapamadım.Örnek veri tabanını paylaştım.Yardımlarınızı rica ederim.

teşekkürler


Eklenti Dosyaları
.zip   Örnek.zip (Boyut: 150,06 KB / İndirilme: 80)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.094 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#5
01-11-2016, 06:24

.rar   AracResim_dsezgin.rar (Boyut: 99,05 KB / İndirilme: 156) Klasoru bilgisayara cikarip, deneyebilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#6
04-01-2017, 19:24
Hocam Merhaba,

Database'ye 2 tane daha satır ekleyip fotoğraf sayısını arttırkmak istediğimde, tüm ayarlar ayni, sadece yeni yaptığım yere göre kodları uyarladığımda, resim eklemek için butona bastığımda, ektedeki hatayı alıyorum.

alt + f11 tools/ referenses 'le ilgili bir konu mudur? Çözüm için değerli yardımlarınızı rica ederim


TeşekkürlerMm


Eklenti Dosyaları
.jpg   hata mesajı.jpg (Boyut: 14,34 KB / İndirilme: 96)



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  çoklu Seçinle Kayıt Girme? kesoka 1 343 02-07-2025, 23:31
Son Mesaj: dsezgin
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.162 18-02-2025, 08:49
Son Mesaj: mkoblayek
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 441 09-01-2025, 13:26
Son Mesaj: celalll
  [RAPOR] Formdan Rapora Resim Aktarma Pasham 7 734 02-06-2024, 00:41
Son Mesaj: Pasham
  [FORM] Acess Forma Resim Koyma Pasham 14 1.045 25-05-2024, 03:02
Son Mesaj: dsezgin
  Resim Işaretleme Ve Raporlama burhanb 1 307 06-03-2024, 11:26
Son Mesaj: dsezgin
  Sürekli Formda Kayda Uygun Resim Ekleme yahyamacit 2 458 18-11-2023, 10:56
Son Mesaj: yahyamacit
  [VBA] Web Den Resim Linklerini Alma hedefkaya 4 481 12-11-2023, 02:32
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi